Hi,
I would like to close PowerPoint, not only the presentation, after the slide show ends. I guess that should be possible with the event SlideShowEnd, right?
For some reason the event doesn't seem to happen or affect any action.
What's wrong?
As a class:
Public WithEvents App As Application
As a module:
Sub application_SlideShowEnd(ByVal Pres As Presentation)
Dim App As Application
Set App = CreateObject("PowerPoint.Application")
With App.Presentations("makro5.pptm")
.Saved = False
.Quit 'or .Close?
End With
End Sub
Btw: It's impossible to call the macro application_SlideShowEnd. Is it cause it's an event which doesn't have to be called?
André