jasonguppy
New Member
- Joined
- May 23, 2008
- Messages
- 8
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??
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??