If/Then Script not working

[speechpath]

Does anyone know why this script will work in PPT Office XP, but not in PPT for Office 2004 on Mac?

Do I need to modify it for it to work on a Mac?

Thanks

Here's the script:

Sub OnSlideShowPageChange()
If ActivePresentation.SlideShowWindow.View.CurrentShowPosition = 3 Then
ActivePresentation.SlideShowWindow.View.GotoSlide 5
End If
End Sub

 

[Steve Rindsberg]

Does anyone know why this script will work in PPT Office XP, but not in PPT for Office 2004 on Mac?

Do I need to modify it for it to work on a Mac?

Thanks

Here's the script:

Sub OnSlideShowPageChange()
If ActivePresentation.SlideShowWindow.View.CurrentShowPosition = 3 Then
ActivePresentation.SlideShowWindow.View.GotoSlide 5
End If
End Sub

That appears to rely on events.

Events are supported in VB6 (the version of VBA that's included in Windows PPT 2000
and up) but not in VB5 (what all Mac PPT versions have, except those that don't have
VBA at all).


================================================
Steve Rindsberg, PPT MVP
PPT FAQ: www.pptfaq.com
PPTools: www.pptools.com
================================================