How to Maximizing IE window in VBA

How to maximize IE window in VBA

The posted code opens a site normal size.

Code:

Option Explicit
Sub Campus_map()
Dim Msg As String, Ans As Variant
     
    Msg = "Would you like to open the Lebanon VA Campus Map?"
     
    Ans = MsgBox(Msg, vbYesNo, "Vocational Services Reminder")
     
    Select Case Ans
         
    Case vbYes
    'Message informs user that the process is running.
    MsgBox "Please wait, while I connect to the Lebanon VA Campus Map.", vbInformation, "Voc. Rehab - Referals"
Dim ie As Object
    Set ie = CreateObject("INTERNETEXPLORER.APPLICATION")
    ie.NAVIGATE "https://v2.interactive.medmaps.com/site/lebanonva"
     ie.Visible = True
     
    End Select
End Sub

The user found this very helpful & easy to follow video. Here is the link:

https://www.ozgrid.com/forum/forum/h...-window-in-vba

Users can adapt my code to their own use. There are 2 parts to the code. 1) this piece of code is placed at the beginning General Declaration (module).

Code:

Option Explicit
Declare Function apiIEsize Lib "user32" Alias "ShowWindow" (ByVal hwnd As Long, ByVal cmdshow As Long) As Long
Global Const sw_maximize = 3

2) The size of the IE window IE is a 1 line piece of code

Code:

apiIEsize ie.hwnd, 3

is this case 3 = Maximized.

The user posted the entire code to show where I placed that one line:

Code:

Sub Campus_map()
Dim Msg As String, Ans As Variant
     
    Msg = "Would you like to open the Lebanon VA Campus Map?"
     
    Ans = MsgBox(Msg, vbYesNo, "Vocational Services Reminder")
     
    Select Case Ans
         
    Case vbYes
    'Message informs user that the process is running.
    MsgBox "Please wait, while I connect to the Lebanon VA Campus Map.", vbInformation, "Voc. Rehab - Referals"
Dim ie As Object
    Set ie = CreateObject("INTERNETEXPLORER.APPLICATION")
    ie.NAVIGATE "https://v2.interactive.medmaps.com/site/lebanonva"
     ie.Visible = True
     apiIEsize ie.hwnd, 3
    End Select
End Sub

Obtained from the OzGrid Help Forum.

Solution provided by FrankM.