Piloter une animation Flash dans Excel

[MichelXld]

Bonjour


Ce classeur à pour objectif de présenter quelques exemples de pilotage d'une animation Flash dans Excel

Pour manipuler les objets constituants l'animation , vous devez connaître le nom de ces objets
Dans la démo , l'animation Flash 'demoFlash.swf' contient
une zone de Texte nommée 'ZoneText1
et un bouton nommé 'bouton'



Charger et jouer l'animation dans l'USF
ShockwaveFlash1.Movie = ThisWorkbook.Path & '\\demoFlash.swf'
ShockwaveFlash1.Play


Modifier la couleur de fond de l'animation
ShockwaveFlash1.BackgroundColor = RGB(245, 125, 250)


Zoomer dans l'animation
Zoom+
ShockwaveFlash1.Zoom 95
Zoom -
ShockwaveFlash1.Zoom 105


Modifier la qualité d'affichage
ShockwaveFlash1.Quality2 = 'Low'
les 2 autres possibilités :
High
Medium


Quelques actions sur les séquences
arreter une lecture
ShockwaveFlash1.Stop
Lance une lecture
ShockwaveFlash1.Play
Arretes et replace la lecture au début
ShockwaveFlash1.ReWind


Récupérer les informations sur une zone de texte
Récupérer le texte qui apparaît dans le champ 'ZoneText1'
MsgBox ShockwaveFlash1.GetVariable('ZoneText1')


Modifier une zone de texte
modifier la zone de texte nommée 'ZoneText1'
ShockwaveFlash1.SetVariable 'ZoneText1', 'Bonjour le forum XLD'




La méthode TSetProperty permet de modifier les propriétés d'un objet dans l'animation

ShockwaveFlash1.TSetProperty 'LeNomDeLObjet ', 'IndexPropriété' , 'LaValeurAffectée'

remarque :
Pour tous les types d'action , les valeurs affectées doivent etre de type 'String'

La liste des index de propriété
0 position horizontale de l'objet dans l'animation
1 position verticale de l'objet
2 non testé
3 non testé
4 non testé
5 non testé
6 Transparence
7 Masquer / Afficher
8 Largeur de l'objet
9 Hauteur de l'objet
10 Rotation de l'objet



quelques exemples d'utilisation de la méthoe TsetProperty :


Masquer ou Afficher un objet nommé 'bouton'
masquer (valeur affectée = '0' )
ShockwaveFlash1.TSetProperty 'bouton', 7, '0'

afficher (valeur affectée = '1' )
ShockwaveFlash1.TSetProperty 'bouton', 7, '1'


Affecter une transparence à l'objet 'bouton'
ShockwaveFlash1.TSetProperty 'bouton', 6, Str(ScrollBar1.Value)
Str(ScrollBar1.Value) correspond à une valeur entre 0 et 100 %


Modifier les dimensions de l'objet 'bouton'
Largeur de l'objet = 8
Hauteur de l'objet = 9
ShockwaveFlash1.TSetProperty 'bouton', 8, Str(90)
ShockwaveFlash1.TSetProperty 'bouton', 9, Str(40)


Modifier la position horizontale et verticale , de l'objet 'bouton'
Position horizontale ( index propriété= 0)
Position verticale ( index propriété= 1)
ShockwaveFlash1.TSetProperty 'bouton', 0, Str(40)
ShockwaveFlash1.TSetProperty 'bouton', 1, Str(200)


Affecter une rotation à l'objet 'bouton'
ShockwaveFlash1.TSetProperty 'bouton', 10, Str(ScrollBar2.Value)
Str(ScrollBar2.Value) correspond à une valeur entre 0 et 360 °




Juste pour information , l'animation Flash utilisée pour cette démo à été créée par une macro Excel , sans Flash , en utilisant la DLL MingX

http://www.swfkit.com/mingx/download.html


d'autres exemples de création d'animations Flash avec Excel :

Lien supprimé

Le site très bien documenté d'Eric Schrafstetter

Ce lien n'existe plus




bon week end
MichelXld [file name=PiloterAnimationFlashDansExcel.zip size=28184]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/PiloterAnimationFlashDansExcel.zip[/file]

 

[ChTi160]

Salut MichelXld
Bonjour le Forum

tout d'abord merci Michel pour cette nouvelle Demo sur le pilotage d'une animation Flash dans Excel
je signale que lors du test de cette DEMO j'ai eu un message D'erreur 'Projet ou bibliothèque introuvable'
j'ai donc dans chaque procèdure des boutons concernés modifié le texte Str en Cstr et tout est rentré dans l'ordre
Encore merci Michel pour cette démonstration
Bon WeekEnd

 

[MichelXld]

bonjour cher Jean-Marie

merci pour avoir testé le classeur et pour avoir relevé ce problème

ci joint le classeur modifié suite à tes remarques , en espérant que maintenant tout fonctionne

testé avec
Win98 & Excel97
WinXP & Excel2002


je te souhaite un bon week end
MichelXld [file name=PiloterAnimationFlashDansExcel_20050716111529.zip size=28342]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/PiloterAnimationFlashDansExcel_20050716111529.zip[/file]

Message édité par: MichelXld, à: 16/07/2005 13:32

 

[Hervé]

Bonjour michel, chti, le forum



Merci Michel pour cette démo très didactique.

Salut

 

[JJM]

Bonjour MichelXld, ChTi160, Hervé, le Forum,

Superbe démonstration, mais maintenant plus rien ne m'étonne de ta part, désolé...

Si ce n'était pas trop demander, te serait-il possible de joindre le fichier 'demoFlash.fla', comme cela la démo serait vraiment complète, en étudiant les sources des deux côtés.

Les possibilités sont très intéressantes, surtout qu'il est possible de capturer des animations Flash. J'ai installé un utilitaire qui peut le faire à la demande, si ça vous intéresse je pourrai vous en donner le lien.

Bonne journée et encore des trucs !

 

[MichelXld]

bonjour Jean-Marie , Hervé et JJM

merci pour vos messages

JJM , il n'y a pas de fichier .FLA , mais un .XLS ...;o) .
Comme je l'indiquais dans mon premier message , l'animation Flash est créée par une macro Excel , grace à la DLL MingX

La macro utilisée pour créer cette animation Flash est dans le Module2 du classeur démo


tu peux télécharger la librairie MingX dans ce lien

http://www.swfkit.com/mingx/download.html


bon dimanche
MichelXld

 

[JJM]

Bonjour MichelXld, le Forum,

Oups...
Merci pour l'info, c'est très intéressant.
Mais j'avoue préférer créer des animations Flash avec Macromedia Flash MX 2004, les possibilités sont beaucoup plus étendues.
Puis les afficher à l'aide d'un WebBrowser.

Par contre, est-il possible d'agir de façon interactive avec les animations Flash, directement à partir du WebBrowser ? En utilisant MingX, comme dans les exemples ?

 

[michel_m]

Bonjour Michel, Jean Marie Hervé, JJM

Merci Michel pour cette démo, flash est encore inconnu pôur moi. J'ai attendu d'être au boulot car je n'ai pas l'ADSL à la maison

Le site de l'université d'Angers est effectivement très interessant avec ses démos et polycops.

Par contre, impossible de dézipper le freeware Microsoft 'puissance 3'.

Merci pour tout

Amicalement

Michel

 

[_Thierry]

bonjours mes amis

J'avis vu ton Fil Michel, mais trop à la bourre !!! Excelllent aussi

Mais sinon en 'Flash' j'ai juste eu ce truc que j'ai mis dans Excel


Ce lien n'existe plus


Just for the Fun !!!!

Bonne Journée
@+Thierry

 

[JJM]

Bonjour _Thierry, MichelXld, michel_m, Hervé, le Forum,

Merci _Thierry pour ta démo, c'est vraiment amusant.
Il suffit d'intégrer un contrôle supplémentaire 'Shockwave Flash Object' pour visualiser une animation Flash en indiquant son chemin dans la propriété 'Movie'.

Mais ce qui serait bien, c'est de pouvoir récupérer des résultats de choix à partir d'une animation Flash. J'en ai par exemple qui présentent un menu amusant en 3D qui tourne sur lui même, pour présenter ses options de sélection.