Visual Basic For Applications Tips

メニューバーへのメニューの追加

エクセルのデフォルトメニューにユーザー定義のメニューを追加します。

Sub MenuBarAdd()
　　Dim M_Name As Variant

　　MenuBars(xlWorksheet).Menus.Add Caption:="ユーザーメニュー(&U)"

　　With MenuBars(xlWorksheet).Menus("ユーザーメニュー(&U)")
　　　　.MenuItems.Add Caption:="メニュー１", OnAction:="ProcMenu1"
　　　　With .MenuItems.AddMenu(Caption:="メニュー２").MenuItems
　　　　　　　.Add Caption:="メニュー２−１", OnAction:="ProcMenu21"
　　　　　　　.Add Caption:="メニュー２−２", OnAction:="ProcMenu22"
　　　　　　　.Add Caption:="メニュー２−３", OnAction:="ProcMenu23"
　　　　End With
　　　　.MenuItems.Add Caption:="-" 'セパレータ
　　　　.MenuItems.Add Caption:="メニュー３", OnAction:="ProcMenu3"
　　End With
End Sub

Sub ProcMenu1()
　　MsgBox "ProcMenu1"
End Sub

Sub ProcMenu21()
　　MsgBox "ProcMenu21"
End Sub

Sub ProcMenu22()
　　MsgBox "ProcMenu22"
End Sub

Sub ProcMenu23()
　　MsgBox "ProcMenu23"
End Sub

Sub ProcMenu3()
　　MsgBox "ProcMenu3"
End Sub