==[[VBA 起動中のInternetExplorerを操作する]]==[[IE]] | {{category [[Category:VBA}}]]===起動中のIEのツールバー、メニューバーを表示する起動中の[[IE]]のツールバー、メニューバーを表示する===
*参考
**http://www.ken3.org/vba/backno/vba156.html
Set shl = CreateObject("Shell.Application")
For Each w In shl.[[Windows]] If TypeName(w.document) = "HTMLDocument[[HTML]]Document" Then
Set ie = w
ie.Toolbar = 1
ie.MenuBar [[Menu]]Bar = True
End If
Next