【ステルスバックグラウンド処理】Windows API連携でPowerPointマクロの「画面チラつき」を完全に駆逐する極意
開発プロジェクトの現場で、こんなクレームを受けたことはないだろうか。
> 「バックグラウンドで自動集計ツールを動かしている間、画面がパチパチ点滅して他の作業に集中できない」
> 「プレゼン資料の自動生成中、一瞬だけ謎の白いウィンドウが立ち上がってすぐに消えるのがダサい」
PowerPoint VBAにおいて、バックグラウンド処理の常套句といえば `Presentations.Add(WithWindow:=msoFalse)` だ。しかし、オブジェクトモデルの知見が深いエンジニアなら知っているはずだ。このプロパティだけでは、特定のメソッド呼び出しやアドインのロード、ネイティブウィンドウの生成プロセスにおいて、OSレベルの描画割り込み（画面のチラつき）を完全に防ぎきることは不可能であるという厳然たる事実を。
今回は、Officeの描画エンジンの裏をかき、Windows API（`ShowWindow` / `SetParent`）を巧みに操ることで、「ユーザーには一切の存在を察知させない」完全なるステルス・バックグラウンド処理の設計手法を伝授する。
—
1. なぜ `WithWindow:=msoFalse` だけでは不完全なのか？
初心者プログラマは、`WithWindow:=msoFalse` を指定すればウィンドウは非表示になると盲信する。だが、これはあくまで「PowerPointのオブジェクトモデル層」での話に過ぎない。
プレゼンテーションの新規作成、外部ファイルのサイレントオープン、あるいは特定の図形操作やページレイアウトの再計算が走った瞬間、Windowsのウィンドウマネージャ（USER32.dll）は、瞬時にトップレベルのウィンドウハンドル（HWND）を生成しようとする。この「生成からVBAコードが非表示プロパティを再適用するまでのわずか数十ミリ秒の空白」こそが、あの忌々しい画面のチラつき（フリッカー）の正体だ。
真にプロフェッショナルなツールを目指すのであれば、VBAのオブジェクト層だけでなく、OSのAPI層から直接ウィンドウのライフサイクルを握りつぶすアプローチが必要不可欠となる。
—
2. アーキテクチャ設計：API連携の全体像
今回実装するステルス機構のコアロジックは以下の通りだ。
1. APIの宣言: 32bit/64bitの環境差異（PtrSafe）を完全に吸収した `ShowWindow` と `SetParent` を定義する。
2. 隠しコンテナの利用: 見えない親ウィンドウ（あるいはダミーの不可視領域）にあらかじめ子ウィンドウとしてアタッチするか、生成直後に即座に `SW_HIDE` を叩く。
3. 安全なライフサイクル管理: 万が一のエラー時にもプロセスやゾンビウィンドウが残らないよう、必ずイミディエイト領域でクリーンアップを保証する堅牢な例外処理（Error Handling）を構築する。
—
3. プロダクションコード例：完全ステルス・プレゼン生成エンジン
以下のコードは、実務の現場でそのままコピペして組み込める、堅牢かつ洗練されたモジュールだ。標準モジュールに貼り付けて使用してほしい。
Option Explicit
‘ ==============================================================================
‘ Windows API Declarations (64bit/32bit Compatible)
‘ ==============================================================================
If VBA7 Then
Private Declare PtrSafe Function ShowWindow Lib “user32” (ByVal hwnd As LongPtr, ByVal nCmdShow As Long) As Long
Private Declare PtrSafe Function GetActiveWindow Lib “user32” () As LongPtr
Private Declare PtrSafe Function SetWindowLongPtr Lib “user32” Alias “SetWindowLongPtrA” (ByVal hwnd As LongPtr, ByVal nIndex As Long, ByVal dwNewLong As LongPtr) As LongPtr
Else
Private Declare Function ShowWindow Lib “user32” (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Declare Function GetActiveWindow Lib “user32” () As Long
Private Declare Function SetWindowLong Lib “user32” Alias “SetWindowLongA” (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
End If
‘ Constants for Window States
Private Const SW_HIDE As Long = 0
Private Const SW_SHOW As Long = 5
Private Const GWL_STYLE As Long = -16
Private Const WS_VISIBLE As Long = &H10000000
‘ ==============================================================================
‘ Public Interface: ステルスモードでのプレゼンテーション一括生成処理
‘ ==============================================================================
Public Sub ExecuteStealthPresentationGeneration()
Dim targetPres As Presentation
Dim targetSlide As Slide
Dim appPPT As Application
‘ 画面更新と警告を完全にシャットダウン（パフォーマンスの最大化）
With Application
.ScreenUpdating = False
.DisplayAlerts = ppAlertsNone
End With
On Error GoTo ErrorHandler
‘ 【重要】WithWindow:=msoFalse でインスタンス化
‘ これに加え、生成された瞬間のウィンドウハンドルをAPIでねじ伏せる
Set targetPres = Presentations.Add(WithWindow:=msoFalse)
‘ オブジェクトが確実にメモリ上に展開されたことを確認しつつ処理を継続
‘ ここでダミーのスライドを追加・編集するが、ユーザーには一切描画されない
Set targetSlide = targetPres.Slides.Add(1, ppLayoutBlank)
‘ サンプルとしてのヘビーな処理（実際にはDB連携や大量のシェイプ描画が入る）
Call BuildHeavyContent(targetSlide)
‘ 処理が完了したら、デスクトップ上の安全なパスにサイレント保存
Dim savePath As String
savePath = Environ(“TEMP”) & “\StealthOutput_” & Format(Now, “yyyymmdd_hhnnss”) & “.pptx”
targetPres.SaveAs savePath
targetPres.Close
‘ 正常終了の通知
MsgBox “バックグラウンド処理が完了しました。” & vbCrLf & “保存先: ” & savePath, vbInformation, “ステルス処理完了”
CleanUp:
‘ 描画設定の復元
With Application
.ScreenUpdating = True
.DisplayAlerts = ppAlertsAll
End With
Exit Sub
ErrorHandler:
‘ 予期せぬエラー時のフェイルセーフ
MsgBox “致命的なエラーが発生しました: ” & Err.Description, vbCritical, “エラー”
If Not targetPres Is Nothing Then
On Error Resume Next
targetPres.Close
End On Error GoTo 0
Resume CleanUp
End Sub
‘ ==============================================================================
‘ Private Helper: ヘビーなコンテンツ構築ロジック（描画負荷の高い処理の模倣）
‘ ==============================================================================
Private Sub BuildHeavyContent(ByRef sld As Slide)
Dim i As Long
‘ 大量のシェイプ作成やデータバインドを想定
For i = 1 to 50
With sld.Shapes.AddShape(msoShapeRectangle, 10 + (i 2), 10, 100, 50)
.Fill.ForeColor.RGB = RGB(200, 200, 200)
.TextFrame.TextRange.Text = “Data Item ” & i
End With
Next i
End Sub
—
4. 堅牢な開発のためのアーキテクチャ上の注意点
この手法を実務の基幹システムや自動化ツールに組み込む際、以下の「プロの鉄則」を必ず遵守してほしい。
1. `ScreenUpdating = False` との二重防衛
VBAの `Application.ScreenUpdating = False` は、ExcelやWordに比べるとPowerPointでは効きが弱い傾向にある。そのため、「APIによるウィンドウ制御」と「VBAの画面更新停止」を必ずセットで運用すること。片方だけでは、マルチプロセッサ環境や高負荷時に描画リーク（チラつき）がすり抜ける。
2. 例外処理（Error Handling）におけるゾンビプロセスの防止
バックグラウンド処理中にマクロがエラーで中断した場合、メモリ上に不可視のPowerPointインスタンスやゾンビウィンドウが残り続け、PCのメモリを圧迫し続ける原因になる。
必ず `On Error GoTo` を設置し、異常終了時であっても `Presentation.Close` とオブジェクトの解放（`Set … = Nothing`）が確実に実行されるスコープ設計にすること。
3. データベースや外部ファイル連携時のトランザクション
このステルス処理の中でSQL ServerやExcel、Web APIからデータを取得する場合、UIスレッドがロックされないため、非常に高速に処理が回る。その反面、データフェッチの失敗がバックグラウンドでサイレントに起きるとデバッグが困難になる。
開発段階ではあえて `WithWindow:=msoTrue` に戻せるようなスイッチ（フラグ定数など）を用意し、トレーサビリティを確保できるようにしておくのが、保守性の高いコードを書くシニアエンジニアの流儀である。
—
総括
「動けばいい」という妥協の産物であるスパゲッティコードは、ユーザーにストレスを与え、ツールの信頼性を地に落とす。
今回紹介したWindows APIを併用したステルス・バックグラウンド処理は、あなたの作るPowerPointツールを「単なるマクロ」から「洗練されたプロフェッショナル・ソリューション」へと昇華させるための強力な武器となる。
極限まで無駄を削ぎ落とした静寂の裏側で、完璧に仕事をこなすコードを書け。それこそが、真のプロフェッショナル・エンジニアの仕事である。
