右クリックメニューの変更（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として使用します。2003までなら、ツールバーが追加されます。2007以降では、リボンのアドインの中に追加されます。ConststartNoAsInteger=1'開始番号を指定 ConststopNoAsInteger=50'終了番号を指定この数値を変更して実行して下さい。

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

同じテーマ「マクロVBAサンプル集」の記事

ストップウォッチ改（1/100秒）（Timer）
重複の無いユニークなデータ作成
 WEBデータの取得方法
右クリックメニューの変更（CommandBars）
エクセルのアイコン取得（FaceID）
素数を求めるマクロ
 入力規則のリスト入力の妥当性判定
 配色を使用したカラー設定を固定カラーに変更
 指定セルに名前定義されているか判定する
 Excel2003(xls)を2007以降(xlsx,xlsm)に変換する（HasVBProject）
ハイパーリンクからファイルのフルパスを取得する

アクセスランキング・・・ランキング一覧を見る

1.最終行の取得（End,Rows.Count）｜VBA入門
2.RangeとCellsの使い方｜VBA入門
3.変数宣言のDimとデータ型｜VBA入門
4.マクロって何？VBAって何？｜VBA入門
5.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
6.Range以外の指定方法（Cells,Rows,Columns）｜VBA入門
7.繰り返し処理（For Next)｜VBA入門
8.セルに文字を入れるとは（Range,Value）｜VBA入門
9.とにかく書いてみよう（Sub,End Sub）｜VBA入門
10.マクロはどこに書くの（VBEの起動）｜VBA入門

ホーム
マクロVBA応用編
マクロVBAサンプル集
右クリックメニューの変更（CommandBars）

このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。

記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。
掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。

VBAサンプル集
右クリックメニューの変更（CommandBars）