Maximise browser window??

[SDSU_Jim]

I am using the following code to open a browser window and go to a web site:

Sub DoBrowseBlackboard()

Dim ie As Object

Set ie = CreateObject("Internetexplorer.Application")

ie.Visible = True

ie.Navigate "HTTP://myweb.site"

End Sub

Only, the window opens 1/4 size. Anyone have any suggestions on how to force a full screen window??
I tried "Application.WindowMaximum" with no results.

Thanks!!

 

[hayati]

perhaps

Hi,

I am sure there must be a better way but this might work until you find a better solution:

Sub DoBrowseBlackboard()

Dim ie As Object

Set ie = CreateObject("Internetexplorer.Application")

ie.Visible = True

ie.Navigate "HTTP://myweb.site"

   ie.Height = 800
   ie.Width = 1200

End Sub

Hope it helps,

Cheers,
Matt

 

[SDSU_Jim]

THANKS, That worked great (slight modification to 750X1100). The window comes up slightly ofset (off the right side), but that isn't a big problem, the window is still usable.

Again THANKS!!