insertion image gif animée excel 2007

**casefayere** · 06/03/2009, 16h59

Bonjour ou re-bonjour à tou(te)s,

je viens de lire pas mal de solution pour intégrer une image gif à un USF mais il est dit d'ajouter le controle WebBrowser, or je ne l'ai vu nulle part dans les references,

Pouvez-vous m'aider......
je suis sous exel 2007
Merci d'avance

**laetitia** · 06/03/2009, 17h55

re casefayere le forum quelques infos trouvees

tu dois prealablement insérer l'objet webBrowser dans l'userForm

Si cet objet n'apparaît pas par defaut dans la boite à outils :

clic droit dans la boite à outils

controles supplémentaires

coches la ligne Microsoft Navigateur Web

cliques que OK pour valider

ensuite tu inseres cette macro dans l'USF

Code :

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

1
2
3
4
5
Private Sub userForm_Initialize() 
 
    webBrowser1.Navigate "C:\monImage.gif" 
 
    End Sub

**casefayere** · 06/03/2009, 18h31

re Laetitia,

Sur excel 2007 le controle microsoft navigateur web n'apparait pas mais j'ai trouvé la solution, c'est le controle microsoft web browser
Ca peut servir à quelqu'un d'autre

Merci

A l'heure qu'il est, bonne soirée

**casefayere** · 06/03/2009, 18h37

Laetitia,

J'ai meme trouvé pour adapter les dimensions et enlever les barres de défilement et ça marche

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub UserForm_Initialize()
Dim S As String
Dim Hauteur As Long, Largeur As Long
 
Largeur = gifanime.Width * 96 / 72 'gifanime est mon webbrowser
Hauteur = gifanime.Height * 96 / 72
S = "C:\Users\Dominique\Downloads\smileys\Divers\3d-cure-oreilles.gif"
 
gifanime.Navigate _
"ABOUT:<HTML><CENTER><HEAD><body scroll='no' LEFTMARGIN=0 TOPMARGIN=0><IMG WIDTH=" & _
Largeur & " HEIGHT=" & Hauteur & _
" SRC='" & S & "'</IMG></BODY></CENTER></HTML>"
End Sub

insertion image gif animée excel 2007

Macros et VBA Excel

Discussions similaires

Partager

Partager