応用

ステータスバー/ツールバー/アドレスバー/メニューバーの表示制御

ステータスバー/ツールバー/アドレスバー/メニューバーの表示を切り替えます。

					Sub sample()

						Dim objIE As SHDocVw.InternetExplorer
						Set objIE = CreateObject("InternetExplorer.Application")
						objIE.Visible = True		'可視
						objIE.AddressBar = False	'アドレスバー
						objIE.MenuBar = False		'メニューバー
						objIE.Toolbar = False		'ツールバー
						objIE.StatusBar = False		'ステータスバー

					End Sub