www.youtube.com
http://www.youtube.com/watch?v=Sp8p-fm-C7U
.AddressBar プロパティ IE操作 VBA 三流サンプル
http://ie.vba-ken3.jp/Property/AddressBar/
objIE.AddressBar = True 'アドレスバーを表示する
objIE.AddressBar = False 'アドレスバーを非表示に
'参照設定 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 'アドレスバーを表示する
'こちらはプロパティをFalseにする。
'違いを見るために objIE2 と変数を切って、False状態にする
Dim objIE2 As InternetExplorer '変数を定義します。
Set objIE2 = CreateObject("InternetExplorer.Application") 'オブジェクトを作成します。
objIE2.Visible = True '見えないと確認できないのでここだけは Trueにします。
objIE2.GoHome 'ページをホームに移動する動作、メソッド
objIE2.Top = 200 '左上 上位置
objIE2.Left = 200 '左上 左位置
objIE2.Width = 800 '横幅
objIE2.Height = 600 '高さ
objIE2.AddressBar = False 'アドレスバーを非表示に
End Sub
