Discussion :

[lololebricoleur]

Bonjour,

J'utilise un champs activex Microsoft Web Browser pour afficher une page html.

Je cherche comment modifier le zoom de l'affichage en vba ?

Savez vous comment faire cela ?

Merci

[lololebricoleur]

Exemple pour un affichage à 25% :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Command1_Click()
''Zoom to 25%
    Me.WebBrowser0.Object.ExecWB OLECMDID_OPTICAL_ZOOM, _
        OLECMDEXECOPT_DONTPROMPTUSER, CLng(25), vbNull
End Sub