Private Sub CommandButton1_Click()
Dim fichier, maxWidth&, PToPx#, H&
fichier = Application.GetOpenFilename("images Files (*.jpg;*.png;*.gif;*.tiff), *.jpg;*.png;*.gif;*.tiff", 1, "ouvrir un fichier")
maxWidth = 100
With ActiveWindow.ActivePane
PToPx = (.PointsToScreenPixelsY(72) - .PointsToScreenPixelsY(0)) / 72
End With
With WebBrowser1
.Document.body.Style.margin = 0
With .Document.getelementbyid("image1")
.src = fichier
.Style.Width = maxWidth & "px"
H = .offsetheight
End With
.Width = maxWidth / PToPx + 15
.Height = H / PToPx
End With
End Sub
Private Sub UserForm_Activate()
With WebBrowser1
.Navigate "about:blank"
.Document.write "<body><img id=image1></img/></body>"
End With
End Sub