【実務・中級編】【PowerPoint非同期タイマー】Windows API（SetTimer/KillTimer）を駆使し、ExcelのOnTimeに代わるPowerPoint上での定期実行・監視処理を実現するプロフェッショナル向け実装 – PowerPoint VBA解析バイブル

PowerPoint VBAを極限まで拡張する：Windows APIタイマーによる非同期定期実行の全貌

開発プロジェクトの現場で、こんな壁にぶつかったことはないか？

「ExcelVBAなら `Application.OnTime` があるのに、なぜPowerPointにはそれに相当するネイティブのタイマー機能がないのか」
「プレゼン中にバックグラウンドでデータを自動同期したい、あるいは一定時間操作がない場合にスライドをリセットしたいのに、VBAの `Application.Wait` や `DoEvents` ループではCPUが100%に張り付いてフリーズしてしまう」

結論から言おう。PowerPoint単体に標準機能がないなら、OSのネイティブ機能（Windows API）を直接叩けばいい。

今回は、PowerPoint VBAの常識を覆し、`SetTimer` と `KillTimer` を駆使して「非同期の定期実行・監視処理」を安全かつエレガントに実装するプロフェッショナル向けの手法を伝授する。

—

1. なぜ「無限ループ」や `Wait` ではダメなのか？

素人がやりがちな実装として、`Do` ループの中で `DoEvents` を回し、`Timer` 関数で経過時間を測る手法がある。

‘ 【アンチパターン】絶対にやってはいけない実装
Sub BadTimerSample()
Dim startTime As Single
startTime = Timer

Do While True
‘ 5秒ごとに何かを実行したい
If Timer – startTime >= 5 Then
MsgBox “処理実行”
startTime = Timer
End If
DoEvents ‘ CPUを焼き尽くす悪魔の関数
Loop
End Sub

このアプローチは致命的な欠陥を抱えている。
1. CPU使用率の高騰（爆熱化）： `DoEvents` はイベントキューを処理するが、ループ自体はノーウェイトで回り続けるため、CPUコアを1つ完全に占有し、PCのファンが唸りを上げる。
2. コンテキストの脆弱性： ユーザーがスライドショー中や編集作業中にモーダルダイアログが開いたりすると、タイミングによってはVBAの実行スタックが崩壊し、PowerPointごと強制終了する。

真のエンジニアが求めるべきは、「OS側（Windows）にタイマーを登録し、時間になったらOSからコールバック（割り込み通知）をもらう」という非同期アーキテクチャだ。これを実現するのが `user32.dll` の `SetTimer` である。

—

2. アーキテクチャ設計：APIタイマーの仕組み

Windows APIのタイマーをVBAから扱う場合、最大の難所は「コールバック関数のポインタ（AddressOf）」の扱いに伴うクラッシュリスクだ。

通常、`SetTimer` はウィンドウプロシージャやコールバック関数を要求するが、標準モジュールの関数ポインタを渡すだけでは、タイマー発火時にVBAの実行環境が整っていなかったり、参照が外れていたりして一瞬でメモリ違反（ExcelやPptの突然の強制終了）を引き起こす。

これを完全に制御下に入れ、プロダクション環境（実務）で耐えうる堅牢なコードにするための設計要件は以下の通り：

1. 一意のタイマーIDの管理：多重起動や解放漏れを防ぐ。
2. 安全なグローバル変数管理：状態を保持し、異常時には確実に `KillTimer` で破棄する。
3. エラーハンドリングの徹底：タイマー処理中の例外がPowerPoint全体を巻き込まないようにする。

—

3. 実装コード：コピペで動くプロダクション・モジュール

以下のコードを、PowerPointのVBAエディタ（`Alt + F11`）から標準モジュールにそのまま貼り付けてほしい。

Option Explicit

‘ ==========================================
‘ Windows API 宣言
‘ ==========================================
‘ タイマーを作成する
If VBA7 Then
Private Declare PtrSafe Function SetTimer Lib “user32” ( _
ByVal hWnd As LongPtr, _
ByVal nIDEvent As LongPtr, _
ByVal uElapse As Long, _
ByVal lpTimerFunc As LongPtr) As LongPtr

‘ タイマーを破棄する
Private Declare PtrSafe Function KillTimer Lib “user32” ( _
ByVal hWnd As LongPtr, _
ByVal nIDEvent As LongPtr) As Long
Else
Private Declare Function SetTimer Lib “user32” ( _
ByVal hWnd As Long, _
ByVal nIDEvent As Long, _
ByVal uElapse As Long, _
ByVal lpTimerFunc As Long) As Long

Private Declare Function KillTimer Lib “user32″ ( _
ByVal hWnd As Long, _
ByVal nIDEvent As Long) As Long
End If

‘ ==========================================
‘ 状態管理用変数
‘ ==========================================
Private m_TimerID As LongPtr
Private m_ExecutionCount As Long

‘ ==========================================
‘ パブリック：タイマー開始・停止インターフェース
‘ ==========================================

”’

Public Sub StartBackgroundTimer(intervalMilliseconds As Long)
‘ 既にタイマーが走っている場合は一度殺す（二重起動防止）
If m_TimerID <> 0 Then
Call StopBackgroundTimer
End If

m_ExecutionCount = 0

‘ SetTimerにコールバック関数（AddressOf）を渡す
‘ 第1引数hWndを0にし、第4引数にAddressOfを指定することで、ウィンドウハンドルなしでもタイマーイベントを飛ばせる
m_TimerID = SetTimer(0, 0, intervalMilliseconds, AddressOf TimerCallback)

If m_TimerID = 0 Then
MsgBox “タイマーの初期化に失敗しました。”, vbCritical, “API Error”
Else
MsgBox “バックグラウンドタイマーを開始しました。(ID: ” & m_TimerID & “)”, vbInformation, “システム”
End If
End Sub

”’

Public Sub StopBackgroundTimer()
If m_TimerID <> 0 Then
Dim result As Long
result = KillTimer(0, m_TimerID)
m_TimerID = 0
MsgBox “バックグラウンドタイマーを停止しました。”, vbInformation, “システム”
Else
MsgBox “タイマーは稼働していません。”, vbExclamation, “システム”
End If
End Sub

‘ ==========================================
‘ コールバックプロシージャ（OSから定期的に呼ばれる）
‘ ==========================================
”’

If VBA7 Then
Public Sub TimerCallback(ByVal hWnd As LongPtr, ByVal uMsg As Long, ByVal idEvent As LongPtr, ByVal dwTime As Long)
Else
Public Sub TimerCallback(ByVal hWnd As Long, ByVal uMsg As Long, ByVal idEvent As Long, ByVal dwTime As Long)
End If

On Error GoTo ErrorHandler

m_ExecutionCount = m_ExecutionCount + 1

‘ —————————————————-
‘ ここに定期実行したい実務処理を記述する
‘ 例：外部データベースやログファイルへの自動同期、状態監視など
‘ —————————————————-
Debug.Print “タイマー実行中… (回数: ” & m_ExecutionCount & ” / 時刻: ” & Format(Now, “hh:mm:ss”) & “)”

‘ 実務での応用例：特定の条件で自動保存をトリガーする
‘ ActivePresentation.Save

Exit Sub

ErrorHandler:
‘ コールバック内で未処理エラーが発生するとPowerPointが即死するため、
‘ 必ずエラーをキャッチして握りつぶすか、ログに落とす設計にする
Debug.Print “TimerCallback Error: ” & Err.Description

‘ 致命的なエラーの場合は安全のためにタイマーを自滅させる
If m_TimerID <> 0 Then
KillTimer 0, m_TimerID
m_TimerID = 0
End If
End Sub

—

4. プロジェクト運用上の極意（トラブルシューティング）

このコードを現場に投入するにあたり、チーフアーキテクトとしていくつか「絶対に守るべき鉄則」を伝えておく。

1. デバッグ中のブレークポイントに注意せよ

タイマーが稼働している最中に、コード内でブレークポイント（一時停止）をヒットさせたり、VBAのエラーダイアログで「デバッグ」を選んでコードを止めたりしてはならない。
OSは容赦なくコールバック関数を呼び続けようとするが、VBA側が停止しているため、ほぼ100% PowerPointがクラッシュ（一発消滅）する。
タイマーを動かした状態でコードを修正したい場合は、必ず事前に `StopBackgroundTimer` を手動で実行してタイマーを無効化すること。

2. ファイル連携・DB連携における「競合」の排除

定期実行の主なユースケースは「自動保存」や「外部データとの同期」だが、ユーザーがまさにスライドを編集している最中や、巨大な図形の描画処理を行っている最中に非同期処理が割り込むと、COMの競合（RPC_E_CANTCALLOUT_ININPUTSYNCHRONOUS など）が発生する。
実務で組む場合は、コールバックの先頭で以下のようなガード節を入れると極めて堅牢になる。

‘ スライドショー中や、ユーザーがテキスト編集中なら今回はスキップする
If Application.SlideShowSettings.Running Then Exit Sub

—

5. まとめ

PowerPoint VBAにおける非同期処理の欠如は、Windows APIを召喚することで完璧に克服できる。
今回紹介した `SetTimer` によるアーキテクチャは、CPUを無駄に消費せず、プレゼンソフトとしてのパフォーマンスを微塵も落とさずにバックグラウンドタスクを回し続ける最良のソリューションだ。

業務効率化ツールとしてのクオリティを一段引き上げたいなら、ぜひこのパターンをあなたのプロジェクトに組み込んでみてほしい。コードの美しさと圧倒的な安定性に、現場のエンジニアや利用者もうなるはずだ。