6/6 .MenuBar プロパティ IE操作 VBA 三流サンプル

自動更新で、IE9に更新されたので
ここに 検索エンジンから誤誘導されて来る人が多いので、
頭に一言

ツールの設定をしたくてもツールが出ないので困った・・

そんな時は、

http://www.youtube.com/watch?v=QDHTTAGPasg
www.youtube.com

ア．Altキーを押して一時的にメニューを使う
一番簡単なのが Altキー(左右どちらでも)を押すと、一時的にメニューが表示されます。
ここから、表示・ツール・・で常時表示させててもいいし

イ．ツールから設定で常時出すには？
それか、
タブの隣、空白のところで右クリック、ツールを出す
以上、よろしくお願いします。

ここから下は、VBA で IEを起動して メニューバーやツールバーの表示をテストです。

---

www.youtube.com
http://www.youtube.com/watch?v=5YV_kxkmDDM

.MenuBar プロパティ IE操作 VBA 三流サンプル
http://ie.vba-ken3.jp/Property/MenuBar/

'参照設定 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     'メニューバーを表示する
    
'こちらはプロパティを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     'メニューバーを非表示に

End Sub