ZOOM WEBBROWSER

JPAULISTACWB 16/08/2013 09:42:56
#427630
Bom dia meus caros,

Estou com um problema, preciso dar o famoso [Ô]Zoom[Ô] em um controle webbrowser dentro de um formulário no VBA. Da mesma forma em que fazemos no Internet Explorer, indo em Exibir/Zoom.

Grato desde já!!!
GANDA.NICK 20/08/2013 23:01:28
#427870
Olá

Coloque um uma combobox e um webbrower e teste aí

Option Explicit

Private Const OLECMDID_OPTICAL_ZOOM As Long = 63
Private Const OLECMDEXECOPT_DONTPROMPTUSER As Long = 2

Private Sub PopularCombo()
    Me.Combo1.AddItem [Ô]50[Ô]
    Me.Combo1.AddItem [Ô]100[Ô]
    Me.Combo1.AddItem [Ô]200[Ô]
End Sub

Private Sub Combo1_Click()
    WebBrowser1.ExecWB OLECMDID_OPTICAL_ZOOM, OLECMDEXECOPT_DONTPROMPTUSER, CLng(Me.Combo1.Text), 0
End Sub

Private Sub Form_Load()
    Call PopularCombo
    WebBrowser1.Navigate [Ô]http://www.google.com[Ô]
End Sub



Veja se isto o ajuda!!

Té +
Faça seu login para responder
Voltar