Bonjour

Vous trouverez ci joint quelques exemples pour piloter une animation Flash dans Excel


Pour manipuler les objets constituants l'animation , vous devez connaître le nom de ces objets .
Dans les exemples qui suivent , l'animation Flash "demoFlash.swf" contient :
Une zone de Texte nommée "ZoneText1"
et
Un bouton nommé "bouton"


Vous devez préalablement Ajouter un objet ShockwaveFlash dans la feuille de calcul (ou dans un UserForm), afin de visualiser l'animation .

Dans la feuille de calcul :
Cliquez sur le bouton "Autres controles" dans la boite à outils Controles
Sélectionnez "ShockWave Flash Object"
Placez et redimensionnez l'objet dans la feuille de calcul


Dans un userForm :
Si l'objet ShockwaveFlash n'apparait pas dans la boite à outils,
Faites un clic droit dans la boite à outils
Sélectionnez l'option "Controles supplémentaires"
Cochez la ligne "ShockWave Flash Object"
Cliquez sur OK pour valider
Placez et redimensionnez l'objet dans l'UserForm






Charger et jouer l'animation dans un USF

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
ShockwaveFlash1.Movie = "C:\demoFlash.swf"
ShockwaveFlash1.Play


Modifier la couleur de fond de l'animation

Code : Sélectionner tout - Visualiser dans une fenêtre à part
ShockwaveFlash1.BackgroundColor = RGB(245, 125, 250)


Zoomer dans l'animation

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
'Zoom+
ShockwaveFlash1.Zoom 95
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
'Zoom -
ShockwaveFlash1.Zoom 105


Modifier la qualité d'affichage

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
ShockwaveFlash1.Quality2 = "Low"
'les 2 autres possibilités :
'High
'Medium


Quelques actions sur les séquences

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
'arreter une lecture
ShockwaveFlash1.Stop
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
'Lance une lecture
ShockwaveFlash1.Play
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
'Arrete et replace l'animation au début
ShockwaveFlash1.ReWind


Récupérer les informations d'une zone de texte

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
'Récupére le texte qui apparaît dans le champ "ZoneText1"
MsgBox ShockwaveFlash1.GetVariable("ZoneText1")


Modifier une zone de texte

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
'modifie la zone de texte nommée "ZoneText1"
ShockwaveFlash1.SetVariable "ZoneText1", "Bonjour le forum"




La méthode TSetProperty

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

La synthaxe générale:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
ShockwaveFlash1.TSetProperty "NomObjet ", "IndexPropriété" , "ValeurAffecté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éthode TsetProperty :


Masquer ou Afficher un objet nommé "bouton"

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
'pour masquer , affectez la valeur 0
ShockwaveFlash1.TSetProperty "bouton", 7, "0"

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
'Pour afficher , affectez la valeur 1
ShockwaveFlash1.TSetProperty "bouton", 7, "1"


Affecter une transparence à l'objet "bouton"

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
ShockwaveFlash1.TSetProperty "bouton", 6, CStr(ScrollBar1.Value)
'CStr(ScrollBar1.Value) correspond à une valeur entre 0 et 100 %


Modifier les dimensions de l'objet "bouton"

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
'Largeur de l'objet (index Propriété: 8)
'Hauteur de l'objet (index Propriété: 9)
ShockwaveFlash1.TSetProperty "bouton", 8, "100"
ShockwaveFlash1.TSetProperty "bouton", 9, "40"


Modifier la position horizontale et verticale , de l'objet "bouton"

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
'Position horizontale ( index propriété= 0)
'Position verticale ( index propriété= 1)
ShockwaveFlash1.TSetProperty "bouton", 0, "40"
ShockwaveFlash1.TSetProperty "bouton", 1, "200"


Affecter une rotation à l'objet "bouton"

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
ShockwaveFlash1.TSetProperty "bouton", 10, CStr(ScrollBar2.Value)
'CStr(ScrollBar2.Value) correspond à une valeur entre 0 et 360




bon week end
michel