It 开发者_Python百科is said here:
http://msdn.microsoft.com/en-us/library/aa211599%28v=office.11%29.aspx
Before the procedure will run, you must connect the declared object in the class module (App in this example) with the Application object. You can do this with the following code from any module.
Dim X As New EventClassModule Sub InitializeApp() Set X.App = Application End Sub
Run the InitializeApp procedure.
Run HOW ? By hand ? I want it to automatically run when opening the powerpoint rather. Is there any way ?
I usually do that in the Auto_Open macro.
See for example http://skp.mvps.org/autoevents.htm
精彩评论