open and maximise an IE window using vba

[cjcass]

Hi,
I have the following code that opens an internet window from Excel using vba, however the IE window never opens up 'maximised' - how can I adapt my code to achieve this?

Dim IE As Object
    Set IE = CreateObject("internetexplorer.application")
    IE.Visible = True
    IE.navigate "http://www.google.com"
    
    Do While IE.Busy: DoEvents: Loop
    Do While IE.readyState <> 4: DoEvents: Loop

 

[cjcass]

Hi,
Replaced my macro with your code above but still not working, am getting:
Compile Error: Only Comments may appear after End Sub, End Function or End Property with the 'Private Declare' line highlighted

 

[cerfani]

this code worked for me... a blank IE winow opened maximized... i have 64 bit excel so it needs to use PtrSafe since 64 bit excel references 64 bit memory addresses and user32 uses 32 bit addresses

Private Declare PtrSafe Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdSHow As Long) As Long



Sub Hey()
    Dim IE As Object
    Set IE = CreateObject("internetexplorer.application")
    ShowWindow IE.hwnd, 3
End Sub

 

[cjcass]

Great, have sussed it - I wasn't inputting the top statement correctly - it now has a line underneath it and it works fine.
Thanks for your time on this, much appreciated

 

[cerfani]

No prob!