Bonjour à tous

Il est aussi possible d'adapter l'image à la taille du WebBrowser avec le code de SilkyRoad.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
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 = "http://www.developpez.net/forums/images/logo16.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
Mais comment procéder pour adapter un PDF à la taille du WebBrowser ou supprimer les barres de défilement.

Je ne trouve pas de solution, pourriez-vous m’aider svp.