右クリックメニューの変更（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で呼ぶプロシージャーは、必ず標準モジュールに作成します。

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

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

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

コマンドバー.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です。

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

エクセル内のアイコンを取得します。「右クリックメニューの変更」のFaceIdとして使用します。Subsample() ConststartNoAsInteger=1'開始番号を指定 ConststopNoAsInteger=50'終了番号を指定 DimcmdBarAsCommandBar DimcmdBarCtlAsCommandBarControl D…

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