gif animé

gothc · 2 Septembre 2005

bonjour le forum

je cherche le module qui contrôle le gif animé sur une page excel

le module navigateur web microsoft
ne marche pas

merci pour votre aide et bon vendredi

MichelXld · 3 Septembre 2005

rebonjour Gothc

peux tu donner plus d'explications :
à quel moment veux tu changer la couleur ? lors de l'ouverture du classeur ? lors d'un clic sur un bouton ? suite à un evenement dans la feuille ? ....

pour quoi utilises tu l'evenement 'WebBrowser1_StatusTextChange' ?

pour info , le WebBrowser doit etre prealablement chargé avant de modifier la couleur

par exemple

Sheets('Feuil1').WebBrowser1.Navigate _
'about:<html><body scroll='no'><img src='C:\\image.gif'></img></body></html>'
Do
DoEvents
Loop While Sheets('Feuil1').WebBrowser1.Busy
Sheets('Feuil1').WebBrowser1.Document.bgColor = RGB(224, 224, 224)

tu peux aussi utiliser l'evenement 'DocumentComplete' du WebBrowser
la couleur change dès qu'un chargement est terminé dans le WebBrowser

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Sheets('Feuil1').WebBrowser1.Document.bgColor = RGB(224, 224, 224)
End Sub

bonne journée
MichelXld

Message édité par: michelxld, à: 03/09/2005 16:24

gif animé

gothc

Guest

MichelXld

XLDnaute Barbatruc

Discussions similaires

gif animé

gothc

Guest

MichelXld

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency