PowerPointの「空白」を支配せよ：OnTimeなき世界で実現する最強の自動バックアップエンジン
こんにちは。日々、VBAの限界を突破することに情熱を燃やすエンジニアです。
PowerPoint VBAを触り始めた皆さんが必ずぶつかる壁があります。それは「Excelにある`Application.OnTime`がない」という絶望的な事実です。一定時間ごとに処理を走らせる、いわゆる「タイマー機能」が標準で用意されていない。これがPowerPoint自動化の最大の障壁です。
しかし、諦める必要はありません。Windowsの心臓部（API）に直接アクセスし、PowerPointのイベントを制御する。今日は、そんな「プロのエンジニア」が実務の現場で隠し持っている、Windows APIを活用したバックグラウンド・タイマーの実装術を伝授します。
—
1. なぜ「API」と「WithEvents」なのか？
PowerPoint VBAは、本来「待機」が苦手です。しかし、Windows OS自体は常にタイマーを刻んでいます。`SetTimer`というAPIを使うことで、OSレベルの割り込み処理をVBAに注入します。
そして、そのバックグラウンド処理とPowerPointの編集画面を繋ぐのが`WithEvents`です。これを使うことで、PowerPointの「アプリケーション全体」の動きを監視し、セーフティネットを張ることができるようになります。
—
2. 実装の設計図：3つのパーツ
このエンジンは、以下の3つの要素で構成されます。
1. 標準モジュール: タイマーの起動・停止と、APIの呼び出し定義。
2. クラスモジュール: PowerPointのイベントをキャッチする司令塔。
3. 設定: プレゼンテーションが開かれた瞬間に自動起動するトリガー。
ステップ1：標準モジュールの作成（TimerModule）
まずはOSのタイマーを叩き起こすための司令塔です。
‘ 標準モジュール：modTimer
Option Explicit
‘ Windows APIの宣言
Public Declare PtrSafe Function SetTimer Lib “user32” (ByVal hwnd As LongPtr, ByVal nIDEvent As LongPtr, ByVal uElapse As Long, ByVal lpTimerFunc As LongPtr) As LongPtr
Public Declare PtrSafe Function KillTimer Lib “user32” (ByVal hwnd As LongPtr, ByVal nIDEvent As LongPtr) As Long
Public TimerID As LongPtr
‘ タイマーを開始するプロシージャ
Public Sub StartBackupTimer()
‘ 600,000ミリ秒（10分）ごとにTimerCallbackを呼び出す
TimerID = SetTimer(0, 0, 600000, AddressOf TimerCallback)
End Sub
‘ タイマーを停止するプロシージャ
Public Sub StopBackupTimer()
If TimerID <> 0 Then KillTimer 0, TimerID
End Sub
‘ タイマーが発火した時に実行される処理
Public Sub TimerCallback()
On Error Resume Next
‘ ここに自動バックアップのロジックを記述
Dim filePath As String
filePath = ActivePresentation.Path & “\Backup_” & Format(Now, “yyyymmdd_hhmm”) & “.pptx”
ActivePresentation.SaveCopyAs filePath
Debug.Print “バックアップ完了: ” & Now
End Sub
ステップ2：クラスモジュールの作成（AppEvents）
次に、PowerPointの動きを監視するためのクラスを作ります。名前を `AppEvents` にしてください。
‘ クラスモジュール：AppEvents
Option Explicit
Public WithEvents App As Application
‘ パワーポイントが起動した時に自動的にタイマーを仕込む処理
Private Sub App_PresentationOpen(ByVal Pres As Presentation)
StartBackupTimer
End Sub
ステップ3：自動実行のトリガー
最後に、PowerPointが立ち上がった瞬間にこのクラスを有効化します。`ThisPresentation`モジュール（または標準モジュール）に記述します。
Dim myEvents As New AppEvents
Sub Auto_Open()
Set myEvents.App = Application
End Sub
—
3. ここをクリアすれば一人前：知っておくべき「落とし穴」
このコードを書く際、多くの初心者が陥る罠があります。
- 「変数の寿命」を理解する: `myEvents`をプロシージャ内のローカル変数にすると、マクロが終わった瞬間にメモリから消え、イベント監視が止まります。必ずモジュールレベル（一番上の行）で宣言してください。これがVBAにおける「オブジェクトの生存」の基本です。
- エラーハンドリング: タイマー処理中にエラーが起きると、VBA全体が強制終了してPowerPointごと落ちることがあります。`On Error Resume Next`を適切に配置し、バックグラウンド処理がメインプロセスを邪魔しないように細心の注意を払ってください。
- メモリ解放: プレゼンを閉じる際には`KillTimer`を呼ぶ癖をつけましょう。さもないと、PowerPointを閉じてもバックグラウンドでタイマーが空回りし続け、PCの動作を重くします。
—
最後に：なぜこの「手間」をかけるのか
「そこまでして自動化する意味があるの？」と思うかもしれません。
しかし、プロフェッショナルな現場では「作業者の意志に頼らない」ことが最大の信頼を生みます。
10分ごとにバックアップを取るという小さな自動化は、あなたがプレゼン資料のクオリティに集中するための「守りの要」です。この基盤さえ作ってしまえば、今度は「特定のキーワードが含まれるスライドを自動抽出する」「全スライドのフォントを一括統一する」といった高度な監視エンジンへ拡張することも可能です。
まずはこのタイマーエンジンを実装し、PowerPoint VBAの「見えない領域」を支配する感覚を掴んでください。そこから先は、あなたの思うがままの世界です。
何か詰まったら、いつでも聞いてください。コードの向こう側にある「目的」を達成するまで、徹底的にサポートしますよ。
