Este fórum está sendo desativado

[NiltoAraujo]

Olà galera !!
Estou com dificuldade em fazer uma macro: em um form adicionei um web Browser1 e em um botão em um frame, gostaria de rolar a barra do webbrowser1 até o final de uma pagina aberta.

Agradeço pela atenção.

[alexandrevba]

Bom dia!!

Oque tentou?

Código: Selecionar todos

Private Sub UserForm_Initialize()
    WebBrowser1.Navigate2 "https://www.google.com.br/"
    
    Do
        DoEvents
    Loop Until Me.WebBrowser1.ReadyState = READYSTATE_COMPLETE
    
    WebBrowser1.Document.body.doscroll
    WebBrowser1.Document.body.doscroll
End Sub

Att