宏 Powerpoint 无法在另一台计算机上运行

Question

第一次在这里发帖，我不是 VBA 专家。需要有关无法在另一台计算机（仅我的）上运行的 PowerPoint 宏的帮助。在 3 台计算机上测试了该文件，但它不起作用。没有错误，只是没有读取宏。

我在其他电脑上做过的事情：

• 自动启用宏
• 信任 VBA 模型
• 启用 Active X 并禁用安全模式
• 禁用受保护的视图

下面的代码应该在用户点击按钮时发生。它只适用于我的电脑，但不适用于其他电脑。

代码如下：

Sub Initialise_3()
ActivePresentation.SlideShowWindow.View.GotoSlide (9)
Slide = 9
ActivePresentation.Slides(9).Shapes("ComboBox1").OLEFormat.Object.Value = ""
ActivePresentation.Slides(9).Shapes("TextBox1").OLEFormat.Object.Value = ""
ActivePresentation.Slides(9).Shapes("TextBox2").OLEFormat.Object.Value = ""
ActivePresentation.Slides(9).Shapes("TextBox3").OLEFormat.Object.Value = ""
ActivePresentation.Slides(9).Shapes("TextBox4").OLEFormat.Object.Value = ""
ActivePresentation.Slides(9).Shapes("TextBox5").OLEFormat.Object.Value = ""

End Sub