【イベントハンドリング】”WithEvents”を用いたPowerPointアプリケーションイベントの捕捉：スライド切り替えや保存時に自作処理を割り込ませる
PowerPoint VBAにおける真のエンジニアリングとは、単なるマクロの記録や静的なスライド生成の自動化ではない。イベント駆動型アーキテクチャを構築し、プレゼンテーションのライフサイクルそのものを掌握することにある。
今回は、クラスモジュールと `WithEvents` キーワードを駆使し、PowerPointの裏側で走るシステムイベント（保存、スライドショーの遷移、プレゼンテーションの開閉など）を完全にフックする極限の知見を公開する。
—
1. なぜ「WithEvents」なのか？：オブジェクトモデルの深層
PowerPointの標準モジュール（`標準モジュール1` など）は、ユーザーからの直接的なアクション（リボンのクリックやショートカットキー）のトリガーにはなるが、アプリケーション全体の非同期イベントやライフサイクルイベントを直接捉えることはできない。
ここで登場するのが `WithEvents` キーワード を冠したクラスモジュールである。
`Application` オブジェクトや `Presentation` オブジェクトのイベントをクラス内にバインドすることで、PowerPointの裏で発生するあらゆる状態変化を捕捉し、独自のビジネスロジックを割り込ませることが可能になる。
アーキテクチャの全体像
[PowerPoint Application]
│ (イベント発生: Save / SlideShow等)
▼
[clsAppEvents (WithEvents)] ──> 独自のバリデーション / ログ出力 / API連携
│
[標準モジュール (Auto_Open)] ──> クラスのインスタンス化とライフサイクル維持
—
2. 実装：堅牢なイベントハンドリングクラスの構築
実務において、イベント監視の最大の罠は 「インスタンスのスコープ切れによるイベントの取りこぼし（デタッチ）」 である。グローバル変数や適切に管理されたライフサイクルを持たないインスタンスは、ガベージコレクション（VBAの場合は参照カウントの消滅）によって沈黙する。
以下のコードは、メモリリークを防ぎ、かつ確実にイベントを捕捉するためのプロダクションレベルの実装である。
ステップ1：クラスモジュールの作成（名称：`clsAppEvents`）
VBE（Visual Basic Editor）でクラスモジュールを新規作成し、オブジェクト名を `clsAppEvents` に変更する。
VERSION 1.0 CLASS
BEGIN
MultiUse = -1 ‘True
END
Attribute VB_Name = “clsAppEvents”
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
‘ ==============================================================================
‘ クラス名: clsAppEvents
‘ 概要: PowerPointのアプリケーションレベルイベントを捕捉するコアクラス
‘ ==============================================================================
Option Explicit
‘ WithEventsキーワードを使い、Applicationオブジェクトを宣言
Public WithEvents App As PowerPoint.Application
Attribute App.VB_VarHelpID = -1
‘——————————————————————————
‘ イベント1: プレゼンテーション保存時のフック（入力バリデーションや監査ログ）
‘——————————————————————————
Private Sub App_PresentationSave(ByVal Pres As PowerPoint.Presentation)
On Error GoTo ErrorHandler
‘ 例：機密情報が含まれるスライドの強制チェック
If Not ValidatePresentationSecurity(Pres) Then
MsgBox “【セキュリティ警告】社外秘の可能性があるデータが検出されました。” & vbCrLf & _
“保存処理を中断します。”, vbCritical + vbOKOnly, “アーキテクチャ ガード”
‘ ※注意: PowerPointのSaveイベント自体をキャンセルするプロパティは存在しないため、
‘ 必要に応じて別名保存への誘導やフラグ制御を行う。
End If
‘ 監査ログのサイレント出力（ローカルファイルまたはDBへ）
Call WriteAuditLog(“SAVE”, Pres.Name, Pres.FullName)
Exit Sub
ErrorHandler:
Debug.Print “[Error] App_PresentationSave: ” & Err.Description
End Sub
‘——————————————————————————
‘ イベント2: スライドショー中の画面切り替えフック（テレメトリーや発表者支援）
‘——————————————————————————
Private Sub App_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:
Debug.Print “[Error] App_SlideShowNextSlide: ” & Err.Description
End Sub
‘——————————————————————————
‘ プライベートヘルパー関数：セキュリティバリデーションの模擬実装
‘——————————————————————————
Private Function ValidatePresentationSecurity(ByVal Pres As PowerPoint.Presentation) As Boolean
‘ ここに社内規定に基づくキーワード検索やメタデータチェックを実装
ValidatePresentationSecurity = True
End Function
‘——————————————————————————
‘ プライベートヘルパー関数：監査ログ書き込み
‘——————————————————————————
Private Sub WriteAuditLog(ByVal ActionType As String, ByVal PresName As String, ByVal PresPath As String)
Dim fso As Object
Dim ts As Object
Dim logPath As String
logPath = Environ(“USERPROFILE”) & “\Desktop\PPT_Audit_Log.csv”
Set fso = CreateObject(“Scripting.FileSystemObject”)
Set ts = fso.OpenTextFile(logPath, 8, True) ‘ 8 = ForAppending
ts.WriteLine Format(Now, “yyyy-mm-dd hh:nn:ss”) & “,” & ActionType & “,” & PresName & “,” & PresPath
ts.Close
Set ts = Nothing
Set fso = Nothing
End Sub
ステップ2：標準モジュールによるライフサイクルの維持（名称：`modInitializer`）
クラスのインスタンスを保持し続けるためのグローバル変数を用意し、アドイン起動時や手動実行時にイベントリスナーをアクティベートする。
Option Explicit
‘ イベント監視用クラスのグローバルインスタンス
‘ この変数がスコープから外れると、イベントのフックが解除されるため注意
Public EventMonitor As clsAppEvents
‘ ==============================================================================
‘ 概要: アドイン有効化時、または手動実行時にイベントリスナーを起動する
‘ ==============================================================================
Public Sub InitializeAppEvents()
On Error GoTo ErrorHandler
‘ すでにインスタンスが存在する場合は二重生成を防止
If EventMonitor Is Nothing Then
Set EventMonitor = New clsAppEvents
Set EventMonitor.App = Application
MsgBox “PowerPoint イベント監視アーキテクチャが正常に稼働を開始しました。”, _
vbInformation, “System Initialized”
Else
MsgBox “すでにイベント監視は稼働しています。”, vbInformation, “Notice”
End If
Exit Sub
ErrorHandler:
MsgBox “イベント初期化エラー: ” & Err.Description, vbCritical
End Sub
‘ ==============================================================================
‘ 概要: 監視を終了し、メモリをクリーンアップする
‘ ==============================================================================
Public Sub TerminateAppEvents()
On Error Resume Next
Set EventMonitor = Nothing
MsgBox “イベント監視を停止しました。”, vbInformation, “System Terminated”
End Sub
—
3. シニアエンジニアが知るべき「罠」とパフォーマンス最適化
大規模な組織内ニッチシステムや、数百枚規模のスライドを扱う環境において、安易なイベントハンドリングはパフォーマンスの劣化や予期せぬクラッシュを招く。以下の3点を遵守せよ。
1. 参照の循環とメモリリークの排除
`WithEvents` を用いたオブジェクトは、ホスト（この場合は `Application`）とリスナー（`clsAppEvents`）の間で強参照を結ぶ。セッション終了時やアドインのアンロード時には、必ず `Set EventMonitor = Nothing` を明示的にコールし、VBAのメモリ空間からインスタンスを綺麗にパージすること。
2. イベントハンドラー内のエラーハンドリング（Fail-Safe）
イベントプロシージャ内で未処理のエラーが発生した場合、PowerPoint本体の動作を巻き込んで強制終了（ハングアップ）するリスクがある。すべてのイベントプロシージャの冒頭には必ず `On Error GoTo [ラベル]` を記述し、例外が外側に漏れ出さない設計（Fail-Safe）を徹底すること。
3. 重い処理の非同期化（あるいはバックグラウンド処理）
`App_PresentationSave` などの同期イベント内で、重いデータベース通信や巨大なファイルの入出力を行ってはならない。ユーザーの「保存」操作がフリーズし、UX（ユーザーエクスペリエンス）が致命的に悪化する。必要であれば、シェルスクリプトや別プロセスのEXE（VB.NET等で作成したタスクランナー）に処理を非同期で投げ、VBA側は即座に制御を返すアーキテクチャを採用すべきである。
—
4. システム間連携への発展：外部API / データベースとの結合
この `WithEvents` によるフック機構を手に入れたことで、PowerPointは単なるプレゼンテーション作成ツールから「企業のナレッジ管理ノード」へと昇華する。
例えば、`App_PresentationSave` のタイミングで、スライドのメタデータ（タイトル、作成者、最終更新日時、スライド枚数）をJSONペイロードにシリアライズし、社内のREST APIエンドポイントへ `WinHttp.WinHttpRequest.5.1` 経由でPOST送信する。これにより、組織全体のプレゼンテーション資産の流通状況をリアルタイムでBIツール（Power BI等）に集約する統合システムが完成する。
‘ 【概念コード】API連携のイメージ
Private Sub PostTelemetryToCloud(ByVal Pres As PowerPoint.Presentation)
Dim http As Object
Set http = CreateObject(“WinHttp.WinHttpRequest.5.1”)
Dim url As String
url = “https://api.internal.corp/v1/telemetry/ppt”
http.Open “POST”, url, False
http.SetRequestHeader “Content-Type”, “application/json”
http.SetRequestHeader “Authorization”, “Bearer ” & GetAuthToken()
Dim jsonPayload As String
jsonPayload = “{“”name””:””” & Pres.Name & “” “”slides””:” & Pres.Slides.Count & “}”
http.Send jsonPayload
End Sub
結言
VBAはレガシーな言語と揶揄されることがあるが、オブジェクトモデルの挙動とメモリ管理の摂理を深く理解したエンジニアが扱うとき、それは企業の業務プロセスを根底から自動化・統制する強力な武器となる。
イベント駆動の思想をPowerPointのセッションに持ち込み、堅牢で拡張性の高いアーキテクチャを構築せよ。
