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

ToolBarプロパティは、IE(InternetExplorer)のツールバーを表示するか非表示にするか設定できます。

目次

• ToolBarプロパティとは
• IE(InternetExplorer)のツールバーを表示・非表示するサンプルコード①
  • 実行結果
  • 解説
• IE(InternetExplorer)のツールバーを表示・非表示するサンプルコード②
  • 実行結果
  • 解説
• 利用されているコンテンツ
• InternetExplorerオブジェクトのプロパティ

ToolBarプロパティとは

IEオブジェクトのToolBarプロパティはIE(InternetExplorer)のツールバーを表示するか非表示にするか設定できます。設定する場合は、ブーリアン型(Boolean)の値を使用します。

引数Boolean

IE(InternetExplorer)のツールバーを表示・非表示するサンプルコード①

Sub sample()

  Dim objIE As InternetExplorer

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

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

  MsgBox "現在「ToolBar=True」で設定されています。「OK」を押下すると「False」に設定されIEのツールバーが表示されなくなります。"

　'IE(InternetExplorer)のツールバーを非表示にする
　objIE.ToolBar = False

End Sub

実行結果

①IEを通常通り起動します。(既定値：ToolBar = True)
②メッセージボックスが表示され、「OK」を押下します。
③ToolBarプロパティが「False」に設定され、IE(InternetExplorer)のツールバーだけでなく上部のメニュー全てがが非表示になります。

解説

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を設定することで、ブラウザを表示させます。このときToolBarプロパティは既定値がTrueですので、IEにツールバーが表示されています。

MsgBox "現在「ToolBar=True」で設定されています。「OK」を押下すると「False」に設定されIEのツールバーが表示されなくなります。"

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

'IE(InternetExplorer)のツールバーを非表示にする
objIE.ToolBar = False

こちらは、ToolBarプロパティにFalseを設定しています。AddressBarプロパティ、MenuBarプロパティ、StatusBarプロパティの場合は、各バーが非表示になりましたが、ToolBarプロパティだけは、ツールバーを含む上部のメニュー全てが非表示になります。このプロパティだけ特殊ですので、ご注意ください。

End Sub

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

IE(InternetExplorer)のツールバーを表示・非表示するサンプルコード②

Sub sample()

  Dim objIE As InternetExplorer

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

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

  MsgBox "現在「ToolBar=True」で設定されています。「OK」を押下すると「False」に設定されIEのツールバーが表示されなくなります。"

　'IE(InternetExplorer)のツールバーを非表示にする
　objIE.ToolBar = False

  'IE(InternetExplorer)のアドレスバーを表示にする
  objIE.AddressBar = True
  
  'IE(InternetExplorer)のメニューバーを表示にする
  objIE.MenuBar = True

End Sub

実行結果

①IEを通常通り起動します。(既定値：ToolBar = True)
②メッセージボックスが表示され、「OK」を押下します。
③ToolBarプロパティは「False」、AddressBarプロパティとMenuBarは「True」に設定されますが、IE(InternetExplorer)のアドレスバーだけが表示されます。

解説

こちらでは、ツールバー・アドレスバー・メニューバーの状態だけに割愛して説明しています。

'IE(InternetExplorer)のツールバーを非表示にする
objIE.ToolBar = False

'IE(InternetExplorer)のアドレスバーを表示にする
objIE.AddressBar = True
  
'IE(InternetExplorer)のメニューバーを表示にする
objIE.MenuBar = True

サンプルコード①では、ToolBarプロパティにFalseを設定すると上部メニュー全てが非表示になりました。こちらでは、非表示にした後にアドレスバーとメニューバーを表示させる処理をしています。
しかし、結果を見るとアドレスバーだけが表示されているのが分かります。ToolBarプロパティを非表示にした場合、AddressBarプロパティが適用されるということを覚えておきましょう。

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

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

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

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