Hallo Leute,
ich habe leider so gut wie keine Ahnung von vba und bin verdonnert worden in kürzester Zeit ein kleines script zu schreiben, welches eingebettete shockwaveflash objects zurückspult und abspielt wenn man den slide öffnet.
Das funktioniert so schon ganz gut mit folgendem Sub auf den eingebetteten Objects :
Sub OnSlideShowPageChange()
Dim swf As ShockwaveFlash
Dim FrameNum As Long
Set swf = Slide1.ShockwaveFlash1
swf.GotoFrame (1)
swf.Stop
swf.Playing = False
swf.Play
swf.Playing = True
End Sub
Mein Problem : Andere Leute sollen sich per Drag & Drop bzw. Copy/ Paste ganze Slides aus meinem ppt holen inkl. den Flash Objekten und bei sich benutzen.
In diesem Moment wird aber die fest zugewiesene Slide variabel,
ich weiss ja nicht wo sie sic die slide reintuen in ihrem ppt.
Set swf = Slide1.ShockwaveFlash1
Im Prinzip sollte das Script also funktionieren wenn statt
Slide1.ShockwaveFlash1 dort "aktuellerSlide".ShockwaveFlash1 stehen würde.
Ich habe zwar funktionen gefunden die einem angeblich das aktuelle Slide returnen aber ich konnte diese nicht erfolgreich einsetzen.
Ein weglassen des Slide1 , also nur swf = ShockwaveFlash1 hat sehr komische Nebeneffekte verursacht die nicht akzeptabel sind.
funktionieren sollte das ganze sicher in office2003, alle anderen Versionen sind erst mal egal.
Bin sehr verbundne für schnelle Hilfe ich kann das
auch bezahlen solange es in einem angemessenen Rahmen bleibt.
Gruss
Eckhard |