Afficher un GIF dans un WebBroswer
Bonjour,
Je n'arrive pas à afficher le GIF dans le WebBroswer
Quand je lance l'UserForm, au click sur le bouton, le curseur se met en WAIT, rien n'apparait, et au bout de quelques secondes EXCEL se ferme puis s'ouvre
Qu'elle est mon erreur ?
Cordialement
SC
(Exemple joint)
Bonjour le forum,
Chemin du gif à adapter :
fichier = "C:\Users\\2018.gif"
Bonjour,
Merci pour votre aide
J'ai essayé votre fichier, en adaptant l'image
Réaction identique !!!
J'ai mis un msgbox après le WebBrowser2.Navigate … Il est exécuté, mais ensuite, idem !
J'ai mis un ON ERROR Pas d'erreur
J'ai volontairement fait une erreur dans le nom de l'image, idem !
Il semble que l'exécution du WebBrowser soit lancé, et que le traitement continue
Mais après quelques secondes, pareil, Excel se ferme puis s'ouvre
Quand j'ouvre alors le même classeur, et que je vais dans ,e code, le curseur passe un bref moment en BUSSY
Je ne comprend pas
Je vais essayer de d'appeler un site
Bonjour,
En fait, c'était EXCEL qui était mal paramétré
J'ai maintenant une autre question : Peut on mettre le fond invisible ?
J'ai essayé de jouer avec BodyColor, mais les couleurs ne sont pas celles que j'indique Comment faire ?
Re,
Si le GIF n'est pas joint, difficile de juger.
Pour éviter cet inconvénient, il est beaucoup plus simple d'établir un lien sur internet.
Re,
Quand j'exécute votre fichier, je n'ai pas le distinguo entre le fond du WebBroswer et l'image
Et je ne vois pas comment incorporer une couleur quand on se réfère à une image sur un site
J'ai donné à la TextBox la couleur du fond de l'UserForm C'est bien pris en compte
J'ai fait de même pour le WebBroswer, du moins pour la page qui affiche l'image
Mais le fond du WebBroswer n'est pas de le même couleur que l'UserForm ou de la TextBox !
Je fais ceci car je veux afficher le GIF sans que l'on distingue le WebBroswer
Vous pouvez tester en utilisant le fichier que j'ai joint, en changeant la référence du chemin de l'image
Re,
Il suffit d'élargir de cadre de l'userform pour obtenir son fond.
J'ai ensuite changé le fond de cet userform en blanc pour avoir le même fond que le gif.
Re,
Ou : image de fond dans l'userform :
Bonjour,
Merci pour ces informations
C'est bien ce que je veux faire, donner à la page (Body) qui affiche le GIF la même couleur que l'UserForm
Mais comme illustré dans l'image que j'ai joint, autant la TextBox prend la couleur gris claire de l'UserForm, autant la page (Body) ne se met pas dans cette même teinte, mais en vert !!!
Voici la syntaxe
Dim wColor
wFic = "E:\MesDocumentsD\VisualBasic\VB2008\Images&Sons\Image\Travaux.gif"
wColor = Me.BackColor
Me.TextBox1.BackColor = wColor
WebBrowser1.Navigate "ABOUT:<html><body BGCOLOR =" & wColor & " scroll='no'><img src='" & wFic & "'></img></body></html>"Je me demande pourquoi le "body BGCOLOR =" & wColor" ne réagit pas comme le "Me.TextBox1.BackColor = wColor" ???