E
Erik
I have successfully created a PowerPoint presentation
with 2 embedded Flash animations on PowerPoint XP. An
individual with PowerPoint 2000 can view only the first
embedded flash. An individual with PowerPoint 2001 (Mac)
could not see either.
What do I need to do to make this work?
Here is an excerpt of the code...
Sub OnSlideShowPageChange()
Dim swf As ShockwaveFlash
Set swf = Slide4.ShockwaveFlash1
swf.Playing = False
swf.Rewind
swf.Play
swf.Playing = True
Dim swf2 As ShockwaveFlash
Set swf2 = Slide50.ShockwaveFlash2
swf2.Playing = False
swf2.Rewind
swf2.Play
swf2.Playing = True
End Sub
Private Sub ShockwaveFlash1_OnReadyStateChange(ByVal
newState As Long)
Dim swf As ShockwaveFlash
Set swf = Slide4.ShockwaveFlash1
swf.Playing = True
End Sub
Private Sub ShockwaveFlash2_OnReadyStateChange(ByVal
newState As Long)
Dim swf2 As ShockwaveFlash
Set swf2 = Slide50.ShockwaveFlash2
swf2.Playing = True
End Sub
with 2 embedded Flash animations on PowerPoint XP. An
individual with PowerPoint 2000 can view only the first
embedded flash. An individual with PowerPoint 2001 (Mac)
could not see either.
What do I need to do to make this work?
Here is an excerpt of the code...
Sub OnSlideShowPageChange()
Dim swf As ShockwaveFlash
Set swf = Slide4.ShockwaveFlash1
swf.Playing = False
swf.Rewind
swf.Play
swf.Playing = True
Dim swf2 As ShockwaveFlash
Set swf2 = Slide50.ShockwaveFlash2
swf2.Playing = False
swf2.Rewind
swf2.Play
swf2.Playing = True
End Sub
Private Sub ShockwaveFlash1_OnReadyStateChange(ByVal
newState As Long)
Dim swf As ShockwaveFlash
Set swf = Slide4.ShockwaveFlash1
swf.Playing = True
End Sub
Private Sub ShockwaveFlash2_OnReadyStateChange(ByVal
newState As Long)
Dim swf2 As ShockwaveFlash
Set swf2 = Slide50.ShockwaveFlash2
swf2.Playing = True
End Sub