Excel VBA ショートカットメニューにマクロ実行ボタンを作成する

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim ショートカット As CommandBar
Dim コントロール As CommandBarButton
Set ショートカット = Application.CommandBars.Add _
(Name:="ショートカットメニュｰ", Position:=msoBarPopup)
Set コントロール = ショートカット.Controls.Add 
With コントロール
.Caption = "マクロ実行"
.OnAction = "メッセージ1"
End With
With ショートカット
.ShowPopup
.Delete
End With
Cancel = True
End Sub

3行目【Dim コントロール As CommandBarButton】
作成されたCommandBar【ｺﾏﾝﾄﾞﾊﾞｰ】オブジェクトをControls【ｺﾝﾄﾛｰﾙｽﾞ】プロパティで参照してCommandBarControls【ｺﾏﾝﾄﾞﾊﾞｰｺﾝﾄﾛｰﾙｽﾞ】コレクションのAdd【ｱﾄﾞ】メソッドで追加したコントロールを格納する変数「コントロール」をオブジェクト型(Commandbutton)で宣言します。

4行目～5行目【Set ショートカット = Application.CommandBars.Add _
(Name:=”ショートカットメニュｰ”, Position:=msoBarPopup)】
Applicatio【ｱﾌﾟﾘｹｰｼｮﾝ】オブジェクトのCommandBars【ｺﾏﾝﾄﾞﾊﾞｰｽﾞ】コレクションのAddメソッドを使用して「コマンドバー」を追加して、オブジェクト変数の「ショートカット」に代入します。引数Position【ﾎﾟｼﾞｼｮﾝ】にショートカットメニューを表すmsoBarPopup【ｴﾑｴｽｵｰﾊﾞｰﾎﾟｯﾌﾟｱｯﾌﾟ】を設定します。

6行目【Set コントロール = ショートカット.Controls.Add 】
4～5行目で追加した「コマンドバー」(CommandBarオブジェクト)をControls【ｺﾝﾄﾛｰﾙｽﾞ】プロパティで参照してCommandBarControls【ｺﾏﾝﾄﾞﾊﾞｰｺﾝﾄﾛｰﾙｽﾞ】コレクションのAdd【ｱﾄﾞ】メソッドを使用して「コマンドバー」に「コントロール」(CommandBarButtonオブジェクト)を追加して、オブジェクト変数「コントロール」に代入します。「サブメニューを持たないボタンコントロール」を追加するので引数Type【ﾀｲﾌﾟ】は省略します。

7行目【With コントロール】
コマンドバーのコントロールを表すCommandBarButton【ｺﾏﾝﾄﾞﾊﾞｰﾎﾞﾀﾝ】オブジェクトが格納されている変数「コントロール」をWith【ｳｨｽﾞ】ステートメントで指定します。

8行目【.Caption = “マクロ実行”】
CommandBarButton【ｺﾏﾝﾄﾞﾊﾞｰﾎﾞﾀﾝ】オブジェクトのCaption【ｷｬﾌﾟｼｮﾝ】プロパティを使用して、コントロールに表示する文字列を設定します。

9行目【.OnAction = “メッセージ1″】
CommandBarButton【ｺﾏﾝﾄﾞﾊﾞｰﾎﾞﾀﾝ】オブジェクトのOnAction【ｵﾝｱｸｼｮﾝ】メソッドを使用して、コントロールを押したときに実行するマクロ名を文字列で指定します。

11行目【With ショートカット】
「ショートカットメニュー」を表すCommandBarPopup【ｺﾏﾝﾄﾞﾊﾞｰﾎﾟｯﾌﾟｱｯﾌﾟ】オブジェクトが格納されている変数「ショートカット」をWith【ｳｨｽﾞ】ステートメントで指定します。

12行目【.ShowPopup】
CommandBar【ｺﾏﾝﾄﾞﾊﾞｰ】オブジェクトのShowPopup【ｼｮｳﾎﾟｯﾌﾟｱｯﾌﾟ】メソッドを使用して「ショートメニュー」を表すCommandBar【ｺﾏﾝﾄﾞﾊﾞｰ】オブジェクトを表示します。

13行目【.Delete】
CommandBar【ｺﾏﾝﾄﾞﾊﾞｰ】オブジェクトのDelete【ﾃﾞﾘｲﾄ】メソッドを使用して表示したCommandBar【ｺﾏﾝﾄﾞﾊﾞｰ】オブジェクトを削除します。ここで、CommandBar【ｺﾏﾝﾄﾞﾊﾞｰ】オブジェクトを削除しないと次に、BeforeRightClick【ﾋﾞﾌｫｱﾗｲﾄｸﾘｯｸ】イベント（セルをマウス右ボタンでクリックしたとき）が発生したとき、既にあるCommandBar【ｺﾏﾝﾄﾞﾊﾞｰ】オブジェクトをAdd【ｱﾄﾞ】メソッドで作成してしまうのでエラーになります。

15行目【Cancel = True】
BeforeRightClick【ﾋﾞﾌｫｱﾗｲﾄｸﾘｯｸ】イベント（セルをマウス右ボタンでクリックしたとき）をCancel【ｷｬﾝｾﾙ】にTrueを設定することで、イベント処理を中止します。

この処理がない場合は、「オリジナルショートカットメニュー」が表示したあとに「標準のショートカットメニュー」が表示されます。

Private Sub メッセージ1()
MsgBox "ショートカットボタンがクリックされました。"
End Sub