VBAのIE制御

TopLevelContainerプロパティは、指定したオブジェクトがトップレベルのオブジェクトである場合にTrueを返します。

目次

• TopLevelContainerプロパティとは
• IE(InternetExplorer)がトップレベルのオブジェクトであるかどうかチェックするサンプルコード
  • 実行結果
  • 解説
• 利用されているコンテンツ
• InternetExplorerオブジェクトのプロパティ

TopLevelContainerプロパティとは

IEオブジェクトのTopLevelContainerプロパティは、指定したオブジェクトがトップレベルのオブジェクトである場合にTrueを返します。・・・が、詳しい詳細については調査中です。詳しい内容が分かりましたら、更新します。本家サイトの解説は以下の通りです。

IEオブジェクトがフレーム内にある場合、そのオブジェクトはFalseを返し、InternetExplorerのは常にTrueを返します。

IE(InternetExplorer)がトップレベルのオブジェクトであるかどうかチェックするサンプルコード

Sub sample()

  Dim objIE As InternetExplorer

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

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

  'IE(InternetExplorer)がトップレベルのオブジェクトであるかどうかチェックする
  If objIE.TopLevelContainer = True Then
  
    MsgBox "トップレベルのオブジェクトです。"

  Else
  
    MsgBox "トップレベルのオブジェクトではありません。"

  End If

End Sub

※ドラッグ(スワイプ)すると全体を確認できます。

実行結果

メッセージボックスで「トップレベルのオブジェクトです。」と表示されます。

解説

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を設定することで、ブラウザを表示させます。

'IE(InternetExplorer)がトップレベルのオブジェクトであるかどうかチェックする
If objIE.TopLevelContainer = True Then
  
  MsgBox "トップレベルのオブジェクトです。"

Else
  
  MsgBox "トップレベルのオブジェクトではありません。"

End If

※ドラッグ(スワイプ)すると全体を確認できます。

こちらは、If...Then...Else ステートメントを利用して条件分岐しています。条件としてTopLevelContainerプロパティでトップレベルのオブジェクトかどうかでチェックしており、「True」の値が返されますので、MSgBox関数で「トップレベルのオブジェクトです。」と表示されます。

End Sub

※ドラッグ(スワイプ)すると全体を確認できます。

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

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

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

• 現在、利用されているコンテンツはありません。

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