[MichelXld]

bonjour

cet exemple permet d'adapter l'image a la taille du Webbrowser et de na pas afficher les barres de défilement

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.JPG'

WebBrowser1.Navigate _
'about:<IMG WIDTH=' & _
Largeur & ' HEIGHT=' & Hauteur & _
' SRC='' & S & '''
End Sub

bonne journée
MichelXld