PowerPointを「企業の資産」へ。名前を付けて保存をフックするインフラ連携の極意
こんにちは。現場で泥臭い自動化を積み重ね、いつしかコードの裏側の挙動まで愛するようになったエンジニアです。
皆さんは、PowerPointを単なる「プレゼン資料作成ツール」だと思っていませんか？
実は、PowerPointはVBAという強力なエンジンを搭載した「ドキュメント管理システム」に成り得る存在です。今回は、「ユーザーがファイルを保存した瞬間に、そのメタデータを社内DBへ飛ばす」という、一歩進んだトラッキング機構を実装する方法を解説します。
「マクロの記録」から卒業し、プロフェッショナルな自動化の深淵へ一緒に足を踏み入れてみましょう。
—
なぜ「イベントフック」が必要なのか？
通常、VBAはボタンを押したときに動くものですが、上級エンジニアは「PowerPointが今何をしているか（イベント）」を監視します。
「名前を付けて保存」をフックできれば、ユーザーがどこに保存したか、誰が作ったのかを強制的にログに記録できます。これにより、野良ファイルが散乱するのを防ぎ、全社的なガバナンスを効かせることが可能になるのです。
—
準備：イベントを拾うための「Classモジュール」
通常の標準モジュールでは、アプリケーション全体のイベントは拾えません。まずは「Classモジュール」を作成し、PowerPointの「耳」を作る必要があります。
1. クラスモジュールの作成
VBAエディタで「挿入」→「クラスモジュール」を選択し、名前を `EventClass` に変更してください。ここに以下のコードを記述します。
‘ EventClass モジュール
Public WithEvents App As Application
‘ 保存直前に走るイベント
Private Sub App_PresentationBeforeSave(ByVal Pres As Presentation, ByVal SaveAsUI As Boolean, Cancel As Boolean)
‘ SaveAsUIがTrueなら「名前を付けて保存」が実行されたと判断
If SaveAsUI Then
Call SyncMetadataToDB(Pres)
End If
End Sub
‘ データベースへの同期処理（ダミー関数）
Private Sub SyncMetadataToDB(Pres As Presentation)
Dim title As String: title = Pres.BuiltinDocumentProperties(“Title”)
Dim author As String: author = Pres.BuiltinDocumentProperties(“Author”)
Dim saveDate As String: saveDate = Now
‘ ここでAPIやDBへの接続処理を記述します
Debug.Print “同期中: ” & title & ” / ” & author & ” / ” & saveDate
‘ MsgBox “メタデータをサーバーへ送信しました。” ‘ 運用時はログ出力のみを推奨
End Sub
—
起動時にイベントを有効化する
次に、PowerPointを立ち上げた瞬間にこのクラスをロードする必要があります。これには「標準モジュール」を使います。
‘ 標準モジュール (Module1)
Dim myAppEvent As New EventClass
Sub Auto_Open()
‘ PowerPoint起動時にクラスをインスタンス化
Set myAppEvent.App = Application
End Sub
【重要】初心者が陥る罠
VBAは変数がスコープ外になるとメモリから消えます。そのため、`myAppEvent` をプロシージャ内で定義するのではなく、モジュールの先頭で「静的（Public/Private）」に定義してください。これでPowerPointを閉じない限り、イベント監視が継続します。
—
実装のポイントと注意点
1. なぜ「BeforeSave」なのか？
`AfterSave` ではなく `BeforeSave` を使う理由は、「保存が失敗した後のゴミデータをDBに入れたくないから」です。保存処理の直前でメタデータを取得し、確実にサーバーへ送信する設計が、整合性を守る鍵です。
2. ユーザー体験を損なわない設計
API連携は通信が発生するため、少しだけ時間がかかります。ユーザーが「保存ボタンを押したのにフリーズした」と感じないよう、DBへの送信処理は重すぎないように設計しましょう。可能であれば、別プロセス（外部の小さなexeなど）を呼び出すのが、真の上級者の作法です。
—
さあ、一歩先へ進もう
今回解説した内容は、単なるコードのコピペではなく、「アプリケーションのライフサイクルを制御する」というエンジニアリングの基本思想です。
- メタデータの活用： `Pres.BuiltinDocumentProperties` を使えば、作成者だけでなく、最終更新者や編集時間など、あらゆる情報が抽出可能です。
- エラーハンドリング： もし社内ネットワークが切れていたら？ `On Error Resume Next` で通信エラーを無視しつつ、ローカルにログを書き出す仕組みを作るのも良い練習になります。
VBAは、あなたのアイデア次第でただの事務作業ツールを「企業の知能」に変えることができます。まずはご自身の環境で、`Debug.Print` でログが出ることを確認してみてください。
ここをクリアすれば、あなたはもうマクロ初心者ではありません。さあ、次はどんな自動化に挑戦しますか？ 応援していますよ。
