vba open IE maximized

austin350s10

Active Member
Joined
Jul 30, 2010
Messages
321
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?

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

Some videos you may like

Excel Facts

Waterfall charts in Excel?
Office 365 customers have access to Waterfall charts since late 2016. They were added to Excel 2019.

VoG

Legend
Joined
Jun 19, 2002
Messages
63,650
Try this

Code:
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
 

Subscribe on YouTube

Watch MrExcel Video

Forum statistics

Threads
1,106,404
Messages
5,511,157
Members
408,828
Latest member
Csmnvld

This Week's Hot Topics

  • Turn fraction around
    Hello I need to turn a fraction around, for example I have 1/3 but I need to present as 3/1
  • TIme Clock record reformatting to ???
    Hello All, I'd like some help formatting this (Tbl-A)(Loaded via Power Query) [ATTACH type="full" width="511px" alt="PQdata.png"]22252[/ATTACH]...
  • TextBox Match
    hi, I am having a few issues with my code below, what I need it to do is when they enter a value in textbox8 (QTY) either 1,2 or 3 the 3 textboxes...
  • Using Large function based on Multiple Criteria
    Hello, I can't seem to get a Large formula to work based on two criteria's. I can easily get a oldest value based one value, but I'm struggling...
  • Can you check my code please
    Hi, Im going round in circles with a Compil Error End With Without With Here is the code [CODE=rich] Private Sub...
  • Combining 2 pivot tables into 1 chart
    Hello everyone, My question sounds simple but I do not know the answer. I have 2 pivot tables and 2 charts that go with this. However I want to...
Top