Powerpoint 2003 :not work in Events Handler

Joined
Sep 13, 2007
Messages
3
Reaction score
0
I create the powerpoint add-in for application events. However, when I register the add-in, it work in PresentationClose Event only. Another events such as PresentationOpen, PresentationBeforesave, it also haven't any response also.

Here is the code sample,

Module1
Dim myobject As New Class1
Sub StartEvents()
Set myobject.appevent = Application
End Sub

Class1
Public WithEvents appevent As Application
Private Sub appevent_PresentationBeforeSave(ByVal Pres As Presentation, Cancel As Boolean)
MsgBox "Save"
End Sub
Private Sub appevent_PresentationClose(ByVal Pres As Presentation)
MsgBox "Close"
End Sub
Private Sub appevent_PresentationOpen(ByVal Pres As Presentation)
Msgbox "Open"
End Sub
 
Back
Top