imbedding swf shockwave activex object

[jasonguppy]

I can imbed a .[COLOR=blue! important][COLOR=blue! important]swf [COLOR=blue! important]file[/COLOR][/COLOR][/COLOR] in my excel 2007 spreadsheet using the [COLOR=blue! important][COLOR=blue! important]shockwave [COLOR=blue! important]flash[/COLOR][/COLOR][/COLOR] object but when I save/close/open the file the framenum property is set to -1, my [COLOR=blue! important][COLOR=blue! important]flash [COLOR=blue! important]file[/COLOR][/COLOR][/COLOR] does not display, and I can't change back to 0. Any ideas how to get the 0 to stick?

thx

 

[jasonguppy]

I can imbed a swf file in my excel 2007 spreadsheet using the shockwave object but when I save/close/open the file the framenum property is set to -1, my flash does not display, and I can't change back to 0. Any ideas how to get the 0 to stick?

thx

 

[jasonguppy]

To give more detail on this... I can do this just fine 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.
<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o> </o>
This is my form code that works fine but I would rather not have to pop up a form:
<o> </o>
Private Sub UserForm_Initialize()
Me.ShockwaveFlash1.DisableLocalSecurity
Me.ShockwaveFlash1.Movie = "\\Neo\Dev\MotherLoad\Modelx\Flash.swf"
End Sub
<o> </o>
This is called from a button:
Sub jrgcode()
UserForm2.Show
End Sub
<o> </o>
I tried adding this to get the flash file imbedded in the worksheet on open
<o> </o>
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
<o> </o>
Any ideas on how to get this thing to “stick” in Excel 2007??