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で強制終了する。
コメント