EXCEL VBA メニューバー

EXCEL２００７以降のメニューバーの話題

参照： 新しいメニューを追加する


参考： エクセル2013基本講座：自作のマクロをリボンに登録する


参考：Excelのメニューに自作したマクロを追加するには　＠IT

参考：OnActionで実行するプロシージャに引数を渡す

Sub Sample3()
　　With Application.CommandBars("Cell").Controls.Add()
　　　　.Caption = "コマンド1"
　　　　.OnAction = "'myMacro3 ""印刷""'"
　　End With
　　With Application.CommandBars("Cell").Controls.Add()
　　　　.Caption = "コマンド2"
　　　　.OnAction = "'myMacro3 ""保存""'"
　　End With
End Sub　　　

Sub myMacro3(buf As String)
　　MsgBox buf & "を実行します"
End Sub