SlideShowNextSlide event

  • Thread starter Thread starter avi
  • Start date Start date
A

avi

Hello,

I try to run automatically an application at the end of the slide
show. I use:-

Private Sub App_SlideShowNextSlide(ByVal Pres As Presentation)
MsgBox "Welcome!"
Call Shell("C:\Program Files\Flash Movie Player\fmp.exe C:\word
\MainForm.swf")
End Sub

Nothing happens with the code above, not even the msgbox display. I
must miss something

I use PPT2003 or 2007

Thanks

Avi
 
The function signature does not seem correct. SlideShowNextSlide event takes
in a SlideShowWindow as its argument and not a Presentation object. Change
that. Also check if App has been initialized properly and defined WithEvents
of type Application.

- Chirag

PowerShow - View multiple PowerPoint slide shows simultaneously
http://officeone.mvps.org/powershow/powershow.html
 
What Chirag said, plus if you want to hook the end of show then use:

Private Sub App_SlideShowEnd(ByVal Pres As Presentation)

End Sub



--
Regards,
Shyam Pillai

Animation Carbon: Copy/Paste/Share animation libraries.
www.animationcarbon.com
 
Back
Top