CorelDRAW VBAの限界を突破せよ：マルチプロセス並列処理による高速変換エンジンの設計思想
CorelDRAW VBAは、強力なオブジェクトモデルを保持している一方で、その本質は「単一スレッドのメインプロセス」という制約に縛られている。多くの開発者が、数百、数千のCDRファイルをPDFやEPSに変換する際、VBAのループ処理の遅さに絶望し、プロセスがフリーズするのを眺めるだけで時間を浪費している。
だが、真のエンジニアはVBAを「処理エンジン」としてではなく、「オーケストレーター」として定義する。CorelDRAWのマルチコア性能を物理的に引き出すためには、VBAのシングルスレッドを捨て、OSレベルでのマルチプロセス並列実行へと舵を切る必要がある。
本稿では、VBAから外部プロセスを非同期起動し、CPUコアを使い尽くす「並列変換アーキテクチャ」の核心を解説する。
—
1. なぜ「VBA単体」ではダメなのか：ライフサイクルの管理
CorelDRAWの `Application` オブジェクトは、重厚なCOMサーバーだ。同一プロセス内で多数のファイルを連続変換すると、GDIリソースの枯渇やメモリリークが避けられない。特にPDF書き出し時に発生する隠れた `Document` オブジェクトの残留は、数十ファイルでシステムを不安定にする。
我々が目指すべきは、「1ファイル1プロセス」の使い捨て戦略だ。
2. アーキテクチャの全体像：コントローラーとワーカー
- オーケストレーター (VBA): ファイルリストの作成、ワーカープロセス（VB.NETで作成した軽量実行ファイル）の起動監視。
- ワーカー (VB.NET/CLI): CorelDRAWのCOMを叩き、1ファイルのみを処理して即座に終了する。これにより、メモリの完全解放とスタックの初期化をOSレベルで保証する。
—
3. 実装の要：外部プロセス起動エンジン（VBA）
VBA側では、`WScript.Shell` を使用し、非同期でワーカーをキックする。ここで重要なのは、`WaitOnReturn` を `False` にすることだ。
‘ オーケストレーター：VBA側
Sub ParallelExportEngine()
Dim wsh As Object
Set wsh = CreateObject(“WScript.Shell”)
Dim files As Variant: files = GetFileList(“C:\SourceData\”)
Dim i As Long
‘ CPUコア数に合わせて並列数を制限するのが定石（ここでは簡易的にループ）
For i = LBound(files) To UBound(files)
‘ 非同期でワーカー（ExportWorker.exe）を起動
‘ 引数にファイルパスを渡す
wsh.Run “C:\Tools\ExportWorker.exe “”” & files(i) & “”””, 0, False
Next i
Set wsh = Nothing
End Sub
—
4. 極限のワーカー：VB.NETでのCOM制御
ワーカー側は、CorelDRAWのインスタンスを生成・破棄するだけのシンプルな構造にする。ここで重要なのは `Marshal.ReleaseComObject` の徹底だ。
‘ ワーカー：VB.NET側 (CorelDRAWの参照設定が必要)
Sub Main(args As String())
Dim cdrApp As CorelDRAW.Application = Nothing
Dim doc As CorelDRAW.Document = Nothing
Try
cdrApp = New CorelDRAW.Application()
doc = cdrApp.OpenDocument(args(0), False)
‘ PDF変換設定
Dim structExport As New CorelDRAW.StructExportOptions
doc.PublishToPDF(args(0).Replace(“.cdr”, “.pdf”), , structExport)
Finally
‘ 徹底したCOM解放。これがメモリリークを防ぐ唯一の手段
If doc IsNot Nothing Then
doc.Close()
System.Runtime.InteropServices.Marshal.ReleaseComObject(doc)
End If
If cdrApp IsNot Nothing Then
cdrApp.Quit()
System.Runtime.InteropServices.Marshal.ReleaseComObject(cdrApp)
End If
GC.Collect()
GC.WaitForPendingFinalizers()
End Try
End Sub
—
5. シニアエンジニアが押さえるべき「罠」
1. インスタンスの同時起動制限
CorelDRAWのライセンスやシステム負荷を考慮せず、CPUコア数分だけ全開で起動すると、ライセンス認証エラーやメモリ不足（Out of Memory）が発生する。`Semaphore`（セマフォ）や、キューを用いた実行制御を介在させ、同時起動数を「CPUコア数 – 1」に制限することが、運用上の安定を担保する。
2. GDIリソースの監視
CorelDRAWはPDF生成時に大量のGDIリソースを消費する。レジストリ設定で `GDIProcessHandleQuota` を調整することも視野に入れるべきだ。
3. エラーハンドリングとログ
外部プロセスがクラッシュした際、メインシステムが沈黙してはならない。ワーカーは処理結果をログファイル（JSON等）に出力し、VBA側はそのログファイルをウォッチする「ポーリング監視」を実装すること。
—
結びに：伝説のアーキテクトからの助言
VBAで複雑なことをやろうとするな。VBAは強力な接着剤だが、重労働をさせるべきではない。
CorelDRAWのAPIを叩く際、「プロセスを殺す勇気」を持つことが、何万枚ものファイルを安定して変換し続けるための唯一の道である。
このアーキテクチャは、あなたのCorelDRAW環境を、単なる作図ソフトから「エンタープライズ級のグラフィック・ファクトリー」へと変貌させるだろう。健闘を祈る。
