PowerPointの右クリックを支配せよ：WindowBeforeRightClickによるUX拡張の極意
業務自動化の現場において、多くのエンジニアが「リボンメニュー」にボタンを追加することに固執する。しかし、考えてみてほしい。思考のスピードでスライドを編集しているとき、マウスを画面上部まで往復させるその数秒が、どれほどの「思考の断絶」を生んでいるかを。
真の自動化エンジニアは、マウスカーソルの直下、すなわちコンテキストメニューを掌握する。今回は、`Application.WindowBeforeRightClick` イベントをトラップし、右クリックメニューを動的に拡張する「実務特化型UI」の構築術を伝授する。
—
1. なぜ「静的」なアドインではいけないのか
多くのPowerPointアドインは、起動時にリボンメニューを構築する。しかし、これでは「選択しているオブジェクトの種類」に応じてメニューを切り替えるような、きめ細やかなUXは実現できない。
`WindowBeforeRightClick` を使えば、以下の条件でメニューを動的に書き換えられる。
- テキストボックスを選択している時だけ「自動校正ツール」を表示する。
- 複数の図形を選択している時だけ「整列・均等配置ツール」を表示する。
これが、ツールを使う側のストレスをゼロにする「コンテキスト（文脈）に応じた自動化」の正体だ。
—
2. プロダクションコード：堅牢なメニュー制御の実装
この実装の肝は、イベントの二重登録防止と、イベント終了後のクリーンアップだ。これらを怠ると、PowerPointのインスタンスがクラッシュするか、メニューが異常増殖する。
以下のコードを、標準モジュールではなくクラスモジュール（名前：`AppEventClass`）に記述すること。
‘ クラスモジュール: AppEventClass
Public WithEvents App As Application
‘ 右クリック時に発生するイベント
Private Sub App_WindowBeforeRightClick(ByVal Sel As Selection, ByVal Ctrl As Office.CommandBarControl, ByRef Cancel As Boolean)
Dim cmdBar As CommandBar
Set cmdBar = Application.CommandBars(“Context Menu”)
‘ 1. 既存の自作メニューを削除（重複防止の鉄則）
On Error Resume Next
cmdBar.Controls(“【自動化】図形整列を実行”).Delete
On Error GoTo 0
‘ 2. 条件分岐：図形が2つ以上選択されている場合のみコマンドを追加
If Sel.Type = ppSelectionShapes Then
If Sel.ShapeRange.Count >= 2 Then
Dim btn As CommandBarButton
Set btn = cmdBar.Controls.Add(Type:=msoControlButton, Temporary:=True)
With btn
.Caption = “【自動化】図形整列を実行”
.OnAction = “RunAlignShapes” ‘ 標準モジュールのプロシージャを呼ぶ
.FaceId = 405 ‘ アイコン設定
End With
End If
End If
End Sub
呼び出し側の標準モジュール
アプリケーションの起動時に一度だけインスタンスを生成する。
‘ 標準モジュール: Main
Public AppEvents As New AppEventClass
Sub InitializeApp()
‘ これをAuto_Openやアドインの起動処理で呼ぶ
Set AppEvents.App = Application
End Sub
—
3. 実務で「ハマる」ポイントと回避策
① ファイル連携の落とし穴
右クリックメニューから呼び出すマクロ内で、外部のExcelやデータベースと通信する場合、「非同期的な呼び出し」によるエラーに注意が必要だ。PowerPointの右クリックメニューはUIスレッドを占有しやすいため、重い処理は必ず`DoEvents`を挟むか、別のプロセスへ逃がす設計を心がけること。
② `CommandBar`のクリーンアップ
`Temporary:=True` を指定しているため、基本的にはPowerPoint終了時に消えるはずだが、異常終了時にはメニューが残存することがある。開発中は `CommandBars(“Context Menu”).Reset` を実行するデバッグ用マクロを一つ用意しておくのがプロの流儀だ。
③ 保守性を高める「ルーター設計」
`OnAction` に直接長いコードを書くのは言語道断だ。必ず `RunAlignShapes` のような「ルーター（中継用プロシージャ）」を噛ませる。
- ルーターがエラーハンドリングを一手に引き受ける。
- ビジネスロジックは別モジュールに分離する。
これだけで、UIの変更とロジックの修正が独立し、保守性が劇的に向上する。
—
最後に：ツールは「透明」であるべきだ
優れた自動化ツールとは、使う側が「ツールを使っている」ことすら忘れるような、直感的な道具のことだ。右クリック一つで複雑な整列やクレンジングが終わる。その「手癖」に溶け込むインターフェースこそが、あなたの業務を劇的に加速させる。
さあ、今すぐこのコードを実装し、同僚がリボンを探して迷走している間に、あなたは右クリック一つで仕事を終わらせてしまえ。
—
エンジニアへのアドバイス:
もし大規模なチームで展開するなら、このロジックをCOMアドイン（VSTO / C#）へ移植することを推奨する。VBAは強力だが、配布とバージョンの管理において、DLL配布には遠く及ばないからだ。まずはVBAでロジックを磨き、次なるステップへ進め。
