vba open IE maximized

[austin350s10]

I am trying to write a script that when triggered opens IE fully maximized. Only problem is my script (below) only opens IE in a small window.

How do I make this script open IE maximized?

Dim iExplorer
Set iExplorer = CreateObject("InternetExplorer.Application") 'Late bound
iExplorer.navigate "http://www.google.com"
iExplorer.Visible = True

 

[VoG]

Try this

Declare Function apiShowWindow Lib "user32" Alias "ShowWindow" _
            (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

Global Const SW_MAXIMIZE = 3
Global Const SW_SHOWNORMAL = 1
Global Const SW_SHOWMINIMIZED = 2

Sub test()
Dim objIE As Object
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible = True
apiShowWindow objIE.hwnd, SW_MAXIMIZE
objIE.navigate "http://www.google.com"
End Sub

Adapted from http://www.mrexcel.com/forum/showthread.php?t=118049