I think you can only do this with code. Assuming the name used is the default try having a button action run this:
Code:
Sub playme()
Dim osld As Slide
Set osld = SlideShowWindows(1).View.Slide
osld.Shapes("ShockwaveFlash1").OLEFormat.Object.Playing = True
End Sub