【入門編】【警告ダイアログ自動応答】”Application.DisplayAlerts”をすり抜ける外部接続警告を、Windows APIのタイマー監視でバックグラウンド自動クリック突破するプロフェッショナル向け手法 – PowerPoint VBA解析バイブル

こんにちは！いつもOfficeの自動化や業務効率化、お疲れ様です。PowerPoint VBAの世界へようこそ！

プレゼン資料の自動生成や大量のファイル処理を作っているとき、「マクロの記録」を卒業してVBAのコードを書けるようになると、作業スピードが何十倍にも跳ね上がりますよね。

しかし、VBAの基本をマスターし、いざ「夜間に数百ファイルのPowerPointを自動処理させよう！」と意気込んで実行したのに、翌朝PCを開いたら「外部ソースへのリンクを更新しますか？」やアドイン独自のセキュリティ警告ダイアログが出たまま、処理が1件目で止まっていた……なんて苦い経験はありませんか？

「おかしいな、コードの最初に `Application.DisplayAlerts = ppAlertsNone` を書いたのに…」と思ったあなたは、非常に鋭い視点を持っています。

実は、PowerPoint VBAの標準機能である `DisplayAlerts` には「すり抜けてしまう警告ダイアログが存在する」という知られざる壁（仕様）があるのです。

今回は、この厄介なダイアログを、Windows APIを使った「バックグラウンドタイマー監視」というプロフェッショナルな手法でスマートに自動クリック・突破する極秘テクニックを分かりやすく解説します！

「Windows APIって難しそう…」と思うかもしれませんが、大丈夫。仕組みからコードの意味、安全な使い方まで、順を追って丁寧に紐解いていきますね。ここをクリアできれば、PowerPoint VBAの基本どころか、プロ級の自動化ロジックもバッチリマスターできますよ！

—

1. なぜ `DisplayAlerts` をすり抜けて処理が止まるのか？

まずは、なぜVBA標準の機能でダイアログが消えないのか、その根本的な理由（構造）から理解していきましょう。

PowerPointとダイアログの「スレッド」の関係

VBAで `Application.DisplayAlerts = ppAlertsNone`（ダイアログ非表示設定）を指定すると、PowerPoint自身が出す一般的なメッセージ（「保存しますか？」など）は抑制できます。

しかし、以下のようなダイアログはPowerPointのVBAエンジンではなく、Windows OSや外部モジュール、セキュリティ層が直接発行しているケースが多いのです。

外部ファイル（Excel等）へのリンク更新警告
ActiveXコントロールやアドインの実行確認
セキュリティセンターによる証明書確認ポップアップ

【従来の失敗パターン】
[VBA処理実行] ➔ [ファイルを開く] ➔ [OS/外部ダイアログ発生！]
↓
VBA実行ラインが完全に停止（ブロック）
※ダイアログを閉じるまで次のコードに進めない！

このようなダイアログは「モーダルダイアログ」と呼ばれ、ユーザーが「はい」や「OK」を押して閉じるまで、VBAのプログラム実行そのものを完全に一時停止（フリーズ）させてしまいます。

プログラムが止まっている以上、VBAのコードで後から「OKボタンを押す」という命令を出すことは不可能です。これが、従来のVBAコードが手詰まりになってしまう最大の原因です。

—

2. 突破口：Windows APIの「タイマー監視」で裏から操作する

では、VBAの処理が止まってしまうなら、どうやってボタンを押せば良いのでしょうか？

答えは、「ダイアログが開く『前』に、Windows OSに『少し後に画面をチェックして、ダイアログがあったら押しておいてね！』と予約（タイマー仕込み）をしておく」ことです！

【Windows APIを使った成功パターン】
1. [VBA処理] OSに「タイマー監視（SetTimer）」を予約！
2. [VBA処理] ファイルを開く（ダイアログが発生し、VBAは一時停止）
3. [OSタイマー] バックグラウンドでタイマー発火！
➔ 画面上のダイアログを発見（FindWindow）
➔ 自動で「はい」ボタンをクリック（PostMessage）
4. [VBA処理] ダイアログが消えたので、VBAの停止が解除され処理が続行！

VBAが止まっていても、Windows OS自体は動き続けています。OSレベルのタイマー機能（`SetTimer`）を利用することで、VBAがブロックされている最中に「別スレッドのような動き」でダイアログを検出・破棄することができるのです。

—

3. 実装に使用する主要なWindows APIたち

今回のテクニックで使用するWindows API（OSの基本機能を呼び出す命令）を整理しておきましょう。難しく見えますが、役割はシンプルです。

—

4. 完全コピペOK！「ダイアログ自動突破」のVBAコード

それでは、実際のコードを見てみましょう。
PowerPointのVBE（Visual Basic Editor）を開き、「挿入」➔「標準モジュール」を作成して、以下のコードをそのまま貼り付けてください。

64bit環境・32bit環境の両方で動作するよう（`PtrSafe` / `LongPtr` を適用）プロ仕様で記述してあります。

Option Explicit

‘ ==============================================================================
‘ Windows API 宣言（64bit / 32bit 両対応）
‘ ==============================================================================
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 uIDEvent As LongPtr) As Long

Private Declare PtrSafe Function FindWindow Lib “user32” Alias “FindWindowA” ( _
ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr

Private Declare PtrSafe Function FindWindowEx Lib “user32” Alias “FindWindowExA” ( _
ByVal hWndParent As LongPtr, ByVal hWndChildAfter As LongPtr, _
ByVal lpszClass As String, ByVal lpszWindow As String) As LongPtr

Private Declare PtrSafe Function PostMessage Lib “user32” Alias “PostMessageA” ( _
ByVal hwnd As LongPtr, ByVal wMsg As Long, _
ByVal wParam As LongPtr, ByVal lParam 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 uIDEvent As Long) As Long

Private Declare Function FindWindow Lib “user32” Alias “FindWindowA” ( _
ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Declare Function FindWindowEx Lib “user32” Alias “FindWindowExA” ( _
ByVal hWndParent As Long, ByVal hWndChildAfter As Long, _
ByVal lpszClass As String, ByVal lpszWindow As String) As Long

Private Declare Function PostMessage Lib “user32” Alias “PostMessageA” ( _
ByVal hwnd As Long, ByVal wMsg As Long, _
ByVal wParam As Long, ByVal lParam As Long) As Long
End If

‘ ==============================================================================
‘ 定数宣言
‘ ==============================================================================
Private Const WM_COMMAND As Long = &H111 ‘ ウィンドウコマンド送信メッセージ
Private Const BM_CLICK As Long = &HF5 ‘ ボタンクリック擬似イベント
If VBA7 Then
Private m_TimerID As LongPtr ‘ 発行したタイマーのID保持用
Else
Private m_TimerID As Long
End If

‘ ==============================================================================
‘ 1. タイマー監視を開始する手続き
‘ ==============================================================================
Public Sub StartDialogBuster()
‘ すでにタイマーが動いていれば二重起動を防止
If m_TimerID <> 0 Then Call StopDialogBuster

‘ 500ミリ秒（0.5秒）周期で TimerProc 関数をOSから呼び出すようセット
‘ AddressOf 演算子を使って関数のポインタをOSに渡します
m_TimerID = SetTimer(0, 0, 500, AddressOf TimerProc)

If m_TimerID <> 0 Then
Debug.Print “【監視開始】ダイアログのバックグラウンド監視を開始しました。”
Else
Debug.Print “【エラー】タイマーの作成に失敗しました。”
End If
End Sub

‘ ==============================================================================
‘ 2. タイマーを安全に停止する手続き
‘ ==============================================================================
Public Sub StopDialogBuster()
If m_TimerID <> 0 Then
Call KillTimer(0, m_TimerID)
m_TimerID = 0
Debug.Print “【監視停止】タイマーを停止・破棄しました。”
End If
End Sub

‘ ==============================================================================
‘ 3. OSから定期的に呼び出されるコールバック関数（心臓部）
‘ ==============================================================================
If VBA7 Then
Public Sub TimerProc(ByVal hwnd As LongPtr, ByVal uMsg As Long, _
ByVal idEvent As LongPtr, ByVal dwTime As Long)
Dim hwndDlg As LongPtr
Dim hwndBtn As LongPtr
Else
Public Sub TimerProc(ByVal hwnd As Long, ByVal uMsg As Long, _
ByVal idEvent As Long, ByVal dwTime As Long)
Dim hwndDlg As Long
Dim hwndBtn As Long
End If

On Error Resume Next ‘ コールバック関数内でのエラー落ちを防止

‘ — A. ダイアログウィンドウの探索 —
‘ Windowsの標準ダイアログのクラス名は “#32770” です。
‘ ※特定のタイトルがある場合は第2引数に “Microsoft PowerPoint” 等を指定します。
hwndDlg = FindWindow(“#32770”, vbNullString)

If hwndDlg <> 0 Then
‘ — B. ダイアログ内の「はい(&Y)」または「OK」ボタンの探索 —
‘ ボタンのキャプション（文字）に合わせて探します
hwndBtn = FindWindowEx(hwndDlg, 0, “Button”, “はい(&Y)”)

If hwndBtn = 0 Then
‘ 「はい(&Y)」で見つからなければ、一般的な「OK」や「はい」を試す
hwndBtn = FindWindowEx(hwndDlg, 0, “Button”, “はい”)
End If
If hwndBtn = 0 Then
hwndBtn = FindWindowEx(hwndDlg, 0, “Button”, “OK”)
End If

‘ — C. ボタンが見つかった場合、クリック命令を送信 —
If hwndBtn <> 0 Then
‘ PostMessage を使って、非同期にボタンクリック（BM_CLICK）を発行
Call PostMessage(hwndBtn, BM_CLICK, 0, 0)
Debug.Print “【自動処理】ダイアログを検出し、ボタンを自動クリックしました！”

‘ 目的を果たしたのでタイマーを停止する
Call StopDialogBuster
End If
End If
End Sub

—

5. 実際に使ってみよう！メイン処理の実装例

上記で作成した監視モジュールを使うのはとっても簡単です。
「ファイルを開く直前」に `StartDialogBuster` を呼び出し、ファイルを開き終わったら（念のため）`StopDialogBuster` でタイマーを解除するだけです。

別モジュール（例えば `Module1`）に以下のテスト用コードを書いて試してみましょう。

Public Sub OpenPresentationSafely()
Dim targetFilePath As String
Dim pptPres As Presentation

‘ 処理対象のPowerPointファイルパス
targetFilePath = “C:\Users\Public\Documents\SampleWithLinks.pptx”

‘ 1. 標準の警告非表示もセット（効くものはこれで抑える）
Application.DisplayAlerts = ppAlertsNone

On Error GoTo ErrorHandler

‘ 2. ★ここでダイアログ自動監視タイマーを起動！
Call StartDialogBuster

‘ 3. ファイルを開く（外部リンク等でダイアログが出ても、裏で自動クリックされる！）
Set pptPres = Application.Presentations.Open( _
FileName:=targetFilePath, _
ReadOnly:=msoTrue)

Debug.Print “無事にプレゼンテーションが開かれました: ” & pptPres.Name

CleanUp:
‘ 4. 後処理：タイマーを必ず停止し、設定を元に戻す
Call StopDialogBuster
Application.DisplayAlerts = ppAlertsTopLevel
Exit Sub

ErrorHandler:
MsgBox “エラーが発生しました: ” & Err.Description, vbCritical
Resume CleanUp
End Sub

—

6. プロが教える！ハマりやすい落とし穴と運用のコツ

このAPIタイマー手法は非常に強力ですが、正しく理解していないとVBAが突然クラッシュ（強制終了）する原因になります。安全に運用するための3つの鉄則を押さえておきましょう！

① 【超重要】タイマーは「必ず」解除すること！

`SetTimer` で起動したタイマーは、`KillTimer` を呼ぶまでPowerPointが終了してもバックグラウンドで動き続けようとします。
もしタイマーが動いたままVBAのコードを編集・リセット（赤の停止ボタンを押す）すると、OSが「存在しないVBA関数」を呼び出そうとして、PowerPointが100%クラッシュします。

必ず `On Error` による例外処理（`CleanUp` ブロック）を作り、どんなエラーが起きても最終的に `StopDialogBuster` が呼ばれる構造にしてくださいね。

② ボタンのテキスト（キャプション）を確認する

ダイアログのボタンに書いてある文字は、OSの言語環境やメッセージの種類によって変化します。

「はい(&Y)」（アクセラレータキー付き）
「はい」
「OK」
「有効にする(&E)」

もし自動クリックが反応しない場合は、`FindWindowEx` に渡している第4引数の文字列が、実際のダイアログのボタン文字と完全に一致しているかチェックしましょう。

③ なぜ `SendMessage` ではなく `PostMessage` なのか？

Windows APIにはメッセージを送る命令として `SendMessage` と `PostMessage` の2つがあります。

`SendMessage`: 相手がメッセージを処理し終わるまで同期して待つ
`PostMessage`: 相手のメッセージキューに投函したら待たずに即復帰する（非同期）

今回のようなモーダルダイアログの処理では、`SendMessage` を使うとタイマー側のスレッドまで一緒にフリーズしてしまう危険があります。「投げっぱなしで安全に処理を返す」ことができる `PostMessage` を使うのが極意です。

—

まとめ：もう止まらない！PowerPoint VBAの完全自動化へ

今回のポイントを復習しましょう！

1. `DisplayAlerts` の限界: OSやセキュリティ層が出すダイアログはVBAを一時停止（ブロック）させる。
2. タイマー監視（`SetTimer`）: ダイアログが開く「前」にOSへ監視を予約しておくことで、裏から非同期で操作できる。
3. 安全第一: 処理が終わったら（あるいはエラー時も）必ず `KillTimer` でタイマーを解除する！

このWindows APIを使ったバックグラウンド自動処理は、PowerPoint VBAのみならず、ExcelやWordなどのOffice自動化全般に応用ができる超・実践的なテクニックです。

一見難しそうに見えるAPIも、「何のためにどの関数を呼んでいるのか」という仕組みさえ掴んでしまえば、決して怖いものではありません。

この手法をマスターすれば、夜間のバッチ処理や大量のファイル自動変換など、本当の意味での「完全自動化」が実現します。「ここをクリアすれば、PowerPoint VBAの基本と応用はバッチリですよ！」

ぜひ、あなたの現場の自動化ツールに組み込んで、快適なVBAライフを手に入れてくださいね。応援しています！