VBAのInternetExplorerオブジェクトのTheaterModeプロパティ

TheaterModeプロパティは、InternetExplorerの全画面表示を設定します。

目次

• IE(InternetExplorer)のシアターモード(キオスクモード)とは
• TheaterModeプロパティとは
• IE(InternetExplorer)をシアターモードにするサンプルコード
  • 実行結果
  • 解説
• 利用されているコンテンツ
• InternetExplorerオブジェクトのプロパティ

IE(InternetExplorer)のシアターモード(キオスクモード)とは

IEのシアターモード(キオスクモード)はウィンドウを全画面表示にする機能のことを言います。シアターモード(キオスクモード)では、全画面ですが、アドレスバーとタブは表示されます。一般的にF11(ファンクションキー)を押下することで画面の切り替えが可能です。

TheaterModeプロパティとは

IEオブジェクトのTheaterModeプロパティはウィンドウを全画面表示に設定できます。設定する場合は、ブーリアン型(Boolean)の値を使用します。
こちらはIEの機能であるシアターモード(キオスクモード)をVBAで操作するものになりますので、設定した後でもF11(ファンクションキー)で通常画面とシアターモードの切り替えが可能です。

また、同じような動作をするFullScreenプロパティもありますので、違いについて十分理解するようにしましょう。

引数Boolean

IE(InternetExplorer)をシアターモードにするサンプルコード

Sub sample()

  Dim objIE As InternetExplorer

  'IE(InternetExplorer)のオブジェクトを作成する
  Set objIE = CreateObject("InternetExplorer.Application")

  'IE(InternetExplorer)を表示する
  objIE.Visible = True

  '指定したURLのページを表示する
  objIE.navigate "http://www.vba-ie.net/"

  '完全にページが表示されるまで待機する
  Do While objIE.Busy = True Or objIE.readyState <> 4
    DoEvents
  Loop

　'完全にドキュメントが読み込まれるまで待機する
　Do Until objIE.document.ReadyState = "complete"
　　DoEvents
　Loop

　'IE(InternetExplorer)を全画面表示にする
　objIE.TheaterMode = True

  MsgBox "現在「TheaterMode=True」で設定されています。「OK」を押下すると「False」に設定されIEの通常画面サイズになります。"

　'IE(InternetExplorer)を通常画面サイズにする
　objIE.TheaterMode = False

End Sub

実行結果

①IEを全画面表示にします。
②メッセージボックスが表示され、「OK」を押下します。
③TheaterModeプロパティが「False」に設定され、IEが通常画面サイズになります。

解説

Sub sample()
　Dim objIE As InternetExplorer

sampleのSubステートメントは引数の設定なしです。次に、Dimステートメントを利用して変数objIEをInternetExplorer型で宣言します。

'IE(InternetExplorer)のオブジェクトを作成する
Set objIE = CreateObject("InternetExplorer.Application")

SetステートメントとCreateObject関数を利用してIEのオブジェクトを作成します。オブジェクト作成によりプロパティやメソッドを利用することができます。

'IE(InternetExplorer)を表示する
objIE.Visible = True

VisibleプロパティにTrueを設定することで、ブラウザを表示させます。

'指定したURLのページを表示する
objIE.Navigate "http://www.vba-ie.net/"

Navigateメソッドの第一引数に「http://www.vba-ie.net/」を設定しています。これにより「VBAのIE制御」サイトのトップページが表示されます。

'完全にページが表示されるまで待機する
Do While objIE.Busy = True Or objIE.ReadyState <> 4
　DoEvents
Loop

こちらは、Do...Loop ステートメントを利用して、ページが完全に読み込まれるまでループさせる処理を行っています。
それぞれのプロパティでWebページが完全に読み込まれた場合の戻り値は、BusyプロパティがFalse、ReadyStateプロパティが4になりますので、たとえBusyプロパティでFalseになったとしてもReadyStateプロパティが4でない場合はループから抜け出すことはできません。
こちらを抜け出すためには、BusyプロパティとReadyStateプロパティの両方が完全に読み込み完了状態になった場合のみとなります。
ということは、ページが完全に読み込まれるまで次の処理へ移動せず待機するということになります。
ちなみにDoEvents関数を設定しているのでは、無限ループに陥った場合に制御を戻しておくためです。

'完全にドキュメントが読み込まれるまで待機する
Do Until objIE.document.ReadyState = "complete"
　DoEvents
Loop

こちらも、Do...Loop ステートメントを利用して、ドキュメントが完全に読み込まれるまでループさせる処理を行っています。objIEオブジェクトのReadyStateプロパティは読み込み完了時に4を返しますが、HTMLDocumentオブジェクトのReadyStateプロパティは"complete"を返します。
どのオブジェクトのReadyStateプロパティかによって戻り値が異なりますので注意が必要です。ここでは、"complete"を返したときにループ処理を抜けるような処理をしています。

'IE(InternetExplorer)を全画面表示にする
objIE.TheaterMode = True

こちらは、TheaterModeプロパティにTrueを設定することで、ウィンドウを全画面表示にします。

MsgBox "現在「TheaterMode=True」で設定されています。「OK」を押下すると「False」に設定されIEの通常画面サイズになります。"

こちらは、MSgBox関数を利用してメッセージボックスが表示されます。「OK」を押下すると次の処理へ移ります。

'IE(InternetExplorer)を通常画面サイズにする
objIE.TheaterMode = False

こちらは、TheaterModeプロパティにFalseを設定することで、ブラウザを通常の画面サイズに変更しています。

End Sub

最後はEndステートメントを利用してsampleプロシージャを終了させます。

利用されているコンテンツ

TheaterModeプロパティは、あまり利用しませんが覚えておきましょう。

• IEウィンドウの最大化（フルスクリーン）

InternetExplorerオブジェクトのプロパティ