如何在Powerpoint中自动触发App对象初始化？

Question

这里说：

http://msdn.microsoft.com/en-us/library/aa211599%28v=office.11%29.aspx

  

在程序运行之前，你   必须连接声明的对象   类模块（本例中为App）   使用Application对象。您可以   使用以下代码执行此操作   任何模块。

     

Dim X As New EventClassModule Sub   InitializeApp（）       设置X.App = Application End Sub

     

运行InitializeApp程序。

如何运行？用手 ？我希望它在打开powerpoint时自动运行。有什么办法吗？

Answer 1

我通常在Auto_Open宏中执行此操作。

参见例如http://skp.mvps.org/autoevents.htm