It 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 ?