【イベントハンドリング】”WithEvents”を用いたPowerPointアプリケーションイベントの捕捉：スライド切り替えや保存時に自作処理を割り込ませる
こんにちは。チーフアーキテクトの私だ。
これまで数々の巨大なPowerPoint自動化案件や、全社共通のプレゼン支援アドインを構築してきた。その中で、多くの開発者がExcel VBAとの挙動の違い、特に「PowerPointにおけるイベントハンドリングの特殊性」で躓いている現場を嫌というほど見てきた。
「マクロブックを開くだけで勝手に動くExcelと違い、PowerPointはイベントの起点が掴みにくい」
「`WithEvents`を書いたはずなのに、なぜかイベントが発火しなくなった」
もし君がこうした泥沼にハマっているなら、それはPowerPointのオブジェクトモデルのライフサイクルを誤解している証拠だ。
今回は、`WithEvents`を完全に手懐け、スライド切り替えやプレゼンテーションの保存といったクリティカルなタイミングで自作ロジックを安全に割り込ませる、プロダクションクオリティの設計手法を授けよう。
—
1. なぜPowerPointのイベント管理は難しいのか？
Excel VBAであれば、`ThisWorkbook`モジュールに`Private Sub Workbook_Open()`と書けばそれだけで動く。しかし、PowerPointには「永続的な専用イベントモジュール」という概念が存在しない。
PowerPointのアプリケーションインスタンス（`Application`オブジェクト）は、アドインや特定のマクロ実行によって動的に生成・変化する。そのため、「どのアプリケーションのイベントを誰が監視しているのか」を開発者が明示的にクラスモジュールで保持させなければならない。
ここで多くの初心者が犯す間違いが、イベントリスナー（`WithEvents`を宣言したクラス）のインスタンスをローカル変数で生成してしまうことだ。プロシージャが終了した瞬間にインスタンスがメモリから消滅（ガベージコレクション）し、イベントがピタッと止まる。
プロとして、このライフサイクルを完璧に制御する設計を構築しよう。
—
2. 堅牢なイベントハンドリングのアーキテクチャ
堅牢なPowerPoint拡張を作るための基本方針は以下の2点だ。
1. イベント監視用クラスの作成: `Application`オブジェクトを `WithEvents` で保持するクラスモジュールを定義する。
2. グローバル変数でのインスタンス保持: そのクラスのインスタンスを標準モジュールでグローバル（あるいはアドインのライフサイクル中ずっと生存するスコープ）に保持し、メモリから消えないようにする。
今回は実務で即座に使えるよう、以下の2つのイベントを捕捉するシステムを構築する。
- `PresentationSave`: 保存時のバリデーションや自動ログ出力
- `SlideShowNextSlide`: スライドショー実行中の画面遷移時のトラッキング
—
3. プロダクションコード実装
以下の手順に従い、VBE（Visual Basic Editor）にコードを配置してほしい。
手順①：クラスモジュールの作成
クラスモジュールを新規作成し、名前を `CEventMonitor` に変更する。ここにイベントのトリガーとなる実処理を記述する。
‘ =================================================================oyan
‘ クラスモジュール名: CEventMonitor
‘ 概要: PowerPointのアプリケーションイベントを捕捉するクラス
‘ =================================================================
Option Explicit
‘ WithEventsキーワードを使い、Applicationオブジェクトのイベントをフックする
Public WithEvents AppEvents As PowerPoint.Application
‘ — イベント1: プレゼンテーション保存時 —
Private Sub AppEvents_PresentationSave(ByVal Pres As PowerPoint.Presentation)
On Error GoTo ErrorHandler
‘ 実務例: 保存時に特定の機密キーワードが含まれていないかチェックする、
‘ または自動的にサーバーへバックアップログを飛ばすなどの処理をここに書く
Debug.Print “【イベント発火】保存検知: ” & Pres.Name
‘ 例として、タイトルスライドが空の場合に警告を出す簡易バリデーション
If Pres.Slides.Count > 0 Then
Dim firstSlide As PowerPoint.Slide
Set firstSlide = Pres.Slides(1)
‘ 簡易的なチェックロジック（実際にはもっと堅牢な走査を行うこと）
End If
Exit Sub
ErrorHandler:
MsgBox “保存イベントの処理中にエラーが発生しました: ” & Err.Description, vbCritical
End Sub
‘ — イベント2: スライドショー中の画面送り時 —
Private Sub AppEvents_SlideShowNextSlide(ByVal Wn As PowerPoint.SlideShowWindow)
On Error GoTo ErrorHandler
Dim currentSlideIndex As Long
currentSlideIndex = Wn.View.CurrentShowPosition
‘ 実務例: どのスライドで何秒滞在したかのトラッキングや、
‘ 特定のスライドに到達した際に外部APIを叩くなどの拡張が可能
Debug.Print “【イベント発火】スライドショー進行: 現在のスライドインデックス = ” & currentSlideIndex
Exit Sub
ErrorHandler:
MsgBox “スライドショーイベントの処理中にエラーが発生しました: ” & Err.Description, vbCritical
End Sub
手順②：標準モジュールでのライフサイクル管理
次に、標準モジュールを新規作成し（名前は適当でよい）、先ほどのクラスをインスタンス化して保持する変数と、マクロの起点を用意する。
‘ =================================================================
‘ 標準モジュール
‘ 概要: イベント監視クラスのインスタンスを保持し、ライフサイクルを制御する
‘ =================================================================
Option Explicit
‘ メモリ上から消滅させないためにグローバル（またはPublic）で宣言する
Public Monitor As CEventMonitor
‘ アドイン起動時や手動実行時にイベント監視を開始するプロシージャ
Sub StartEventMonitoring()
‘ すでにインスタンスが存在する場合は二重生成を防ぐ
If Monitor Is Nothing Then
Set Monitor = New CEventMonitor
‘ PowerPointの現在のApplicationインスタンスを紐付ける
Set Monitor.AppEvents = Application
MsgBox “PowerPointのイベント監視を開始しました。”, vbInformation, “アーキテクチャ稼働通知”
Else
MsgBox “すでにイベント監視は稼働しています。”, vbExclamation
End If
End Sub
‘ イベント監視を停止し、メモリを解放するプロシージャ
Sub StopEventMonitoring()
Set Monitor = Nothing
MsgBox “イベント監視を停止しました。”, vbInformation, “アーキテクチャ停止通知”
End Sub
—
4. 現場で絶対に知っておくべき「落とし穴」と対策
このコードをそのまま本番環境に投入するにあたり、シニアエンジニアとしていくつか重要な注意点を共有しておこう。
1. デバッグ時の「変数の初期化（リセット）」に注意
VBAでコードの実行時エラーが発生したり、手動で「リセット（■ボタン）」を押したりすると、グローバル変数に保持されていた `Monitor` インスタンスは消滅（Nothing化）する。
結果、「さっきまで動いていたのに、エラー以降イベントが反応しなくなった」という現象が起きる。
- 対策: 本番運用時はアドイン（`.ppam`）形式として保存し、PowerPoint起動時に自動実行されるAutoMacro（`Auto_Open`等）やリボンのコールバックから `StartEventMonitoring` を確実に呼び出す仕組みにすること。
2. イベントハンドラー内での無限ループの恐怖
例えば `PresentationSave` イベントの中で `Pres.Save` を呼ぶようなコードを書くとどうなるか？
「保存する」→ `PresentationSave`発火 → コード内で「保存する」→ 再び `PresentationSave`発火……という無限再帰（スタックオーバーフロー）を引き起こし、PowerPointが強制終了する。
- 対策: イベント内でファイルを上書き保存するような処理は絶対に書かないこと。もしステータスやプロパティを変更する場合は、イベントの連鎖を断つフラグ変数（BooleanField）をモジュールレベルで用意し、ガード節を入れること。
3. パフォーマンスへの配慮
`SlideShowNextSlide` などは、プレゼンターがカチカチとテンポよくスライドを進める際に高頻度で呼び出される。このイベント内で重たいDB書き込みや、巨大なファイルのI/O処理を同期実行すると、スライドショーの画面切り替えがカクつく（プレゼン体験の著しい低下）。
- 対策: 重たい処理を行いたい場合は、API呼び出しを非同期化するか、一度ローカルのキューやコレクションにデータを溜めておき、プレゼン終了後に一括処理する設計（バッチ処理的アプローチ）を検討すべきだ。
—
総括
`WithEvents` を用いたイベントハンドリングは、単なるマクロの延長線上にあるものではない。それはPowerPointという巨大なアプリケーションのライフサイクルに自作のビジネスロジックをシームレスに組み込む、極めて強力なアーキテクチャだ。
この仕組みをマスターすれば、単なる「スライド作成ツール」から、「組織のコンプライアンスを担保し、プレゼンデータを自動で統括管理するエンタープライズソリューション」へと、君が作るVBAツールの価値は劇的に跳ね上がる。
プロとしての誇りを持って、堅牢で美しいコードを書き上げてほしい。健闘を祈る。
