Vba 宏Powerpoint在另一台计算机上不工作

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

我在其他计算机上所做的事情：

• 自动启用宏
• 信任VBA模型
• 启用活动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

---

>>当用户单击按钮时，应出现以下代码。你好，史蒂夫。谢谢你的回复。我可以把文件寄给你让你看一下吗？它是一个具有运行上面宏的操作的形状。它正在我的计算机上运行，但当我们将文件共享给其他人时，它不会运行。如果您想将其发布到Dropbox或类似的网站，并在此处共享链接，则可以。