SlideShowNextSlide event

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

avi - 26 Oct 2007 23:35 GMT

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

Reply to this Message

Chirag - 27 Oct 2007 16:51 GMT

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

> Hello,
>
[quoted text clipped - 15 lines]
>
> Avi

Reply to this Message

Shyam Pillai - 27 Oct 2007 17:41 GMT

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

Signature

Regards,
Shyam Pillai

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

> Hello,
>
[quoted text clipped - 15 lines]
>
> Avi

Reply to this Message

avi - 31 Oct 2007 02:48 GMT

Thanks

Reply to this Message