右クリックメニューの変更（CommandBars）

最終更新日：2018-03-13

右クリックメニューの変更（CommandBars）

セルを右クリックした時のショートカットメニューを変更します、

右クリックメニューからマクロを起動できるようにすることで利便性が向上します・

シートモジュールに以下を追加します。

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
　　Dim cmdBra1 As CommandBarControl
　　Dim cmdBra2 As CommandBarControl
　　'標準状態にリセット
　　Application.CommandBars("Cell").Reset
　　'全てのメニューを一旦削除
　　For Each cmdBra1 In Application.CommandBars("Cell").Controls
　　　　cmdBra1.Visible = False
　　Next
　　'以下で、新規のメニューを追加
　　Set cmdBra1 = Application.CommandBars("Cell").Controls.Add()
　　With cmdBra1
　　　　.Caption = "AA"
　　　　.FaceId = 2
　　　　.OnAction = "AA"
　　End With
　　Set cmdBra1 = Application.CommandBars("Cell").Controls.Add(Type:=msoControlPopup)
　　With cmdBra1
　　　　.Caption = "BB"
　　End With
　　Set cmdBra2 = cmdBra1.Controls.Add()
　　With cmdBra2
　　　　.Caption = "BB1"
　　　　.FaceId = 3
　　　　.OnAction = "BB1"
　　End With
　　Set cmdBra2 = cmdBra1.Controls.Add()
　　With cmdBra2
　　　　.Caption = "BB2"
　　　　.FaceId = 4
　　　　.OnAction = "BB2"
　　End With
　　Application.CommandBars("Cell").ShowPopup
　　Application.CommandBars("Cell").Reset
　　Cancel = True
End Sub

標準モジュールに以下を追加

Sub AA()
　　ActiveCell.Value = "AA"
End Sub
Sub BB1()
　　ActiveCell.Value = "BB1"
End Sub
Sub BB2()
　　ActiveCell.Value = "BB2"
End Sub

OnActionで呼ぶプロシージャーは、必ず標準モジュールに作成します。

ここでは、単にアクティブセルに文字を入れているだけです。

これで、シートモジュールを追加したシートでセルを右クリックすると

VBA Excelサンプル

このように表示され、メニューをクリックすると、対応する文字がセルに入るようになります。

コマンドバー.Controls.Add()

Addに指定する引数です。

名前	説明
Type	指定したコマンドバーに追加するコントロールの種類を指定します。使用できる定数は、MsoControl クラスの msoControlButton、msoControlEdit、msoControlDropdown、msoControlComboBox、msoControlPopup のいずれかです。
Id	組み込みのコントロールを表す整数を指定します。この引数を 1 に設定するか省略すると、指定した種類の空白のカスタムコントロールがコマンドバーに追加されます。
Parameter	組み込みのコントロールの場合、この引数はコンテナーアプリケーションでコマンドを実行するときに使用されます。カスタムコントロールの場合、この引数を使用して、Visual Basic のプロシージャに情報を渡したり、Tag プロパティの 2 番目の値のようなコントロールの情報を格納することができます。
Before	コマンドバーにおける新しいコントロールの位置を表す数字を指定します。新しいコントロールは、指定した位置にあるコントロールの直前に挿入されます。この引数を省略すると、コントロールは指定したコマンドバーの末尾に追加されます。
Temporary	True を指定すると、新しいコントロールが一時的なものになります。このコントロールは、コンテナーアプリケーションの終了と同時に自動的に削除されます。この引数を省略すると、既定値の False になります。

上記サンプルでは、"BB"は親メニューになりますので、

Type:=msoControlPopup

これを指定しています。

他で省略している場合は、

Type:=msoControlButton

となります。

コントロールのメンバーについて

Type:=msoControlButtonの場合には、アイコンを指定できます。

それが、FaceIdです。

この番号と実際のアイコンについては、「エクセルのアイコン取得」を参照して下さい。

Type毎に、属するメンバー（メソッド、プロパティ）が少しずつ違いますので、詳細はヘルプ等を参照して下さい。