こんにちは！PowerPoint VBAの世界へようこそ。
今日は、多くの開発者が頭を悩ませる「ある大きな壁」を一緒に突破しましょう。
Excel VBAには、指定した時間になると自動でマクロを実行してくれる便利な `Application.OnTime` というメソッドがありますよね。「これと同じことをPowerPointでもやりたい！」と思って調べてみたものの、標準機能にはそんな便利なものはありません。ガッカリして諦めてしまった方も多いのではないでしょうか。
でも、安心してください。
今回は、WindowsのOSが持つ底力――Windows API（SetTimer / KillTimer）をPowerPoint VBAから呼び出すことで、「PowerPoint非同期タイマー」を完全自作するプロフェッショナルな手法を伝授します。
ここをクリアすれば、あなたも単なる「マクロの記録の卒業生」ではなく、OSの挙動までをコントロールできる真のVBAエンジニアです。一緒に優しく、深く、学んでいきましょう！
—
1. なぜPowerPointには「OnTime」がないのか？
まず、敵を知ることから始めましょう。
Excelは「データ・計算」を主とするアプリであるため、裏で常時動くタスクスケジュール（OnTime）と非常に相性が良いです。
一方、PowerPointは「プレゼンテーション（描画・アニメーション）」が主役のアプリです。CPUに無駄な負荷をかけないよう、VBAの実行環境も非常にシンプルに作られています。そのため、標準では「一定時間ごとに何かを監視する」というバックグラウンド処理の概念がありません。
「じゃあ、無限ループ（DoEventsを使ったループ）を回せばいいじゃないか」と思いましたか？
……ストップ！それはVBAのプログラミングにおいて最もやってはいけないタブーの一つです。無限ループはCPU使用率を100%に張り付かせ、PowerPointを強制終了の危機に陥れる「爆弾」のようなものです。
そこで登場するのが、OS（Windows）にタイマー管理を丸投げしてしまう「Windows API」というアプローチです。
—
2. Windows API タイマーの仕組み
今回使うのは、Windowsのシステムが提供する以下の2つの関数です。
1. `SetTimer`（タイマーのセット）
「〇ミリ秒ごとに、指定した処理（コールバック関数）を呼び出してね」とWindowsにお願いする関数です。
2. `KillTimer`（タイマーの解除）
「用事が済んだから、もうタイマーを止めなくていいよ」とWindowsにお願いして、メモリやリソースを解放する関数です。
これらを駆使することで、PowerPointをフリーズさせることなく、裏側で静かに、かつ正確に定期処理（自動保存やステータス監視など）を実行することが可能になります。
—
3. 【実践】プロ仕様のタイマー実装コード
それでは、実際にコードを書いていきましょう。
ここでのポイントは、「標準モジュール」にコードを書くこと、そして「変数のスコープ（寿命）」に細心の注意を払うことです。
手順1：標準モジュールの挿入
VBAエディタ（Alt + F11）を開き、「挿入」＞「標準モジュール」をクリックして、新しいモジュールを作成してください。そこに以下のコードをすべて貼り付けます。
Option Explicit
‘ =====================================================================
‘ Windows APIの宣言
‘ （32ビット版と64ビット版のどちらでも動くようにPtrSafeを使用）
‘ =====================================================================
If VBA7 Then
‘ 64ビットOffice環境用
Declare PtrSafe Function SetTimer Lib “user32” (ByVal hwnd As LongPtr, ByVal nIDEvent As LongPtr, ByVal uElapse As Long, ByVal lpTimerFunc As LongPtr) As LongPtr
Declare PtrSafe Function KillTimer Lib “user32” (ByVal hwnd As LongPtr, ByVal nIDEvent As LongPtr) As Long
Else
‘ 32ビットOffice環境用
Declare Function SetTimer Lib “user32” (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
Declare Function KillTimer Lib “user32” (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long
End If
‘ グローバル変数（タイマーの識別IDを保持）
Public TimerID As LongPtr
Public Counter As Long
‘ =====================================================================
‘ 1. タイマーを開始するプロシージャ
‘ =====================================================================
Sub StartAsyncTimer()
‘ すでにタイマーが動いている場合は二重起動を防ぐために一度停止
If TimerID <> 0 Then Call StopAsyncTimer
Counter = 0
‘ 5000ミリ秒（＝5秒）ごとに “TimerCallback” プロシージャを呼び出すようOSに依頼
‘ 第一引数は通常 0、第二引数は識別ID、第三引数は間隔(ms)、第四引数は実行する関数アドレス
TimerID = SetTimer(0, 0, 5000, AddressOf TimerCallback)
If TimerID = 0 Then
MsgBox “タイマーの起動に失敗しました。”, vbCritical
Else
MsgBox “非同期タイマーを開始しました！（5秒おきに実行中）”, vbInformation, “通知”
End If
End Sub
‘ =====================================================================
‘ 2. タイマーを停止するプロシージャ
‘ =====================================================================
Sub StopAsyncTimer()
If TimerID <> 0 Then
‘ Windows APIにタイマーの解除を指示
KillTimer 0, TimerID
TimerID = 0
MsgBox “非同期タイマーを停止しました。”, vbInformation, “通知”
End If
End Sub
‘ =====================================================================
‘ 3. 一定時間ごとにWindowsから呼び出されるコールバック関数
‘ =====================================================================
Sub TimerCallback(ByVal hwnd As LongPtr, ByVal uMsg As Long, ByVal nIDEvent As LongPtr, ByVal dwTime As Long)
‘ ここに「定期実行したい処理」を記述します
Counter = Counter + 1
‘ 例：イミディエイトウィンドウに実行回数を出力（バックグラウンド動作の確認）
Debug.Print “バックグラウンド実行中: ” & Counter回目 & ” (時刻: ” & Time & “)”
‘ ※注意：この中で重すぎる処理やモーダルダイアログ（MsgBoxなど）を出すと
‘ OSのタイマー割込みと競合して不安定になるため避けてください。
End Sub
—
4. コードの解説：ここがエンジニアの腕の見せ所
初心者の方にとって、見慣れない呪文のようなコードがあるはずです。大切なポイントを噛み砕いて解説しますね。
① `#If VBA7 Then` によるクロス環境対応
現代のOfficeは、64ビット版が主流です。古いAPI宣言をそのまま貼り付けると、64ビット環境でExcelやPowerPointが強制終了（クラッシュ）します。
この条件付きコンパイル (`#If VBA7 Then`) を使うことで、32ビット版・64ビット版のどちらのユーザーがあなたのツールを使っても、安全に動くようになっています。プロの現場では必須のテクニックです。
② `AddressOf` operator（アドレス演算子）
`SetTimer` の第4引数にある `AddressOf TimerCallback`。
これは、「`TimerCallback` というマクロがメモリ上のどこに存在するか（番地）」をWindowsに教えています。これにより、Windows側から直接あなたの書いたVBAコードを叩き起こすことができるのです。
—
5. 陥りやすいエラーと「絶対に守るべき鉄則」
APIタイマーは非常に強力ですが、扱いを誤るとPowerPointごと吹き飛びます。以下の罠（トラップ）にだけは気をつけてください。
罠1：実行中にVBE（VBAエディタ）を開いてコードを編集した
タイマーが作動している最中にコードを書き換えたり、リセット（■ボタン）を押したりすると、メモリの参照先が狂い、PowerPointがフリーズまたは強制終了します。
- 対策: テスト中は必ず `StopAsyncTimer` を実行してタイマーを完全に止めてからコードを触るように習慣づけましょう。
罠2：コールバック関数内で `MsgBox` やエラーを出した
`TimerCallback` の中で `MsgBox “こんにちは”` などと書くと、バックグラウンド処理の最中にユーザーの入力を待つ状態（モーダル状態）になり、OSのタイマー割込みと衝突してクラッシュの原因になります。
- 対策: 定期実行の中身は、データの自動保存、ステータスのログ出力、フラグのチェックなど、「ユーザーの邪魔をしない裏方処理」に徹させましょう。
—
まとめ：PowerPointの可能性を広げよう
今回は、Windows API（SetTimer / KillTimer）を駆使したPowerPointの非同期タイマー実装について解説しました。
- PowerPointには標準の `OnTime` はないが、Windows APIで代用できる。
- `#If VBA7` を使って64ビット環境への配慮を忘れないこと。
- 無限ループを使わないため、CPUに優しく安全であること。
- コールバック関数内での重い処理や `MsgBox` は避けること。
この技術をマスターすれば、「プレゼン資料の自動バックグラウンド保存ツール」や「特定時間に応じたスライドの自動切り替えサイネージシステム」など、アイデア次第でビジネスの武器になる高度な自動化ツールが作れるようになります。
「ここをこう改造したいんだけど、どうすればいい？」といった疑問があれば、いつでも先輩エンジニアに聞いてくださいね。あなたのVBAライフが、よりエキサイティングで素晴らしいものになりますように！
