Be the first user to complete this post
|
Add to List |
VBA-Excel: Maximize, Minimize and Restore Internet Explorer (IE) using Microsoft Excel.
To Maximize, Minimize and Restore Internet Explorer (IE) using Microsoft Excel, follow the steps mentioned below
Steps:Create the object of Internet Explorer
- Make the Internet Explorer visible
- Navigate to the specified URL
- Wait till the browser is busy and page is fully loaded
- Create WshShell (Windows Script Host) object
- Use send keys function to maximize, minimize and restore operations
Create the object of Internet Explorer
Set objIEBrowser = CreateObject("InternetExplorer.Application")
Make the Internet Explorer visible
objIEBrowser.Visible = True
Navigate to the specified URL
objIEBrowser.Navigate2 "www.google.com"
Wait till the browser is busy and page is fully loaded
Do While objIEBrowser.Busy
Loop
Create WshShell (Windows Script Host) object
Set oShell = CreateObject("WScript.Shell")
Use send keys function to maximize, minimize and restore operations
oShell.SendKeys "% x" ‘ MAXIMIZE
oShell.SendKeys "% n" ‘ MINIMIZE
oShell.SendKeys "% r" ‘RESTORE
Complete Code:
Function FnMaxMinRestoreIE() Dim objIEBrowser Set objIEBrowser = CreateObject("InternetExplorer.Application") objIEBrowser.Visible = True objIEBrowser.Navigate2 "www.google.com" Do While objIEBrowser.Busy Loop Set oShell = CreateObject("WScript.Shell") oShell.SendKeys "% x" ‘ Maximize oShell.SendKeys "% n" ‘Minimize oShell.SendKeys "% r" ‘ Restore End Function
Also Read:
- VBA-Excel: Working with Bookmarks- Insert text After Bookmark
- VBA-Excel: Appending Text to an Existing Word Document - at the End
- VBA-Excel: Open word document using GetObject()
- VBA-Excel - Merger - Merge or Combine Many Word Documents Into One