PowerPoint VBAの深淵：数千枚の画像処理を「メモリリークなし」で完遂する極意
PowerPointのオートメーションにおいて、最も忌むべき存在は「目に見えないメモリの堆積」だ。
数枚のプレゼンテーションであればVBAの甘いメモリ管理でも何とかなる。しかし、数千枚規模の画像挿入・レイアウト処理を伴うバッチ処理において、`Set obj = Nothing` を書けば済むと思っているなら、それはエンジニアとしてあまりに無防備だ。PowerPointのプロセスは、COMオブジェクトの残滓を執拗に抱え込み、最終的には例外コードを吐いてクラッシュする。
本稿では、レガシー環境の限界を突破し、メモリを極限までクリーンに保ちながら大規模処理を完遂するための「アーキテクトの作法」を伝授する。
—
1. なぜPowerPointはメモリを解放しないのか
VBAのガーベジコレクションは、参照カウント方式という極めて原始的な仕組みに依存している。特に、`Shapes.AddPicture` のような外部リソース（画像ファイル）を伴う操作を行うと、PowerPointの内部キャッシュやGDIオブジェクトがバックグラウンドで蓄積される。
プロセスのメモリ使用率が右肩上がりになるのは、以下のいずれかが原因だ。
1. 循環参照: 親子関係にあるオブジェクトを明示的に解放していない。
2. 非表示のCOM残滓: 処理中に生成した一時的な`Selection`や`View`オブジェクトが解放されていない。
3. GDIハンドル枯渇: 大量画像のサムネイルキャッシュがメモリを圧迫している。
—
2. メモリリークを徹底排除する「安全なクレンジング」実装
大規模処理を行う際は、「処理単位でプレゼンテーションを分離する」のが定石だ。メモリが肥大化し始めたら、一度ファイルを保存して閉じる。この「再起動（Close & Reopen）」こそが、最も確実なメモリクレンジングである。
実践：メモリを保護する構造化処理
‘ メモリリークを排除した大規模画像バッチ処理のテンプレート
Sub RobustBatchProcessing()
Dim pptApp As Application
Set pptApp = Application
Dim targetFiles As Variant
targetFiles = GetTargetFileList(“C:\Images\”) ‘ 自作のファイルリスト取得関数
Dim i As Long
For i = LBound(targetFiles) To UBound(targetFiles)
‘ 100枚ごとにプロセスをリフレッシュする戦略
If i Mod 100 = 0 Then
Call RefreshPresentation(pptApp)
End If
Call ProcessImageSlide(targetFiles(i))
‘ 明示的なメモリ解放の儀式
DoEvents
Next i
End Sub
Private Sub RefreshPresentation(ByRef app As Application)
‘ 現在のプレゼンを保存して閉じ、プロセス内のキャッシュをクリアする
With app.ActivePresentation
.Save
.Close
End With
‘ ここでWindows APIのSetProcessWorkingSetSizeを呼び出すのが真の解法
‘ 物理メモリをOSに強制返却する
Call MinimizeMemoryUsage
End Sub
—
3. Windows APIによるメモリ強制返却（究極の一手）
VBA標準の機能では、メモリの断片化を解消できない。ここで、Windows APIの `SetProcessWorkingSetSize` を活用する。これは、プロセスのワーキングセット（使用中の物理メモリ）を最小化するトリガーだ。
If VBA7 Then
Private Declare PtrSafe Function SetProcessWorkingSetSize Lib “kernel32” ( _
ByVal hProcess As LongPtr, ByVal dwMinimumWorkingSetSize As LongPtr, _
ByVal dwMaximumWorkingSetSize As LongPtr) As Long
Private Declare PtrSafe Function GetCurrentProcess Lib “kernel32” () As LongPtr
End If
‘ プロセスのメモリ使用量をOSへ強制的に圧搾する
Public Sub MinimizeMemoryUsage()
Dim hProcess As LongPtr
hProcess = GetCurrentProcess()
‘ 物理メモリを解放させ、バックグラウンドへ追いやる
Call SetProcessWorkingSetSize(hProcess, -1, -1)
End Sub
※注意：これを毎ループで呼ぶとパフォーマンスが劇的に低下する。100枚単位のバッチ区切りなど、明確な「休止タイミング」で使用すること。
—
4. オブジェクトライフサイクル管理の鉄則
大規模処理では、`Application`や`Presentation`をグローバル変数で保持し続けるのは避けよ。また、以下のルールを徹底する。
- `Selection`を排除せよ: `ActiveWindow.Selection` を使うと、UIの描画処理が走り、メモリ消費が激増する。必ず `Slide.Shapes` を直接参照するコーディングを行うこと。
- 画像はリンクとして挿入せよ: `LinkToFile:=msoTrue` を使用すれば、プレゼンファイル内に画像バイナリを埋め込まずに済み、ファイルサイズとメモリ圧迫を劇的に抑えられる。
- `DoEvents`の適切な配置: 処理の合間に `DoEvents` を入れることで、OSが溜まったメッセージキューを処理し、描画系のメモリ解放を促すことができる。
—
結びに代えて
システム管理者やエンジニアが陥る罠は、「VBAは簡易的なツールである」という慢心だ。しかし、COMの背後で起きていることは、C++で書かれたアプリケーションと同等の複雑なリソース管理である。
コードを書くとき、常に「このオブジェクトはいつ、どのタイミングでメモリから消えるのか」を意識せよ。APIを叩き、プロセスを制御し、メモリを管理する。そこまでやって初めて、貴方のコードは「本物の業務自動化」として胸を張れるものになる。
次は、APIによるスレッド制御と、Excel連携時のメモリ共有効率化について深く掘り下げるとしよう。健闘を祈る。
