VBA event on open or on close not working

[Guest]

I am trying find an event that is executed when my powerpoint show is opened.
This is what i have tried:

Public WithEvents PPTEvent As Application

Private Sub PPTEvent_AfterPresentationOpen(ByVal Pres As Presentation)
Scroll.Value = 0
End Sub

Private Sub PPTEvent_PresentationClose(ByVal Pres As Presentation)
Scroll.Value = 0
End Sub

Private Sub PPTEvent_PresentationOpen(ByVal Pres As Presentation)
Scroll.Value = 0
End Sub

Private Sub PPTEvent_SlideShowBegin(ByVal Wn As SlideShowWindow)
Scroll.Value = 0
End Sub

Private Sub PPTEvent_SlideShowEnd(ByVal Pres As Presentation)
Scroll.Value = 0
End Sub

I have set up breakpoints for each one but they never get executed. Does
anyone know why?

 

[Shyam Pillai]

The code will only work if you initialize the eventhandler code. Take a look
at the following page:
Make PPT respond to events
http://www.rdpslides.com/pptfaq/FAQ00004.htm