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

 

[cerfani]

you need to import a winapi function... look here...

https://stackoverflow.com/questions...ce=google_rich_qa&utm_campaign=google_rich_qa

 

[cjcass]

ok, so where exactly do the bits of code go, obviously not like I've got them below!!

Private Declare Function ShowWindow Lib "user32" _
         (ByVal hwnd As Long, ByVal nCmdSHow As Long) As Long
        Const SW_SHOWMAXIMIZED = 3
    
    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
    
    ShowWindow IE.hwnd, SW_SHOWMAXIMIZED

 

[cerfani]

well regardless of your code let me explain and you should be able to figure it out...

You need to import a Windows API function first... put this at top... you need to call a function that does not exist in the standard vba references... the function is in a dll that is used to control windows... so you need code to tell vba where the function is, what the name of the function is, and you need to describe the parameters it uses... so the vba compiler will know where to go...

'/ Win API declaration
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdSHow As Long) As Long
Const SW_SHOWMAXIMIZED = 3

You are declaring also a constant to use later in the function... the constant is just a number that tells the function how to act... and this function apparently requires you to pass the value 3 in order to tell it to maximize the window

So somewhere in your code you creating an instance of IE...

Dim IE As Object
Set IE = CreateObject("internetexplorer.application")

so after that in order to set the window state you then do... (has to be after you create IE for obvious reasons)

ShowWindow IE.hwnd, SW_SHOWMAXIMIZED

or

ShowWindow IE.hwnd, 3

 

[cjcass]

ok, where does the following code reside?
obviously not in my macro...

'/ Win API declaration
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdSHow As Long) As Long
Const SW_SHOWMAXIMIZED = 3

 

[cerfani]

correct, you cant declare a function inside another function/subroutine... so put it anywhere outside the Sub ... End Sub

i should have been more specific when i said "at the top" ... my bad

 

[cjcass]

So is that Insert > Module in the VB Editor?

 

[cerfani]

no you dont need to... the code itself imports the function

this code here... Lib "user32"

tells vba to go to user32.dll in the windows dlls

you might want to read a little here to get some background on what you are doing... i hope you dont fall asleep trying to read it

http://www.jkp-ads.com/articles/apideclarations.asp
https://docs.microsoft.com/en-us/do.../com-interop/walkthrough-calling-windows-apis

 

[cjcass]

Can you be more specific please, have entered the code after my macro and it's not playing (I'm not advanced in vba!)

Sub Macro250()
'
' Macro250 Macro
'


    Dim IE As Object
    Set IE = CreateObject("internetexplorer.application")
    IE.Visible = True
    IE.Navigate "http://www.google.com"
    
    ShowWindow IE.hwnd, SW_SHOWMAXIMIZED
    
    Do While IE.Busy: DoEvents: Loop
    Do While IE.ReadyState <> 4: DoEvents: Loop
    
    End Sub
    
    '/ Win API declaration
    Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdSHow As Long) As Long
    Const SW_SHOWMAXIMIZED = 3
    
    End Sub

 

[cerfani]

Can you be more specific please, have entered the code after my macro and it's not playing (I'm not advanced in vba!)

[COLOR=#008000]'IMPORT WINAPI FUNCTIONS HERE[/COLOR]
Sub Macro250()
[COLOR=#008000]' YOU CANT IMPORT IN HERE! :([/COLOR]
' Macro250 Macro
'


    Dim IE As Object
    Set IE = CreateObject("internetexplorer.application")
    IE.Visible = True
    IE.Navigate "http://www.google.com"
    
    ShowWindow IE.hwnd, SW_SHOWMAXIMIZED
    
    Do While IE.Busy: DoEvents: Loop
    Do While IE.ReadyState <> 4: DoEvents: Loop
End Sub
[COLOR=#008000]'IMPORT WINAPI FUNCTIONS HERE TOO[/COLOR]
'/ Win API declaration
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdSHow As Long) As Long
Const SW_SHOWMAXIMIZED = 3

look above, i deleted the extra 'End Sub' at the end