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