Play Shockwave on a double click

[dedine]

Hi,
I inserted a Shockwave file in my PPT document using the Developper Controls. I don't want to SWF to play automaticaly so I set the Properties / Movie to "false".
Now to play movie I must right click and choose Play.

I would like to know if it is possible to play the SWF by double clicking it? (instead of right click)

Thanks

[JohnWilson]

I think you can only do this with code. Assuming the name used is the default try having a button action run this:

Sub playme()
Dim osld As Slide
Set osld = SlideShowWindows(1).View.Slide
osld.Shapes("ShockwaveFlash1").OLEFormat.Object.Playing = True
End Sub

[dedine]

Originally Posted by JohnWilson

I think you can only do this with code. Assuming the name used is the default try having a button action run this:

Sub playme()
Dim osld As Slide
Set osld = SlideShowWindows(1).View.Slide
osld.Shapes("ShockwaveFlash1").OLEFormat.Object.Playing = True
End Sub

I assigned the code to a Command Button to play the SWF. When I tested it, nothing happened.
Here there anything else I should do?

Thanks a lot for you help

[JohnWilson]

It doesn't need to be on a command button, any shape or button will work if you give it an action of run Macro.

Are you testing in slide show mode?
Is the name of the flash object "ShockwaveFlash1"?

Maybe post the slide online somewhere.

[dedine]

Hi,
Yes, I did test it in slide show mode.
And the name of the flash object is "ShockwaveFlash1".
It still doesn't work.
I have attached a PPTX with a SWF inserted and the code added.

Thank you so much for your help.