「VBA 起動中のInternetExplorerを操作する」の版間の差分
ナビゲーションに移動
検索に移動
| (同じ利用者による、間の1版が非表示) | |||
| 1行目: | 1行目: | ||
| − | ==VBA 起動中のInternetExplorerを操作する== | + | ==[[VBA 起動中のInternetExplorerを操作する]]== |
| − | [[IE]] | + | [[IE]] | [[Category:VBA]] |
| − | === | + | ===起動中の[[IE]]のツールバー、メニューバーを表示する=== |
*参考 | *参考 | ||
**http://www.ken3.org/vba/backno/vba156.html | **http://www.ken3.org/vba/backno/vba156.html | ||
| 11行目: | 11行目: | ||
Set shl = CreateObject("Shell.Application") | Set shl = CreateObject("Shell.Application") | ||
| − | For Each w In shl.Windows | + | For Each w In shl.[[Windows]] |
| − | If TypeName(w.document) = " | + | If TypeName(w.document) = "[[HTML]]Document" Then |
Set ie = w | Set ie = w | ||
ie.Toolbar = 1 | ie.Toolbar = 1 | ||
| − | ie. | + | ie.[[Menu]]Bar = True |
End If | End If | ||
Next | Next | ||
2020年2月16日 (日) 04:33時点における最新版
VBA 起動中のInternetExplorerを操作する
IE |
起動中のIEのツールバー、メニューバーを表示する
例
Dim shl As Object
Dim w As Object
Dim ie As Object 'InternetExplorer
Set shl = CreateObject("Shell.Application")
For Each w In shl.Windows
If TypeName(w.document) = "HTMLDocument" Then
Set ie = w
ie.Toolbar = 1
ie.MenuBar = True
End If
Next
© 2006 矢木浩人
