embed swf shockwave in Excel 2007

[jasonguppy]

Can someone help me figure out how to imbed a flash file in Excel? I can do it in 2003 but not 2007… if I manually embed a shockwave flash activeX object I can get the .swf file to show but then when I close the file and open it back up the framnum property goes from 0 to -1 and won’t let me change back to 0. So now as a work around I’m thinking of adding the shockwave object on the fly as you open the file but I can only figure out how to attach to a form rather than imbed in a sheet. Again in 2003 the manual insert works fine.

This is my form code that works fine but I would rather not have to pop up a form:

Private Sub UserForm_Initialize()
Me.ShockwaveFlash1.DisableLocalSecurity
Me.ShockwaveFlash1.Movie = "\\Neo\Dev\MotherLoad\Modelx\Flash.swf"
End Sub

This is called from a button:
Sub jrgcode()
UserForm2.Show
End Sub

I tried adding this to get the flash file imbedded in the worksheet on open

Private Sub Workbook_Open()
With Sheet6.OLEObjects.Add(ClassType:="ShockwaveFlash.ShockwaveFlash.9", _
Link:=False, DisplayAsIcon:=False, Left:=135.75, Top:=63, Width:= _
446.25, Height:=290.25)
>> this line is not working, I can’t figure out how to add the .movie property
'.Object.Movie = \\Neo\Dev\MotherLoad\Modelx\Flash.swf
End With
End Sub

Any ideas on how to get this thing to “stick” in Excel 2007??

 

[Joe4]

Duplicate:
http://www.mrexcel.com/forum/showthread.php?t=335198

If you have any clarifications or anything to add to the original question, please post it in the same (original) thread.