Internet Explorerをフルスクリーンで表示する
Excel VBAマクロでIEを自動操作する際、画面サイズをフルスクリーンで表示させることも可能です。
フルスクリーン(全画面表示)をすることで通常画面から、以下のように切り替わります。
■動作
・ウィンドウを最大化
・アドレスバーを非表示
・メニューバーを非表示
・ツールバーを非表示
・ステータスバーを非表示
・ウィンドウを最大化
・アドレスバーを非表示
・メニューバーを非表示
・ツールバーを非表示
・ステータスバーを非表示
IEをフルスクリーンで表示する、元に戻すサンプルコード
Sub sample_IE_FullScreen()
Dim objIE As InternetExplorer
'■IEを起動
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible = True
'■指定したURLに飛び、Webサイトの表示を待つ
objIE.navigate "https://vba-create.jp/"
Call Call_IE_WaitTime
'■IEの画面サイズをフルスクリーン(全画面表示)する
objIE.FullScreen = True
'■IEの画面サイズを、通常画面表示する
objIE.FullScreen = False
End Sub
注意点
- こちらのコードだけでは動作しません。
下記の読み込み待ちのパーツ化したコードが必要です。
VBAでIE操作「ブラウザの読込待ち」処理をパーツ化する【エクセルマクロ】 - 手作業で F11 キーを押したフルスクリーン表示(全画面表示)とは異なります。
→その為、 F11 キーを押下しても反応ありません。 - 手作業で F11 キー押した形の動作は、シアターモードにする必要があります。
- マクロを使用せずに、通常画面サイズへ戻すためには、以下どちらかの手順しかありません。
・Windows+ Dでデスクトップ表示する。
・Alt + F4で強制終了する。



コメント