Animer un drapeau sur Userform (VBA)

**signorepel** · 01/07/2013, 15h40

Bonjour cher tous !
Novice en VBA et souhaitant apprendre et comprendre,
j'ai créé un userfor sur lequel j'ai inséré l'icone du drapeau de mon pays,
mais je ne connais pas le code pour qu'il s'anime, automatiquement que le UserForm s'affiche. Aidez-moi à construire le code d'animation s'il vous plaît ! Merci !

**EngueEngue** · 01/07/2013, 15h57

Que veux tu dire par s'animer ?

**signorepel** · 01/07/2013, 16h09

Le rendre "vivant"

**EngueEngue** · 01/07/2013, 16h10

Cool, bah écoute quand tu arriveras à rendre un drapeau "vivant" tu pourras postuler pour le prix Nobel

**PMO2017** · 01/07/2013, 18h54

Bonjour,

Essayez la démarche suivante
1) créez un UserForm1
2) dans sa fenêtre de code, copiez le code suivant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub UserForm_Initialize()
Dim WBS As Object 'WebBrowser
Set WBS = Me.Controls.Add("Shell.Explorer.2")
WBS.Navigate "about:<html><body scroll='no'><img src='http://www.gif-anime.org/im/gif/drapeau/benin/benin3.gif'></img></body></html>"
End Sub

3) lancez le UserForm1

**mercatog** · 01/07/2013, 19h51

PMO2017

Une précision quand même, il est clair qu'une connexion Internet est nécessaire.

**signorepel** · 01/07/2013, 20h28

Bonsoir, j'ai accusé réception de votre code, je l'ai inséré. il fonctionne. Toutefois, le cadre dans lequel il se trouve est assez grand et j'aurais vous que la couleur de fond s'adapte à la couleur du userform. A défaut, c'est un travail que j'ai pas encore fini, mais je vous envoie le projet pour que vous voyiez par vous même. Merci pour l'aide précieuse.

Effectivement, rien n'oblige à avoir nécessairement une connexion internet. Dans ce cas, quel serait le code si l'image gif était sur mon ordinateur (sans connexion) ?

Animer un drapeau sur Userform (VBA) [XL-2007]

Macros et VBA Excel

Vue hybride

Discussions similaires

Partager

Partager