カスタマイズしたメニューにアクセスキーを表示する

　Dim objCB As CommandBar
　Dim objCBCtrl As CommandBarControl
　
　Set objCB = Application.CommandBars("Worksheet Menu Bar")
　
　On Error Resume Next
　objCB.Controls("テスト_メニューの追加(&M)").Delete
　On Error GoTo 0
　
　Set objCBCtrl = objCB.Controls.Add(Type:=msoControlPopup, Temporary:=True)
　objCBCtrl.Caption = "テスト_メニューの追加(&M)"
　
　With objCBCtrl
　　
　　.Controls.Add Type:=msoControlButton
　　With .Controls(1)
　　　.Caption = "テスト_コマンドA(&A)"
　　　.OnAction = "TestCmdA"
　　End With
　　
　　.Controls.Add Type:=msoControlButton
　　With .Controls(2)
　　　.Caption = "テスト_コマンドB(&B)"
　　　.OnAction = "TestCmdB"
　　End With
　
　
　End With

End Sub