なぜ「ショートカットメニュー」のカスタマイズが重要なのか
実務において、マウスの移動距離を減らすことは疲労軽減と作業効率化に直結します。Excelの右クリックで表示される「ショートカットメニュー」は、選択している対象に応じた最適なコマンドを提示してくれます。しかし、標準メニューには「よく使う機能」が足りない、あるいは「不要な機能」が多すぎて邪魔だと感じたことはありませんか？VBAを使えば、この右クリックメニューを自分の業務に合わせてカスタマイズし、最強の作業環境を作り上げることができます。
基礎知識：CommandBarsオブジェクトとは
Excelの右クリックメニューは、VBAでは「CommandBars」というオブジェクトで管理されています。「Cell」や「Row」、「Column」といった特定の名前を持つメニューを指定し、そこに独自のボタンを追加したり、既存のボタンを削除したりすることが可能です。
重要なのは、カスタマイズしたメニューは自動的には元に戻らないという点です。プログラムで変更を加えた後は、終了時やリセット用のマクロを用意して、元の状態に戻す「後始末」が必須となります。
実装の考え方
右クリックメニューを操作する際は、以下のステップで行います。
1. 対象となるメニュー（例: “Cell”）を特定する。
2. 既存のメニューに「制御項目（Control）」を追加する。
3. 追加したボタンに「実行したいマクロ（OnAction）」を紐付ける。
4. 終了時に、追加したメニューを「削除」してデフォルトの状態に戻す。
サンプルプログラム：右クリックで「特定の定型処理」を実行する
以下のコードは、セルを右クリックした際に、選択範囲を特定の背景色で塗りつぶす独自メニューを追加する例です。
※必ず標準モジュールに記述してください。
[Code]
‘ 右クリックメニューに独自のボタンを追加する
Sub AddCustomMenu()
Dim cmdBar As CommandBar
Dim cmdBtn As CommandBarButton
‘ セル右クリック時のメニューを指定
Set cmdBar = Application.CommandBars(“Cell”)
‘ 既存のメニューと区切るためにセパレータを追加
Set cmdBtn = cmdBar.Controls.Add(Type:=msoControlButton, Temporary:=True)
With cmdBtn
.Caption = “選択範囲を強調表示” ‘ メニューに表示される名前
.OnAction = “HighlightSelection” ‘ 実行するマクロ名
.Style = msoButtonCaption
End With
End Sub
‘ 追加したボタンで実行される処理
Sub HighlightSelection()
Selection.Interior.Color = RGB(255, 255, 0) ‘ 黄色で塗りつぶす
End Sub
‘ 追加したメニューを削除して元に戻す（終了時などに実行）
Sub ResetCustomMenu()
Application.CommandBars(“Cell”).Reset
End Sub
[/Code]
応用と注意点
・Temporary引数の活用：コード内の「Temporary:=True」は非常に重要です。これを指定することで、Excelを終了した際に自動的に追加したメニューが削除されるようになります。うっかり消し忘れてメニューが汚染されるのを防ぐ保険です。
・既存機能の削除：特定のメニューを誤操作させたくない場合、CommandBars(“Cell”).Controls(“削除したい項目名”).Delete で消去することも可能ですが、多用するとユーザーの混乱を招くため、あくまで「追加」をメインに検討してください。
・現場での運用：この手法は、チームで共有するツールに組み込むと非常に喜ばれます。ただし、アドイン（.xlam）として配布し、ブックを開いた時に自動追加、閉じた時に自動削除されるように設計すると、より洗練されたツールになります。
まずはシンプルなメニュー追加から始め、自分だけの「右クリックで完結する業務環境」を構築してみてください。
