PowerPoint VBAの限界を突破する：メモリ監視による「自己修復型」PDFバッチ変換アーキテクチャ
PowerPoint VBAを用いて数百ものプレゼンテーションファイルをPDFへ変換する際、多くのエンジニアが直面する壁がある。それは、PowerPointプロセスが蓄積するメモリリークという名の「時限爆弾」だ。
オブジェクトの生成と破棄を繰り返す中で、GDIオブジェクトやヒープ領域が徐々に侵食され、最終的には「メモリ不足」や「サーバー応答なし」でプロセスがクラッシュする。これを力技で解決しようとしてタスクスケジューラで小分けにするのは、もはやアーキテクトの仕事ではない。
今回は、Windows APIを駆使してシステムリソースを監視し、危険水域に達する前にプロセスを自律的に再起動させる「レジリエント（回復力のある）バッチエンジン」の実装手法を伝授する。
—
1. 核心的設計思想：プロセスを「使い捨て」にする
VBAにおけるメモリ管理の最大の弱点は、ガベージコレクションが即時ではないことだ。数百ファイルも処理すれば、いかに`Set obj = Nothing`を徹底しようとも、PowerPointの内部エンジンは断片化する。
真の解決策は、「メモリが汚染される前にプロセスを殺し、クリーンな状態で再起動する」というサイクルをループに組み込むことだ。
2. Windows APIによるメモリ監視の設計
システム全体の空きメモリを取得するには、`kernel32.dll`の`GlobalMemoryStatusEx`関数を使用する。これにより、現在の物理メモリ使用率を正確に把握できる。
‘ メモリ状態を取得するための構造体
Private Type MEMORYSTATUSEX
dwLength As Long
dwMemoryLoad As Long
ullTotalPhys As Currency ‘ 通貨型を使用して64bit数値を扱う
ullAvailPhys As Currency
‘ 他、必要なメンバは省略可能
End Type
Private Declare PtrSafe Sub GlobalMemoryStatusEx Lib “kernel32” (lpBuffer As MEMORYSTATUSEX)
3. 実装：自己修復型バッチエンジンのコード
このコードは、メインとなるコントローラーから呼び出されることを想定している。閾値（例: 空きメモリが20%未満）を超えたら、現在の処理を安全に中断し、プロセスを再起動する。
‘ プロセス再起動のためのメインループロジック
Sub BatchProcessPDFs(fileList As Collection)
Dim i As Long
Dim threshold As Double: threshold = 0.2 ‘ 空きメモリ20%で警戒
For i = 1 To fileList.Count
‘ メモリチェック関数を呼び出し
If IsMemoryLow(threshold) Then
Debug.Print “Memory threshold reached. Restarting process…”
Call RestartProcessAndContinue(i, fileList)
Exit Sub ‘ 現在のプロセスは終了する
End If
‘ PDF変換処理を実行
ConvertPPTXtoPDF fileList(i)
‘ オブジェクトの明示的解放（必須）
DoEvents
Next i
End Sub
‘ Windows APIを用いたメモリ監視
Function IsMemoryLow(threshold As Double) As Boolean
Dim memStatus As MEMORYSTATUSEX
memStatus.dwLength = LenB(memStatus)
GlobalMemoryStatusEx memStatus
‘ 空きメモリの割合を計算
Dim availableRate As Double
availableRate = memStatus.ullAvailPhys / memStatus.ullTotalPhys
IsMemoryLow = (availableRate < threshold) End Function
4. プロセス再起動の技術的要諦
プロセスを再起動する際、最も重要なのは「どこまで処理したか」という状態（ステート）の永続化だ。
1. 状態のシリアライズ: `FileSystemObject`を用いて、現在処理中のファイルインデックスを一時ファイル（.txtや.ini）に書き出す。
2. シェルのキック: `WScript.Shell`の`Run`メソッドを使用し、自分自身（同じマクロブック）を再起動する。
3. 終了処理: `Application.Quit`を呼び出し、現在のPowerPointインスタンスを即座に破棄する。
Sub RestartProcessAndContinue(currentIndex As Long, fileList As Collection)
‘ 1. 現在のインデックスを保存
Open “C:\temp\process_state.txt” For Output As #1
Print #1, currentIndex
Close #1
‘ 2. 自プロセスを再起動（コマンドライン引数でインデックスを渡すのがベスト）
Dim shell As Object
Set shell = CreateObject(“WScript.Shell”)
shell.Run “powerpnt.exe /macro YourMacroName”
‘ 3. 現プロセスを終了
Application.Quit
End Sub
5. アーキテクトからの助言：なぜこれで「落ちない」のか
この手法がなぜ強力なのか。それは、「VBAという不安定な環境の寿命を強制的に短くしているから」である。
- 断片化の回避: メモリが圧迫される前にプロセスを終了させるため、OSのメモリ空間が常にクリーンに保たれる。
- ハンドルの解放: PowerPointが内部的に保持し続けるGDIハンドルやCOMインターフェースのリークを、プロセス終了によってOSレベルで強制的に切断できる。
- レジリエンス: 万が一、特定のファイルが原因でクラッシュする場合でも、再起動後のループでそのファイルをスキップするロジックを加えれば、バッチ処理全体が止まることはない。
最後に
システム自動化の現場において、コードの綺麗さよりも重要なのは「完遂率」だ。メモリという物理的な制約をAPIで可視化し、プロセスを制御下に置く。これこそが、数万行のコードを書くことよりも価値のある、現場叩き上げのエンジニアが持つべき「システムを支配する視点」である。
さあ、あなたのバッチ処理を、もう二度と止まらない堅牢なものへと昇華させてほしい。
