Tutorial: Rewinding Flash in Powerpoint 2000 and Powerpoint XP (Step 4)

Once your cursor is in the appropriate spot, cut and paste (or type) the following code into the window:

Sub OnSlideShowPageChange()
' Copyright (c) 2001 Rick Turoczy
' Rewinding code for
' Powerpoint 2000 and Powerpoint XP
' presentations with Flash movies
' http://www.flashgeek.com/
' This code is free for use and editing as needed.

Dim swf As ShockwaveFlash
Dim FrameNum As Long

' Define the slide and the Flash object to whom you'd like to speak
Set swf = Slide1.ShockwaveFlash1

' Tell it to stop playing.
swf.Playing = False

' Tell it to return to the first frame (swf.Rewind)
swf.GotoFrame (1)

' Tell it to start playing again
swf.Play

End Sub

Congratulations! You've just created a macro. Now, let's hook that puppy on to something so that it can do some work for you.

Note: If you have a number of embedded movies, please see this additional information.

Previous | Next
<1...2...3...4...5>