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
1
2
| ShockwaveFlash1.Movie = "C:\demoFlash.swf"
ShockwaveFlash1.Play |
Modifier la couleur de fond de l'animation
ShockwaveFlash1.BackgroundColor = RGB(245, 125, 250)
Zoomer dans l'animation
1
2
| 'Zoom+
ShockwaveFlash1.Zoom 95 |
1
2
| 'Zoom -
ShockwaveFlash1.Zoom 105 |
Modifier la qualité d'affichage
1
2
3
4
| ShockwaveFlash1.Quality2 = "Low"
'les 2 autres possibilités :
'High
'Medium |
Quelques actions sur les séquences
1
2
| 'arreter une lecture
ShockwaveFlash1.Stop |
1
2
| 'Lance une lecture
ShockwaveFlash1.Play |
1
2
| 'Arrete et replace l'animation au début
ShockwaveFlash1.ReWind |
Récupérer les informations d'une zone de texte
1
2
| 'Récupére le texte qui apparaît dans le champ "ZoneText1"
MsgBox ShockwaveFlash1.GetVariable("ZoneText1") |
Modifier une zone de texte
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:
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"
1
2
| 'pour masquer , affectez la valeur 0
ShockwaveFlash1.TSetProperty "bouton", 7, "0" |
1
2
| 'Pour afficher , affectez la valeur 1
ShockwaveFlash1.TSetProperty "bouton", 7, "1" |
Affecter une transparence à l'objet "bouton"
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"
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"
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"
1
2
| ShockwaveFlash1.TSetProperty "bouton", 10, CStr(ScrollBar2.Value)
'CStr(ScrollBar2.Value) correspond à une valeur entre 0 et 360 |
bon week end
michel
[Tutoriel] Piloter une animation Flash dans Excel
Répondre avec citation
Partager