応用

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

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

						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