How to make the WebBrowser control to scroll down automatically?

[dsellos]

Please someone help me.
For several days I seek a solution to create the command in VBA.

I am looking for a code that makes the page scroll down without using the mouse or keyboard. When the page loads, scroll down to the position I specified. The page will open in a WebBrowser on a UserForm.

Can you help me?
Thanks.

 

[SkipVought]

Hi,

What application are you coding in?

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}

 

[dsellos]

Hi,

I am creating a web browser to view some pages from the server of my company in Excel. I am using VBA.

Thank you

 

[SkipVought]

What code do you have?

What library have you loaded to control the browser objects?

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}

 

[dsellos]

Look at this page.

http://www.dailydoseofexcel.com/archives/2004/10/05/webbrowser-control/

The code is not working.

 

[SkipVought]

I also asked for YOUR CODE, please.

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}

 

[dsellos]

Hey... There is the code.

Private Sub UserForm_Initialize()

WebBrowser.Navigate2 "

http://www.nytimes.com/"

Do
DoEvents
Loop Until Me.WebBrowser.ReadyState = READYSTATE_COMPLETE

WebBrowser.Document.body.doscroll
WebBrowser.Document.body.doscroll

End Sub

 

[dsellos]

Someone can help me?