www.youtube.com
http://www.youtube.com/watch?v=MHaseUa6KG0
テストのソースは http://ken3-info.blog.ocn.ne.jp/objie/2009/06/toolbarfalse_57.html を見てください。
IE操作 objIE.Toolbar False の タイミング
'参照設定 Microsoft Internet Controls(Microsoft Browser Helpers)
'参照設定の方法は、 http://www.ken3.org/cgi-bin/group/vba_ie_object.asp をみてください。
Sub ie_test() 'ツールバー だけ 消せない?順番の違い?
'IEの起動
Dim objIE As InternetExplorer '変数を定義します。
Set objIE = CreateObject("InternetExplorer.Application") 'オブジェクトを作成します。
objIE.Visible = True '可視、Trueで見えるようにします。
objIE.GoHome 'ページをホームに移動する動作、メソッド
objIE.Top = 100 '左上 上位置
objIE.Left = 100 '左上 左位置
objIE.Width = 800 '横幅
objIE.Height = 600 '高さ
objIE.AddressBar = True 'アドレスバーを表示する
objIE.MenuBar = True 'メニューバーを表示する
objIE.Toolbar = False 'ツールバーを非表示にする
'↑GoogleやYahooのツールバーだけ消したいのに、URLのアドレスバーも消えた？
End Sub
Sub ie_test002() 'OK パターン。順番の違い?
'IEの起動
Dim objIE As InternetExplorer '変数を定義します。
Set objIE = CreateObject("InternetExplorer.Application") 'オブジェクトを作成します。
objIE.Visible = True '可視、Trueで見えるようにします。
objIE.GoHome 'ページをホームに移動する動作、メソッド
objIE.Top = 100 '左上 上位置
objIE.Left = 100 '左上 左位置
objIE.Width = 800 '横幅
objIE.Height = 600 '高さ
objIE.Toolbar = False 'ツールバーを非表示にする
'↑ツールバーを先に非表示にすると、OK
objIE.AddressBar = True 'アドレスバーを表示する
objIE.MenuBar = True 'メニューバーを表示する
'↑単に、描画の問題なのかなぁ、、OS XP IE8 Excel2003でテストしました。
End Sub
