Modifier le zoom d'un champ Web browser

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

Exemple pour un affichage à 25% :

Code:

---

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

---