CorelDRAW VBAの限界を突破せよ：ブラックボックス化した外部フィルターを完全制圧するアーキテクチャ
CorelDRAWの標準エクスポート機能（`Export`メソッド）は、定型的な業務には十分だ。しかし、我々が対峙する現場はそう甘くない。独自のカラープロファイル、特殊なスクリーニング設定、あるいはサードパーティ製の「ブラックボックス」なDLLが制御する謎のエクスポートフィルター。これらが自動化のボトルネックとなり、多くのエンジニアが手動操作という泥沼に沈んでいく。
今回は、VBAの標準機能では到達できない「外部プロセスの動的制御」と「メモリ管理の極意」を伝授する。これは、CorelDRAWを単なる描画ソフトではなく、自動化のための「エンジン」として再定義する試みである。
—
1. ブラックボックスの「膜」を破る：Windows APIとメッセージフック
サードパーティ製プラグインがGUIを介してパラメータを要求する場合、VBAの`Export`メソッドは沈黙する。ここで諦めるか、それとも「Windows API」で力技でねじ伏せるか。
真の自動化エンジニアは、`FindWindow`と`SendMessage`を駆使し、ダイアログの裏側を覗き見る。以下のコードは、バックグラウンドで起動したプラグインウィンドウに対して、仮想的なキーボードイベントやボタン押下を送り込むための定石だ。
‘ 必要なAPI宣言
Private Declare PtrSafe Function FindWindow Lib “user32” Alias “FindWindowA” (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
Private Declare PtrSafe Function SendMessage Lib “user32” Alias “SendMessageA” (ByVal hwnd As LongPtr, ByVal wMsg As Long, ByVal wParam As LongPtr, lParam As Any) As LongPtr
‘ 制御の要点：ダイアログのハンドルを特定し、非同期でパラメータを注入する
Public Sub ForceExternalExport(ByVal targetTitle As String)
Dim hwnd As LongPtr
‘ プラグインのダイアログがアクティブになるのを待機
hwnd = FindWindow(vbNullString, targetTitle)
If hwnd <> 0 Then
‘ WM_COMMAND等を用いて、ダイアログ内の「OK」ボタンを強制押下する
‘ 注意：事前にSpy++等でコントロールIDを解析しておく必要がある
Const BM_CLICK = &HF5
SendMessage hwnd, BM_CLICK, 0, 0
End If
End Sub
—
2. オブジェクトのライフサイクル：メモリリークを許すな
CorelDRAWのVBAで最も多い障害は、メモリリークによるプロセスフリーズだ。特に大量のファイルを連続処理する場合、`Shape`や`Layer`、`Document`オブジェクトの残骸は、じわじわとCorelDRAWの仮想メモリを食い尽くす。
- 鉄則1: すべてのオブジェクトをループの最後で `Set = Nothing` する。
- 鉄則2: `DoEvents`を適切に挟み、Windowsのメッセージループを解放する。
Public Sub BatchProcess()
Dim doc As Document
Dim i As Long
For i = 1 To 100
Set doc = OpenDocument(“C:\Source\” & i & “.cdr”)
‘ 処理実行
ExecuteCustomExport doc
‘ 命懸けのクリーンアップ
doc.Close
Set doc = Nothing ‘ 明示的解放
‘ UIの固まりを防止し、OSにリソースを返す
DoEvents
Next i
End Sub
—
3. レガシー環境の防壁：遅延バインディングの活用
社内システムでは、CorelDRAWのバージョンが混在することがある。早期バインディング（参照設定）は開発効率は高いが、環境移行時に致命的なコンパイルエラーを招く。
私は、あえて遅延バインディング（Late Binding）を推奨する。実行時に動的に型を解決することで、バージョン差異による依存関係の地雷を回避できる。
‘ 参照設定に依存しない設計
Dim cdrApp As Object
Set cdrApp = CreateObject(“CorelDRAW.Application”)
‘ このスタイルであれば、CorelDRAW 2020でも2024でも
‘ APIのシグネチャが同じなら動く。これが現場の保守性だ。
—
4. アーキテクトからの提言：VBAは「接着剤」である
VBA単体で複雑な処理を完結させようとしてはいけない。VBAは、CorelDRAWという巨大な心臓部と、外部の強力なツール群（Pythonの画像処理ライブラリや、C#で書かれた高速処理用DLL）を繋ぐ「接着剤」に過ぎない。
1. VBA: CorelDRAW内のデータ抽出・前処理を担当。
2. C#/C++ (DLL): 重い計算や、特殊なバイナリ書き出しを担当。
3. VBA: DLLを呼び出し、結果を受け取って保存・終了。
この三層構造こそが、CorelDRAWの自動化において最も安定し、かつ高速なアーキテクチャである。ブラックボックスを恐れるな。OSレベルのAPIを突き詰めれば、CorelDRAWにできないことは何もない。
君たちの自動化システムが、単なる「作業の代行」ではなく、CorelDRAWというモンスターを自在に操る「指揮権」となることを期待している。健闘を祈る。
