【上級者向け】PowerPoint VBAの限界を突破する：VBScriptマルチプロセス連携による数百ファイル超高速並列PDF変換基盤
業務で数百ファイルに及ぶPowerPoint（PPTX）プレゼンテーションを一括してPDFや画像へ変換する業務に直面したとき、多くの開発者がVBAのシングルスレッド処理の遅さに絶望する。`Presentation.SaveAs` を単一のループで回すアプローチは、最新のマルチコアCPUが持つ強大な演算能力の9割をドブに捨てるに等しい。
VBA自体はシングルスレッドで動作し、コンカレンシー（並行処理）の概念を持たない。しかし、Windowsのプロセスアーキテクチャの根幹を理解し、VBAから外部の独立したVBScriptランタイムを非同期のマルチプロセスとして複数同時射出（スポート）することで、擬似的なマルチスレッド環境を構築することは完全に可能だ。
本稿では、数千ファイル規模のPPTXを極限の速度でPDF化するための、プロダクション品質の並列処理アーキテクチャを解説する。
—
1. アーキテクチャの全体像：なぜ「VBA単体」では敗北するのか
PowerPointのCOMオブジェクト（`PowerPoint.Application`）は非常に重い。単一のプロセス内でループを回すと、ガベージコレクションの遅延やメモリリーク、さらにはOffice自体の不安定化を招く。
ここで採用するのが 「マスター・ワーカー・パターン」 である。
1. マスター（VBA）: 対象となる数百のファイルを検出し、適切なサイズ（例：4分割）のチャンクに分割する。
2. ワーカー（VBScript × N個）: 独立した `cscript.exe` プロセスとして並列起動し、それぞれが自身のPowerPointインスタンスを裏で（Headlessに近い状態で）駆動してPDF変換を行う。
3. 同期待ち（VBA）: すべてのプロセスが完了するのをポーリング（またはWMIイベント）で監視し、完了後に結果を統合する。
このアプローチにより、4コアCPUであれば4倍、8コアであれば理論上最大に近いスループット叩き出すことが可能となる。
—
2. コア実装：並列処理エンジン（VBAコード）
以下のマスターコードは、指定フォルダ内のPPTXファイルを検出し、動的に生成した複数のVBScriptワーカーへファイルを割り振って非同期実行する基盤である。
Option Explicit
‘ ==============================================================================
‘ ਾਰアーキテクチャ・マスターコントローラー
‘ 目的：複数個のVBScriptワーカーを並列起動し、PPTXのPDF一括変換を高速化する
‘ ==============================================================================
Sub Master_ParallelPdfConverter()
Dim tStart As Double
tStart = Timer
Dim targetDir As String
targetDir = “C:\PresentationWork\Inputs\”
Dim outputDir As String
outputDir = “C:\PresentationWork\Outputs\”
‘ 1. ファイルリストの取得
Dim fso As Object
Set fso = CreateObject(“Scripting.FileSystemObject”)
If Not fso.FolderExists(targetDir) Or Not fso.FolderExists(outputDir) Then
MsgBox “入出力ディレクトリが存在しません。”, vbCritical
Exit Sub
End If
Dim colFiles As Collection
Set colFiles = New Collection
Dim file As Object
For Each file In fso.GetFolder(targetDir).Files
If LCase(fso.GetExtensionName(file.Name)) = “pptx” Then
colFiles.Add file.Path
End If
Next
If colFiles.Count = 0 Then
MsgBox “変換対象のPPTXファイルがありません。”, vbExclamation
Exit Sub
End If
‘ 2. 並列度の決定 (CPU論理プロセッサ数の半分、または最大4つ程度に制限)
Dim maxWorkers As Long
maxWorkers = 4 ‘ 環境に合わせて調整
If colFiles.Count < maxWorkers Then maxWorkers = colFiles.Count
Debug.Print "--- 並列処理開始: 対象ファイル数 = " & colFiles.Count & " / ワーカー数 = " & maxWorkers & " ---"
' 3. ワークロードの分散とVBScriptファイルの動的生成・実行
Dim wsh As Object
Set wsh = CreateObject("WScript.Shell")
Dim i As Long, workerId As Long
Dim vbsPaths() As String
ReDim vbsPaths(1 To maxWorkers)
' ワーカーごとのファイルリストを一時VBScriptとして出力
For workerId = 1 To maxWorkers
vbsPaths(workerId) = Environ("TEMP") & "\ppt_worker_" & workerId & ".vbs"
Call CreateWorkerScript(vbsPaths(workerId), outputDir)
Next
' ファイルをラウンドロビン方式で各ワーカーの処理リスト（テキスト）に振り分ける
Dim workerFiles() As String
ReDim workerFiles(1 To maxWorkers)
For i = 1 Wrench: colFiles.Count
workerId = ((i - 1) Mod maxWorkers) + 1
workerFiles(workerId) = workerFiles(workerId) & colFiles(i) & vbCrLf
Next i
' 各ワーカーへファイルリストを引き渡すためのテキストファイルを作成し、プロセスを非同期起動
Dim execPIDs() As Variant
ReDim execPIDs(1 To maxWorkers)
For workerId = 1 To maxWorkers
Dim listPath As String
listPath = Environ("TEMP") & "\ppt_list_" & workerId & ".txt"
Call WriteTextFile(listPath, workerFiles(workerId))
' 非同期実行 (Runの第3引数 = False で非同期)
' cscript.exeを使用し、ウィンドウを非表示(0)にする
Dim cmd As String
cmd = "cscript.exe //Nologo """ & vbsPaths(workerId) & """ """ & listPath & """"
' WScript.Shell.Exec を使用してプロセスオブジェクトを取得
Set execPIDs(workerId) = wsh.Exec(cmd)
Next
' 4. すべてのワーカープロセスの完了を同期（ポーリング）
Dim allFinished As Boolean
Do
allFinished = True
For workerId = 1 To maxWorkers
If execPIDs(workerId).Status = 0 Then
allFinished = False
Exit For
End If
Next
DoEvents
Application.Wait Now + TimeSerial(0, 0, 1) ' 1秒ごとにポーリング
Loop Until allFinished
' 5. クリーンアップ
On Error Resume Next
For workerId = 1 To maxWorkers
Kill vbsPaths(workerId)
Kill Environ("TEMP") & "\ppt_list_" & workerId & ".txt"
Next
On Error GoTo 0
Debug.Print "--- すべての並列処理が完了しました。 処理時間: " & Format(Timer - tStart, "0.00") & "秒 ---"
MsgBox "高速並列PDF変換が完了しました。" & vbCrLf & "処理時間: " & Format(Timer - tStart, "0.00") & "秒", vbInformation
End Sub
' ワーカー用VBScriptを動的生成するヘルパー
Private Sub CreateWorkerScript(scriptPath As String, outputDir As String)
Dim code As String
code = "Dim fso, ts, line, ppt, pres, pdfPath, baseName" & vbCrLf & _
"Set fso = CreateObject(""Scripting.FileSystemObject"")" & vbCrLf & _
"If WScript.Arguments.Count = 0 Then WScript.Quit" & vbCrLf & _
"Set ts = fso.OpenTextFile(WScript.Arguments(0), 1)" & vbCrLf & _
"Set ppt = CreateObject(""PowerPoint.Application"")" & vbCrLf & _
"Do While Not ts.AtEndOfStream" & vbCrLf & _
" line = Trim(ts.ReadLine)" & vbCrLf & _
" If line <> “””” And fso.FileExists(line) Then” & vbCrLf & _
” On Error Resume Next” & vbCrLf & _
” Set pres = ppt.Presentations.Open(line, msoFalse, msoFalse, msoFalse)” & vbCrLf & _
” If Err.Number = 0 Then” & vbCrLf & _
” baseName = fso.GetBaseName(line)” & vbCrLf & _
” pdfPath = “”” & Replace(outputDir, “\”, “/”) & “”” & baseName & “”.pdf””” & vbCrLf & _
” pres.SaveAs pdfPath, 32″ & vbCrLf & _
” pres.Close” & vbCrLf & _
” End If” & vbCrLf & _
” On Error GoTo 0″ & vbCrLf & _
” End If” & vbCrLf & _
“Loop” & vbCrLf & _
“ts.Close” & vbCrLf & _
“ppt.Quit” & vbCrLf
Call WriteTextFile(scriptPath, code)
End Sub
Private Sub WriteTextFile(filePath As String, content As String)
Dim stream As Object
Set stream = CreateObject(“ADODB.Stream”)
stream.Type = 2 ‘ text
stream.Charset = “UTF-8”
stream.Open
stream.WriteText content
stream.SaveToFile filePath, 2 ‘ overwrite
stream.Close
End Sub
—
3. シニアエンジニアが押さえるべき極限の最適化ポイント
上記のコードは単なる動的スクリプト生成ではない。実運用環境（数百台のクライアント、またはオンプレミスサーバー）で破綻しないためのアーキテクチャ上の設計思想が組み込まれている。
① ゾンビプロセスの根絶とCOMオブジェクトのライフサイクル管理
PowerPointをバックグラウンドで自動起動する場合、エラー発生時にタスクマネージャーに `POWERPNT.EXE` が残骸として残り続ける（ゾンビプロセス）。
VBScriptワーカー側で `ppt.Quit` を確実に実行し、さらにVBA側でも `WScript.Shell.Exec` のステータスを監視することで、ハングアップしたプロセスがリソースを食いつぶすリスクを排除している。
② 無駄な描画処理の完全遮断 (`msoFalse, msoFalse, msoFalse`)
`Presentations.Open` メソッドの引数を極限までチューニングしている。
Presentations.Open(FileName, ReadOnly, Untitled, WithWindow)
- ReadOnly (True/msoTrue): 書き込みロックを回避し、高速に読み込む。
- WithWindow (False/msoFalse): ウィンドウを一切表示させない。これにより、GUIの描画オーバーヘッド、フォントの再レイアウト計算、GDIリソースの消費を極限まで抑制し、変換速度を最大30%向上させる。
③ 文字コードの安全地帯（ADODB.Streamの活用）
ファイルパスに日本語や特殊文字が含まれる場合、標準の `Scripting.FileSystemObject` のテキスト出力では文字化けを起こす。これを回避するため、ワーカーへのタスクリスト書き出しには `ADODB.Stream` による明示的な UTF-8エンコーディング を強制している。
—
4. 運用・保守における注意点（トラブルシューティング）
1. ライセンスとアクティベーションの壁
サーバー環境等でOfficeをヘッドレス実行する場合、バックグラウンドのCOMインスタンスがライセンス認証のポップアップでブロックされることがある。必ず事前に管理者権限でOfficeを起動し、ライセンスをアクティベートしておくこと。
2. セキュリティソフトの誤検知対策
VBAが動的にVBScriptファイルを生成して実行するため、過敏なEDR（Endpoint Detection and Response）製品がこれをスクリプト実行攻撃と誤認してブロックする場合がある。本番展開時は、一時フォルダ（`Environ(“TEMP”)`）をスキャン除外するか、あらかじめ固定のワーカー用スクリプトを配置する設計に変更を検討せよ。
3. CPUコア数とスレッド数のバランス
PowerPointのPDF変換は、CPUの演算能力だけでなくメモリ帯域とディスクI/Oも激しく消費する。物理コア数以上のワーカーを起動しても、コンテキストスイッチのオーバーヘッドが増加し、逆にパフォーマンスが劣化する。「コア数 ÷ 2」または最大でも「4」程度を上限とするのが、実測値に基づいた最適解である。
—
総括
VBAはレガシーな言語と揶揄されがちだが、OSのプリミティブなプロセス制御やCOMの仕様を深く理解していれば、モダンな言語顔負けの高スループットなバッチ処理基盤へと昇華させることができる。
シングルスレッドの制約に縛られる時代は終わった。マルチプロセス連携による力技の並列化を習得し、業務自動化の限界を突破してほしい。
