Attribute VB_Name = "Module1"
'■　マクロ５００連発＜第２段＞
'
'　コマンドバーコントロールのIDを指定してメニューを実行する
'
'  Copyright(C) 2000 Sunago
'
'  　コマンドバーコントロールのIDがわかる場合、直接IDを指定して
'　メニューを実行できます。指定IDのCommandBarControlを実行するには、
'  FindControlメソッドを用いてオブジェクト変数を取得し、
'　Executeメソッドを実行します。
'
'　　コマンドバーコントロールのIDが分らない場合は、
'　application.commandbars(1).controls(1).controls("印刷ﾌﾟﾚﾋﾞｭｰ(&V)").execute
'　のように、メニューを直接指定すると実行できますが、バージョンが
'  異なると動作しなくなる場合があります。そのような時にはこのマクロ
'  のようにIDを指定して実行するとよいでしょう。
'
'　※コマンドバーコントロールのIDを調べるには、マクロ066を使って調べてください。
'
'
Option Explicit

Sub Macro1()
Dim myMenu

    Set myMenu = Application.CommandBars.FindControl _
                    (Type:=msoControlButton, Id:=109)   '印刷ﾌﾟﾚﾋﾞｭｰ(&V)
    myMenu.Execute
    Set myMenu = Nothing
End Sub