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