bonjour
tu peux tester cette macro pour adapter l'image GIF à la taille du WebBrowser
Code:
Private Sub UserForm_Initialize()
Dim S As String
Dim Hauteur As Long, Largeur As Long
Largeur = WebBrowser1.Width * 96 / 72
Hauteur = WebBrowser1.Height * 96 / 72
S = 'C:\\Documents and Settings\\michel\\dossier\\fourmiz.GIF'
WebBrowser1.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
bonne journée
MichelXld
Message édité par: michelxld, à: 06/11/2005 22:19