ShockwaveFlash1 ne charge pas (résolu)

[roybaf]

Bonsoir à tous,

Quelqu'un pourrait me dire pourquoi mon code ne fonctionne pas ou pour quelle raison mon anim flash ne charge pas?

Merci à tous.

Private Sub ShockwaveFlash1_OnReadyStateChange(ByVal newState As Long)
ShockwaveFlash1.Movie = ThisWorkbook.Path & "\a.swf"
'Lecture
ShockwaveFlash1.Play
End Sub

y aurait-il un moyen pour que le swf soit enregistré dans le classeur directement?

 

[Mytå]

Re : ShockwaveFlash1 ne charge pas

Salut le forum

Un lien : Piloter une animation Flash en VBA

Mytå

 

[PMO2]

Re : ShockwaveFlash1 ne charge pas

Bonjour,

Essayez de remplacer votre code par le code suivant

Private Sub ShockwaveFlash1_GotFocus()
Me.ShockwaveFlash1.Movie = ThisWorkbook.Path & "\a.swf"
End Sub

puis cliquez sur le ShockwaveFlash.

********************
Ou alors, pour incorporer un ShockwaveFlash en tant qu'OLEobject dans une feuille Excel, voir l'exemple joint.

 

[roybaf]

Re : ShockwaveFlash1 ne charge pas

Merci à vous.