PowerPoint VBAの限界を突破する：Windows APIによる「擬似OnTime」バックグラウンド・エンジンの構築
PowerPoint VBAには、Excelのような`Application.OnTime`が存在しない。この事実に直面した時、多くの開発者は「VBAでは非同期処理は不可能」と結論づけ、手を止める。だが、それは単にOSの深淵を覗いていないだけだ。
我々アーキテクトにとって、VBAは単なるマクロ言語ではない。それは、Windowsという広大なOSリソースを叩くための「フロントエンド・インターフェース」に過ぎない。今回は、`SetTimer` APIとクラスモジュールのイベントハンドラを融合させ、プレゼンテーション編集を一切止めることなく、極めて堅牢に動作する「自動バックアップ・監視エンジン」を実装する。
1. なぜ「OnTime」がないのか、その裏側の構造
PowerPointのイベントモデルは、Excelほど非同期タスクに対して寛容ではない。単にループで待機させる手法は、UIスレッドを完全にロックし、ユーザーの操作を阻害する「最悪の設計」だ。
我々が狙うべきは、Windows OSのメッセージキューに割り込むことである。`SetTimer`を利用することで、PowerPointのメインスレッドが空いている隙間を縫い、OSからコールバックを投げさせる。これにより、CPU負荷を最小限に抑えつつ、正確なインターバルでタスクを叩くことが可能になる。
2. 実装の要：タイマーエンジンの核
まずは、このエンジンを駆動させるための基礎構造だ。これには標準モジュールとクラスモジュールの両輪が必要となる。
A. API定義と制御モジュール（`modTimerEngine`）
‘ 必須のAPI定義。32bit/64bit両対応のポインタ制御が肝要。
If VBA7 Then
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
Else
Public Declare Function SetTimer Lib “user32” (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
Public Declare Function KillTimer Lib “user32” (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long
End If
Public TimerID As LongPtr
‘ タイマー開始：10分 = 600,000ミリ秒
Public Sub StartBackupEngine()
If TimerID = 0 Then
‘ AddressOfは標準モジュール内のプロシージャしか指定できない点に注意
TimerID = SetTimer(0, 0, 600000, AddressOf TimerCallback)
End If
End Sub
Public Sub StopBackupEngine()
If TimerID <> 0 Then
KillTimer 0, TimerID
TimerID = 0
End If
End Sub
‘ OSから呼び出されるコールバック関数
Public Sub TimerCallback(ByVal hwnd As LongPtr, ByVal uMsg As Long, ByVal idevent As LongPtr, ByVal dwTime As LongPtr)
‘ ここでバックアップ処理を実行。エラーハンドリングは必須。
On Error Resume Next
Call BackupCurrentPresentation
End Sub
3. オブジェクトライフサイクルの管理とパフォーマンス
単にコードを動かすだけなら初級者でもできる。シニアエンジニアが意識すべきは、メモリのリークとアプリの安定性だ。
B. 自動保存処理の最適化
バックアップ処理を行う際、単純に`SaveAs`を呼ぶのは危険だ。保存中にユーザーが操作を行うと、ファイルアクセス競合やVBAランタイムエラーが発生する可能性がある。
Private Sub BackupCurrentPresentation()
Dim targetPres As Presentation
Set targetPres = Application.ActivePresentation
‘ プロセスの排他制御を考慮し、一時的なバックアップファイルとして保存
Dim backupPath As String
backupPath = Environ(“TEMP”) & “\Backup_” & Format(Now, “yyyymmdd_hhnn”) & “.pptx”
‘ プレゼンテーションが保存されていない（Dirty状態）場合のみバックアップ
If targetPres.Saved = msoFalse Then
targetPres.SaveCopyAs backupPath
End If
‘ オブジェクトの明示的解放（メモリ管理の鉄則）
Set targetPres = Nothing
End Sub
4. プロフェッショナルとしての実装上の注意点
このアーキテクチャを採用する上で、以下の3点を必ず遵守せよ。
1. AddressOfの制約: `SetTimer`のコールバックに指定できるのは、必ず標準モジュール内の`Public`プロシージャである。クラスモジュールのメソッドを直接指定することはできない。
2. エラーハンドリングの徹底: コールバック内でエラーが発生すると、PowerPoint全体がクラッシュする。`On Error Resume Next`を適切に活用し、エラー発生時はログを吐き出して沈黙させる設計が求められる。
3. イベントの停止: プレゼンテーションが閉じられる際、必ず`StopBackupEngine`を呼び出さなければならない。`ThisPresentation_BeforeClose`イベントを拾い、タイマーを確実にKillすること。これを怠れば、存在しないメモリ領域を指し続ける「ダングリングポインタ」となり、即座にアプリケーションエラーを引き起こす。
総括
VBAはレガシーと言われるが、そのOSインターフェースを掌握すれば、現代のローコードツールでは到達できないレベルの「環境適応型自動化」が可能になる。
今回提示した`SetTimer`による監視エンジンは、単なる自動保存にとどまらない。これを応用すれば、API連携、外部DBとの同期、あるいは特定の操作に対するリアルタイム・バリデーションまで、PowerPointを「単なるスライド作成ツール」以上のインテリジェントなプラットフォームへと変貌させることができる。
諸君、コードを書く時は常に、背後で動くWindowsのメッセージキューと、そのメモリ消費量を想像せよ。それがプロフェッショナルの矜持だ。
