[VBA] Make AppActivate('d) window maximised

[Snypa]

Hello,

I have this code:

Sub OpenBrowserLink(link)

    Dim sh As Object, oWin As Object, IE As Object
    
    Set sh = CreateObject("Shell.Application")
    
    'Find an IE Window
    For Each oWin In sh.Windows
        If TypeName(oWin.Document) = "HTMLDocument" Then
            Set IE = oWin
            Exit For
        End If
    Next
    
    AppActivate IE.Document.title, True
    
    IE.navigate link, CLng(2048)

End Sub

It works as intended, finds a MSIE window, sets focus on it, opens a new tab. However, if the window is minimised, it does not maximise it. How can I achieve this? Google has not been helpful.

 

[shknbk2]

Put this code at the top of the code module:

Private Declare PtrSafe Function ShowWindow Lib "user32" _
         (ByVal hwnd As LongPtr, ByVal nCmdSHow As Long) As Long
Const SW_SHOWMAXIMIZED = 3

Then, somewhere after your For loop, put this call:

ShowWindow IE.hwnd, SW_SHOWMAXIMIZED

 

[Snypa]

Great! I found something similar to this on google but I couldn't get it working. What you posted worked, many many thanks!