応用
ステータスバー/ツールバー/アドレスバー/メニューバーの表示制御
ステータスバー/ツールバー/アドレスバー/メニューバーの表示を切り替えます。
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
