【入門編】【プロフェッショナル】PowerPoint上での疑似「OnTime」タイマーの実装：WithEventsとWindows APIを組み合わせた編集中の自動バックアップエンジン – PowerPoint VBA解析バイブル

ようこそ、PowerPoint VBAの深淵へ。私はこの領域のアーキテクトとして、数多くの自動化エンジンを構築してきました。

Excel VBAを使い慣れた方がPowerPoint VBAに触れたとき、最初に突き当たる「絶望」をご存知でしょうか。それは、`Application.OnTime` メソッドが存在しないという事実です。

「5分おきにスライドを保存したい」「定期的に外部データを反映させたい」……そんな当たり前の自動化が、PowerPointでは一筋縄ではいきません。しかし、嘆く必要はありません。OS（Windows）の深層にあるタイマー機能を呼び出し、VBAの「クラスモジュール」という概念を組み合わせれば、Excel以上に強固な「自動バックアップエンジン」を構築することが可能です。

今日は、マクロの記録を卒業し、真のプロフェッショナルへの第一歩を踏み出しましょう。「ここをクリアすれば、PowerPoint VBAの基本はバッチリですよ」

—

1. なぜ「タイマー」が必要なのか？ PowerPoint VBAの特殊性

PowerPointはExcelと違い、「プレゼンテーション（スライドショー）」と「編集画面」という2つの顔を持ちます。特に編集中の自動化は、ユーザーの操作を妨げないように「背後でこっそり動く」仕組みが不可欠です。

標準のVBA機能だけでは、マクロを実行している間、PowerPointの操作が固まってしまいます。そこで、Windows APIの力を借りて、VBAの外部から「ねえ、そろそろ時間だよ」と肩を叩いてもらう仕組み（疑似OnTime）を実装するのです。

—

2. 究極のアーキテクチャ：WithEvents × Windows API

今回構築するのは、単なるタイマーではありません。以下の2つのエンジンを組み合わせたハイブリッド構造です。

1. Windows API (SetTimer): 正確な時間を刻む「心臓」
2. クラスモジュール (WithEvents): プレゼンテーションが開いた・閉じたという状態を監視する「目」

この2つを連携させることで、「ファイルを開いたら自動でバックアップが始まり、閉じたら安全に停止する」という、プロ仕様の挙動を実現します。

—

3. 実装コード：自動バックアップエンジン

さあ、エディタ（Alt + F11）を開いてください。3つのステップで実装します。

ステップ1：クラスモジュール「clsAppEvents」の作成

まず、PowerPoint全体の動きを監視する「目」を作ります。

‘ — クラスモジュール名: clsAppEvents —
‘ Applicationオブジェクトのイベントを捕捉するためのクラス
Public WithEvents App As Application

‘ プレゼンテーションが開かれたときにタイマーを起動
Private Sub App_AfterPresentationOpen(ByVal Pres As Presentation)
Debug.Print “監視対象のファイルが開かれました。タイマーをセットします。”
StartBackupTimer
End Sub

‘ プレゼンテーションが閉じられる直前にタイマーを停止（クラッシュ防止）
Private Sub App_PresentationClose(ByVal Pres As Presentation)
Debug.Print “ファイルが閉じられます。タイマーを停止します。”
StopBackupTimer
End Sub

ステップ2：標準モジュールでのタイマー制御

次に、Windows APIを宣言し、実際のバックアップ処理を書きます。ここが「心臓」の部分です。

‘ — 標準モジュール —
Option Explicit

‘ 64bit/32bit両対応のWindows API宣言
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 ‘ タイマーの識別ID
Public AppHandler As clsAppEvents ‘ クラスのインスタンス保持用

‘ エンジンの起動スイッチ
Public Sub SetupEngine()
Set AppHandler = New clsAppEvents
Set AppHandler.App = Application
MsgBox “バックアップエンジンが待機状態になりました。”, vbInformation
End Sub

‘ タイマー開始（例：60000ミリ秒 = 1分）
Public Sub StartBackupTimer()
If TimerID = 0 Then
‘ 60000msごとに「TimerProc」関数を呼び出す
TimerID = SetTimer(0, 0, 60000, AddressOf TimerProc)
End If
End Sub

‘ タイマー停止（ここを忘れるとPowerPointが落ちます）
Public Sub StopBackupTimer()
If TimerID <> 0 Then
KillTimer 0, TimerID
TimerID = 0
End If
End Sub

‘ タイマーから呼び出される実際の処理
Public Sub TimerProc(ByVal hwnd As LongPtr, ByVal uMsg As Long, ByVal idEvent As LongPtr, ByVal dwTime As Long)
On Error Resume Next ‘ 編集中のエラーで止まらないように

Dim pres As Presentation
Set pres = ActivePresentation

‘ ファイルが一度も保存されていない（パスがない）場合はスキップ
If pres.Path <> “” Then
‘ 現在のファイル名にタイムスタンプを付けてバックアップ保存
Dim backupPath As String
backupPath = pres.Path & “\Backup_” & Format(Now, “yyyymmdd_hhnnss”) & “_” & pres.Name

‘ ユーザーの作業を邪魔しないよう、Copyで別名保存
pres.SaveCopyAs backupPath
Debug.Print “バックアップ完了: ” & backupPath
End If
End Sub

—

4. プロが教える「ここが重要！」ポイント解説

① `AddressOf` の魔力

`SetTimer` の引数にある `AddressOf TimerProc`。これは「この関数のメモリ上の住所（アドレス）を教えるから、時間になったらそこを実行してね」というWindowsへの招待状です。これがPowerPointに `OnTime` 機能をもたらす鍵となります。

② なぜクラスモジュールを使うのか？

タイマーを動かしっぱなしにしてファイルを閉じると、Windowsは存在しない場所（VBA）を実行しようとしてPowerPointを強制終了させてしまいます。
クラスモジュールの `App_PresentationClose` イベントを使うことで、「ファイルが閉じられる瞬間に、確実にタイマーを殺す（KillTimer）」という安全装置が働くのです。

③ ライフサイクルの管理

`Public AppHandler As clsAppEvents` を標準モジュールの外（宣言部）に置いているのは、マクロの実行が終わっても変数をメモリに保持し続けるためです。これが消えると、イベントの監視も止まってしまいます。

—

5. 陥りやすいエラーと対策

• 「いきなりPowerPointが落ちる！」
• 原因：`StopBackupTimer` を呼ばずにコードを書き換えたり、リセットボタン（■）を押したりしませんでしたか？ タイマー稼働中にVBAをリセットすると、Windows APIが迷子になりクラッシュします。デバッグ中は細心の注意を。
• 「バックアップが作成されない」
• 原因：スライドを一度も保存していない新規ファイルの状態では `pres.Path` が空のため、保存に失敗します。一度手動で保存してからテストしてください。

—

結びに：掌握への道

おめでとうございます。あなたは今、PowerPoint VBAの制約を突破し、Windowsのシステムレベルでアプリケーションを制御する術を手にしました。

この「疑似OnTime」と「イベント監視」の組み合わせは、バックアップだけでなく、「Web APIから定期的に株価を取得してスライドを更新する」といった高度な自動化への扉を開きます。

最初は複雑に見えるかもしれませんが、一つ一つのオブジェクト（Application, Presentation）の役割と、Windows APIという外部の力を理解すれば、PowerPointはあなたの思い通りに動く最強のプレゼンテーション・ロボットへと進化します。

「ここをクリアすれば、PowerPoint VBAの基本はバッチリですよ。次は、スライド内のShape（図形）を自在に操る旅に出ましょう！」

あなたの業務自動化が、より創造的なものになることを願っています。