CorelDRAW VBAの限界を突破せよ：マルチプロセス制御による「超高速変換エンジン」の極意
こんにちは。CorelDRAWという広大なグラフィックスの海を泳ぐ皆さん、日々のルーチンワークに追われていませんか？
「数百個のCDRファイルをPDFやEPSに変換するだけで、PCの前で数時間も待機している」
もしあなたがそんな状況なら、それはVBAの責任ではありません。VBAはシングルスレッド（一度に一つの仕事しかできない）という制約の中で、黙々と命令を遂行しているだけなのです。
今日は、その「待ち時間」を物理的に消滅させる、プロフェッショナルなアーキテクチャの極意をお話しします。
—
1. なぜ「単一のVBA」では限界があるのか？
CorelDRAWのVBAは、ドキュメントの操作には最強ですが、「CPUのマルチコアを活かせない」という弱点があります。VBAでループを回して `Doc.Export` を繰り返しても、CPUは一つのコアしか使わず、他のコアは遊んでいる状態です。
これを打破する唯一の方法。それは、「VBAを司令塔にし、外部プロセスとしてCorelDRAWを複数立ち上げる」という並列処理戦略です。
—
2. アーキテクチャの全体像
私たちが目指すのは、以下の構造です。
1. 司令塔（Master VBA）: 変換対象リストを管理し、空いている「ワーカー」に仕事を割り振る。
2. ワーカー（Worker Process）: CorelDRAWのインスタンスを個別に起動し、担当ファイルを変換して終了する。
これにより、8コアのCPUなら、理論上は「8個のCorelDRAWが同時に動く」という圧倒的なパフォーマンスが得られます。
—
3. 実装の要：外部プロセス呼び出し
VBAから外部のCorelDRAWを動かすには `Shell` 関数や `WScript.Shell` を使います。ここで重要なのは、「変換専用の最小限のVBAコード」を別ファイルとして用意することです。
ステップ1：変換用スクリプト（Worker.vba）
まず、このコードを `ExportWorker.gms` などとして保存しておきます。
‘ 変換実行用プロシージャ
Sub ExportDocument(strPath As String, strExportPath As String)
Dim doc As Document
Set doc = OpenDocument(strPath)
‘ PDFエクスポートの設定（最適化済みのフィルタを使用）
Dim expFilter As StructExportOptions
Set expFilter = New StructExportOptions
doc.Export strExportPath, cdrPDF, cdrCurrentPage, expFilter
doc.Close
End Sub
ステップ2：司令塔（Master Controller）
ここが皆さんの腕の見せ所です。`FileSystemObject` でフォルダを監視し、プロセスを並列化します。
Sub ParallelExportEngine()
Dim fso As Object, folder As Object, file As Object
Set fso = CreateObject(“Scripting.FileSystemObject”)
Set folder = fso.GetFolder(“C:\SourceCDR”)
Dim shell As Object
Set shell = CreateObject(“WScript.Shell”)
‘ ここでファイルリストをループ
For Each file In folder.Files
If LCase(fso.GetExtensionName(file.Path)) = “cdr” Then
‘ CorelDRAWを非表示(Hidden)で個別に起動し、コマンドライン引数で制御
‘ 実際には引数でVBAマクロをキックするのが最も安定します
shell.Run “CorelDRW.exe /v ” & file.Path & ” /run ExportWorker.ExportDocument”, 0, False
End If
Next
End Sub
—
4. プロの現場で陥りやすい「罠」
この手法を導入すると、必ず以下の問題に直面します。これを知っているか否かで、エンジニアとしての格が決まります。
- メモリリーク: CorelDRAWを大量に起動するとメモリを食いつぶします。同時に起動するプロセス数は、PCのメモリ容量に合わせて制御（セマフォ制御）してください。
- ファイルロック: 同時に同じファイルを開こうとすると例外が発生します。必ず`On Error Resume Next`で処理を堅牢に保つか、変換済みフォルダへ移動させる論理を組みましょう。
- 設定の競合: CorelDRAWのワークスペース設定は全インスタンスで共有されることがあります。起動時に特定のプロファイル（`/config`オプション）を指定するのが最も安全です。
—
最後に：自動化は「道具」ではなく「思想」
「マクロの記録」で生成されたコードは、いわば「手作業の鏡」です。しかし、今日お話ししたような並列処理の設計は、「手作業を再現するのではなく、システムとして再定義する」というエンジニアの視点が必要です。
CorelDRAW VBAは、決して古臭い言語ではありません。あなたがどう料理するかで、それは「退屈な作業を強いる牢獄」にもなれば、「クリエイティブな時間を生み出す最強のエンジン」にもなるのです。
さあ、次はあなたの番です。まずは2つのファイルを同時に変換するところから始めてみてください。その「同時進行」の光景を見たとき、あなたはもうVBAの初心者ではありません。
何か詰まったら、いつでも聞いてください。コードの深淵で待っています。
