accessing current slide in vba for flashobject rewinding

[eckhard]

Hi all,

I am doing several powerpoint (2003) files with around 6 slides.
Each holds a ShockwaveFlashObject.

The Flash File need to be rewinded when i open a slide,
this works just fine :

Sub OnSlideShowPageChange()
Dim swf As ShockwaveFlash
Dim FrameNum As Long
Set swf = Slide2.ShockwaveFlash1
swf.GotoFrame (1)
swf.Playing = False
swf.Play
swf.Playing = True
End Sub

Now i want others to be able to open my powerpoint, take a couple of
slides
out via copy/paste and put them in theirs.

Since the script assigns "Set swf = Slide2.ShockwaveFlash1",
it wont work for them if they have the Flash on another Slide but
(here) "Slide2".

Is there a way to set a "current" Slide in the script like : "Set swf
= this.ShockwaveFlash1" ?

Or can i set a general script for all shockwaveflash objects wich is
Slide independent ?

best regards
eckhard

 

[PPTMagician]

Maybe this?

http://skp.mvps.org/ppt00030.htm#1

 

[John Wilson]

You can get the current slide (n) with
n=ActivePresentation.SlideShowWindow.View.CurrentShowPosition