www.youtube.com
http://www.youtube.com/watch?v=y2SnQkNfrNg
.ToolBar プロパティ IE操作 VBA 三流サンプル
http://ie.vba-ken3.jp/Property/ToolBar/
'参照設定 Microsoft Internet Controls(Microsoft Browser Helpers)
'参照設定の方法は、 http://www.ken3.org/cgi-bin/group/vba_ie_object.asp をみてください。
Sub ie_test()
'プロパティのTrue / False を比較するためIEを２つ起動する。
'True用 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 = True 'ツールバーを表示する
'こちらはプロパティをFalseにする。
'違いを見るために objIE2 と変数を切って、False状態にする
Dim objIE2 As InternetExplorer '変数を定義します。
Set objIE2 = CreateObject("InternetExplorer.Application") 'もう１つIEを作成します。
objIE2.Visible = True '見えないと確認できないのでここだけは Trueにします。
objIE2.GoHome 'ページをホームに移動する動作、メソッド
objIE2.Top = 200 '左上 上位置(少し、表示位置を右下に＋)
objIE2.Left = 200 '左上 左位置(少し、表示位置を右下に＋)
objIE2.Width = 800 '横幅
objIE2.Height = 600 '高さ
objIE2.AddressBar = False 'アドレスバーを非表示に
objIE2.MenuBar = False 'メニューバーを非表示に
objIE2.Toolbar = False 'ツールバーを非表示に
End Sub
