Maximize Internet Explorer Window with VBA (1 Viewer)

ajetrumpet · May 2, 2009

There are two ways to maximize the window when running Internet Explorer:

1) Under "RUN" in the property sheet for the IE icon, choose "Maximize" instead of the default, which is "Normal" (only applies to Vista users).

2) Insert this code into a normal module in your database:

Code:

Option Explicit

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

Then, when you want to maximize the window (at whatever point you want), write this line of code:

Code:

apiShowWindow ie.hwnd, SW_MAXIMIZE

You first though, have to declare the IE object and such, but that is how you do it.

seopositive2 · May 29, 2009

try something like this:

At the top of the code window (outside any subs) enter

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_SHOWMINIMIZED = 2
Global Const SW_SHOWNORMAL = 1

Then in your sub procedure, use something like this:

Code:

Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible = 1
apiShowWindow objIE.hwnd, SW_MAXIMIZE

Maximize Internet Explorer Window with VBA (1 Viewer)

ajetrumpet

Banned

seopositive2

New member

Similar threads

Users who are viewing this thread