PowerPoint PresentationBeforeSave

[paul.schwellenbach]

Hello there

I am using a class with

"Option Explicit

Public WithEvents FileSave As Application"

and a procedure with

"Private Sub FileSave_PresentationBeforeSave(ByVal Pres As Presentation, Cancel As Boolean)

MsgBox ("Aktiviert")

End Sub"

but I do not get it to work. When clicking SaveAs or Save, simply nothing happens. Can somebody tell me how to do the trick?



Thank you in advance, best regards


Paul