「マクロの記録」を卒業しよう。PowerPointの挙動を支配する「イベントフック」と監査証跡の設計思想
こんにちは。今日は、少しだけ「魔法」に近い、でも極めて実用的なエンジニアリングの世界へ皆さんを招待したいと思います。
皆さんはこれまで、PowerPoint VBAを使って「ボタンを押したら図形を整列させる」「スライドを自動生成する」といった、いわば「命令型（Imperative）」のプログラミングを学んできたことでしょう。それは素晴らしい一歩です。マクロの記録から脱却し、コードを自分で書けるようになった。それは「道具を使う人」から「道具を作る人」への進化です。
しかし、真のシステムエンジニアリングの世界では、それだけでは足りない場面があります。
例えば、企業の機密情報が含まれるプレゼンテーション。
「誰が、いつ、どのファイルを開き、いつ保存したのか？」
これを、ユーザーがマクロを実行することなく、「裏側で、気づかれないように、確実に」記録し続けたいとしたらどうすればいいでしょうか？
今日は、PowerPointのアプリケーションそのものに「耳」を授け、あらゆる操作を監視する「イベントフック」という高度なテクニックを伝授します。
1. 「命令」ではなく「監視」へ：イベント駆動型プログラミング
通常のVBAは、あなたが「実行」ボタンを押した瞬間に動き出します。これを「命令型」と呼びます。
対して、今回扱うのは「イベント駆動型（Event-Driven）」です。
「ファイルが開かれた（PresentationOpen）」
「保存しようとしている（BeforeSave）」
これらの「出来事（イベント）」が発生した瞬間に、プログラムが自動的に反応する仕組みです。これを実現するためには、通常の「標準モジュール」ではなく、「クラスモジュール」という特別な箱が必要になります。
2. 司令塔を作る：クラスモジュールによるイベントの捕捉
クラスモジュールとは、いわば「特定の役割を持ったオブジェクトの設計図」です。今回は「PowerPointの動きを監視する監視員」という設計図を作ります。
ステップ1：クラスモジュールの作成
VBAエディタで、[挿入] -> [クラスモジュール] を選択し、プロパティウィンドウでオブジェクト名を `clsAppEventHook` に変更してください。
' --- クラスモジュール: clsAppEventHook ---
Option Explicit
' Applicationオブジェクトを「イベント付き」で宣言するのが最大のポイント！
' これにより、PowerPoint本体の動きを「聴く」ことができるようになります。
Private WithEvents App As Application
' 監視員（クラス）を起動するための初期化メソッド
Public Sub Initialize(ByVal targetApp As Application)
Set App = targetApp
Debug.Print "監査ログ監視システム：起動しました。"
End Sub
' --- イベント：プレゼンテーションが開かれた時 ---
Private Sub App_PresentationOpen(ByVal Pres As Presentation)
Call LogAction("OPEN", Pres.Name)
End Sub
' --- イベント：保存される直前 ---
Private Sub App_BeforeSave(ByVal Pres As Presentation, Cancel As Boolean)
' 保存処理を中断させることはできないが、ログを取るタイミングとしては最適
Call LogAction("SAVE", Pres.Name)
End Sub
' --- ログ記録のコアロジック ---
' ここでは概念的な実装ですが、実際にはここでDB送信などを行います。
Private Sub LogAction(ByVal actionType As String, ByVal fileName As String)
Dim logMsg As String
Dim userName As String
userName = Environ("USERNAME") ' 操作しているPCのユーザー名を取得
logMsg = "[" & Now & "] User: " & userName & " | Action: " & actionType & " | File: " & fileName
' 本来はここで非同期でDBへ飛ばす
' 今回はデバッグ用にイミディエイトウィンドウに出力します
Debug.Print "【AUDIT LOG】 " & logMsg
' 【プロのアドバイス】
' ここで重い処理（直接的なDB接続など）を直接書くと、
' ユーザーが「保存」ボタンを押した瞬間にPowerPointがフリーズします。
' 実際の業務アプリでは、後述する「非同期送信」の設計が不可欠です。
End Subここが「極限の知見」ポイント：`WithEvents` の重み
コードの中に `Private WithEvents App As Application` という一文がありますね。これがこのプログラムの心臓部です。
`WithEvents` を付けることで、その変数（`App`）は単なるデータ保持用ではなく、「アプリケーションからの通知を受け取る窓口」へと昇華されます。
しかし、注意してください。クラスモジュール内で宣言した変数は、そのクラスのインスタンス（実体）がメモリ上にある間しか機能しません。「監視員を雇ったけれど、すぐに帰宅させてしまった」というミスは、初学者が最も陥りやすい罠です。
3. 監視員を現場に送り出す：標準モジュール
クラスを作っただけでは、監視員は設計図の中にいるだけです。彼らを現実の世界（実行中のPowerPoint）に呼び出す必要があります。
ステップ2：標準モジュールの作成
[挿入] -> [標準モジュール] を選択し、以下のコードを記述してください。
' --- 標準モジュール ---
Option Explicit
' 監視員（クラスのインスタンス）を「グローバル変数」として保持します。
' これを「Sub」の中で宣言してしまうと、Subが終わった瞬間に監視員が消滅してしまいます。
Private myWatcher As clsAppEventHook
' アドイン起動時に実行されるメイン関数
Sub StartAuditSystem()
' 監視員を召喚！
Set myWatcher = New clsAppEventHook
' 召喚した監視員に、現在のPowerPointアプリケーションを教え込む
myWatcher.Initialize Application
MsgBox "セキュリティ監査システムがバックグラウンドで稼働を開始しました。", vbInformation
End Sub
' システムを停止する場合
Sub StopAuditSystem()
Set myWatcher = Nothing
MsgBox "監査システムを停止しました。", vbExclamation
End Sub4. 伝説のアーキテクトが教える「非同期」の重要性
さて、ここで一つ、プロフェッショナルの視点を共有しましょう。
上記のコードでは `LogAction` 内で処理を行っていますが、もしこの `LogAction` が「ネットワーク経由で重いデータベースに書き込む」という処理だった場合、どうなるでしょうか？
ユーザーが「保存」ボタンを押した瞬間、ネットワークの応答待ちが発生し、PowerPointが数秒間固まってしまうのです。これはユーザー体験（UX）として最悪であり、業務ツールとしては「欠陥品」とみなされます。
# 解決策：非同期（Asynchronous）の考え方
VBA自体はシングルスレッド（一度に一つのことしかできない）の言語です。しかし、プロは以下の手法で「擬似的な非同期」を実現します。
1. ログのローカル書き出し: イベント内では、極めて高速な「ローカルのテキストファイル」や「SQLite」への書き出しのみを行う。
2. 別プロセスへの委譲: 書き出したログファイルを、別の軽量なプログラム（Pythonスクリプトや、VBScript、あるいはC#で作った常駐アプリ）が監視しており、ファイルが更新された瞬間に、そちらがDBへ送信する。
このように、「PowerPointのメインプロセス」と「ログ送信プロセス」を切り離す（疎結合にする）ことこそが、止まらないシステムを作るための極意です。
まとめ：ここをクリアすれば、あなたはもう初心者ではない
今回の内容を振り返りましょう。
1. クラスモジュール (`WithEvents`) を使い、アプリケーションの挙動を「待ち伏せ」する。
2. オブジェクトのライフサイクルを理解し、グローバル変数としてインスタンスを維持する。
3. パフォーマンスへの配慮として、重い処理はメインの操作フローから分離する。
「マクロの記録」は、あくまで「操作の自動化」です。
今回学んだ「イベントフック」は、「環境の制御」です。
この視点を持てたあなたは、もう単なるマクロ使いではありません。システムの挙動を設計する、エンジニアへの第一歩を踏み出したのです。
さあ、次は自分の作ったツールが、どんなイベントを捉えられるか、実験してみてください。コードの向こう側にある「システムの鼓動」を感じられるはずですよ。
