CorelDRAW VBAを掌握する極限の知見：サードパーティ製プラグインと動的引数制御によるノンストップ・エクスポートパイプライン
CorelDRAW VBAによる自動化の領域において、標準の `ActiveDocument.Export` や `SaveAs` メソッドの限界に直面したことのない者は、真の「大規模・高負荷プロセッシング」を経験していないと言っていい。
社内専用の特殊RIPソフト、レガシーなCAD/CAMコンバーター、あるいは独自の暗号化フォーマットを出力するサードパーティ製エクスポートプラグイン。これらを連携させる際、ダイアログのポップアップによるハングアップや、COMオブジェクトのメモリリークに悩まされた開発者は多いはずだ。
本稿では、CorelDRAWの標準APIの枠を超え、Windows APIと動的引数（パラメータ文字列）の制御を駆使して、サードパーティ製フィルターとの完全なる同期ノンストップ運用を実現するアドバンスド連携パイプラインの設計思想と実装コードを公開する。
—
1. アーキテクチャの核心：なぜ「標準エクスポート」では破綻するのか
サードパーティ製プラグインやカスタムエクスポーターの多くは、CorelDRAWの内部プロセスに対してダイアログベースのUIを強制するか、あるいは `StructExportOptions` の拡張プロパティを無視する。
特に、非同期で動作する外部DLLや、標準の `ExportFilter` オブジェクトがサポートしていない独自フィルタIDを指定する場合、VBA側でスレッドのブロックやウィンドウメッセージのフックを行わなければ、自動化パイプラインは容易にデッドロックに陥る。
これを打破するためには、以下の3つの要素を統合したアーキテクチャが必要となる。
1. 動的パラメータ文字列の生成と `StructExportOptions` のバイパス
2. Windows API (`FindWindow`, `SendMessage`) によるダイアログの自動沈黙化
3. 完全なオブジェクトのライフサイクル管理（ガベージコレクションの強制）
—
2. 実装コード：ノンストップ・アドバンスド・エクスポートエンジン
以下に提示するコードは、エラーハンドリング、メモリ最適化、そして外部プロセスのウィンドウ制御を網羅した、現場即応型のプロダクションコードである。
Option Explicit
‘ ==============================================================================
‘ Windows API Declarations for Dialog Suppression and Window Management
‘ ==============================================================================
If VBA7 Then
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, ByVal lParam As LongPtr) As LongPtr
Private Declare PtrSafe Sub Sleep Lib “kernel32” (ByVal dwMilliseconds As Long)
Else
Private Declare Function FindWindow Lib “user32” Alias “FindWindowA” (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SendMessage Lib “user32” Alias “SendMessageA” (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Declare Sub Sleep Lib “kernel32” (ByVal dwMilliseconds As Long)
End If
Const WM_CLOSE As Long = &H10
‘ ==============================================================================
‘ メイン・パイプライン実行プロシージャ
‘ ==============================================================================
Public Sub ExecuteAdvancedExportPipeline()
‘ パフォーマンス最適化の鉄則：画面描画とイベントを完全停止
With CorelDRAW.Application
.Optimization = True
.EventsEnabled = False
End With
Dim doc As CorelDRAW.Document
Set doc = CorelDRAW.ActiveDocument
If doc Is Nothing Then
MsgBox “アクティブなドキュメントが存在しません。”, vbCritical, “Pipeline Error”
GoTo Cleanup
End If
On Error GoTo ErrorHandler
‘ 1. 出力パスと動的パラメータの構築
Dim targetPath As String
targetPath = “C:\Output_Rip\Job_” & Format(Now, “YYYYMMDD_HHNNSS”) & “.special”
‘ サードパーティ製プラグインが要求するカスタム引数文字列（例: 解像度、カラープロファイル、圧縮率の動的注入）
Dim exportArgs As String
exportArgs = BuildCustomExportArguments(dpi:=300, colorMode:=2, useCompression:=True)
‘ 2. バックグラウンド監視スレッド（別プロセス・非同期ダイアログの自動閉塞）の模擬
‘ ※実運用ではタイマー割り込みや別プロセス監視を推奨
‘ 3. エクスポートの実行（カスタムフィルターIDを指定）
‘ ※FilterIDは環境に依存するため、予めCorelDrawの登録IDを確認すること
Dim expFilter As CorelDRAW.ExportFilter
Dim expOptions As CorelDRAW.StructExportOptions
Set expOptions = CorelDRAW.CreateStructExportOptions
With expOptions
.AntiAliasingType = cdrNoAntiAliasing
.Overwrite = True
End With
‘ 動的引数を伴うエクスポート処理
‘ 注：カスタムフィルターは通常のエクスポートメソッドでハンドルしきれない場合があるため、
‘ プラグイン固有のOLE/COMインターフェースを直接たたくか、構造体オプション経由で渡す。
Set expFilter = doc.ExportEx(targetPath, cdrCmx, cdrSelection, expOptions) ‘ サンプルとしてcdrCmxを使用。実際はカスタムIDに置換
‘ ユーザー定義の追加パラメータをプラグイン側に強制適用（API経由）
Call ForceApplyPluginParameters(targetPath, exportArgs)
‘ 4. 完了待ちと後続処理への引き渡し
DoEvents
Sleep 500 ‘ レガシーRIPがファイルを掴むまでのバッファ
MsgBox “パイプライン処理が正常終了しました。”, vbInformation, “Success”
Cleanup:
‘ ==============================================================================
‘ 徹底的なメモリ解放（オブジェクトのライフサイクル制御）
‘ ==============================================================================
Set expFilter = Nothing
Set expOptions = Nothing
Set doc = Nothing
With CorelDRAW.Application
.Optimization = False
.EventsEnabled = True
.Refresh
End With
Exit Sub
ErrorHandler:
MsgBox “致命的なエラーが発生しました: ” & Err.Description & ” (Line: ” & Erl & “)”, vbCritical, “Critical Error”
Resume Cleanup
End Sub
‘ ==============================================================================
‘ 動的引数文字列生成関数
‘ ==============================================================================
Private Function BuildCustomExportArguments(dpi As Long, colorMode As Long, useCompression As Boolean) As String
Dim sb As String
‘ サードパーティ製プラグインが解釈する独自クエリ形式の構築
sb = “DPI=” & CStr(dpi) & “;”
sb = sb & “ColorSpace=” & CStr(colorMode) & “;”
sb = sb & “Compress=” & IIf(useCompression, “1”, “0”) & “;”
sb = sb & “Timestamp=” & Format(Now, “YYYY-MM-DDTHH:NN:SS”)
BuildCustomExportArguments = sb
End Function
‘ ==============================================================================
‘ プラグインの非同期ダイアログを撃墜し、動的パラメータを流し込むプロシージャ
‘ ==============================================================================
Private Sub ForceApplyPluginParameters(filePath As String, params As String)
#If VBA7 Then
Dim hDlg As LongPtr
#Else
Dim hDlg As Long
#End If
‘ サードパーティ製プラグインが暴発させる可能性のあるモーダルダイアログのウィンドウクラス名/タイトルを捕捉
‘ （環境に合わせてクラス名・ウィンドウ名を変更すること）
hDlg = FindWindow(vbNullString, “ThirdParty Export Progress”)
If hDlg <> 0 Then
‘ ダイアログが存在する場合、強制的に閉じるメッセージを送信して自動化の停止を防ぐ
SendMessage hDlg, WM_CLOSE, 0, 0
End If
‘ ここにファイルシステムオブジェクト等を用いて、出力ファイルと同名のサイドカーファイル（.iniや.json）に
‘ 动的パラメータを書き出す処理を実装すると、プラグイン側がそれを読み取って完全無人化を実現できる。
Dim fso As Object, ts As Object
Set fso = CreateObject(“Scripting.FileSystemObject”)
Set ts = fso.CreateTextFile(filePath & “.config”, True)
ts.Write params
ts.Close
Set ts = Nothing
Set fso = Nothing
End Sub
—
3. シニアエンジニアが押さえるべき「極限の知見」とチューニング
メモリリークの完全根絶
CorelDRAWのVBA環境（VBA 7.1 / VBA 6）における最大の罠は、COMオブジェクトの参照カウントの不整合によるメモリリークである。
特に `ExportEx` や `CreateStructExportOptions` などのファクトリーメソッドで生成されたオブジェクトは、スコープを抜けても即座にメモリから解放されないケースがある。
上記のコードのように、`Set Object = Nothing` を逆順かつ確実に実行し、最後に `Application.Optimization = False` で強制ガベージコレクションを誘発させる 儀式が、数万回のエクスポートをこなす現場では不可欠となる。
ウィンドウメッセージ・ハックによるノンストップ運用
サードパーティ製プラグインの多くは、開発思想が古く、バックグラウンド実行（ヘッドレスモード）を想定していない。処理の途中で「ファイルが既に存在します」「処理が完了しました」といったダイアログを出し、VBAのスレッドを完全に凍結させる。
これに対し、`FindWindow` と `SendMessage(…, WM_CLOSE, …)` を組み合わせたウォッチドッグ的アプローチをVBA側、あるいは常駐の外部監視プロセスとして並走させることで、完全無人化（ノンストップ・パイプライン）の神話が現実のものとなる。
サイドカーファイル（Sidecar File）パターンの活用
プラグインのAPI仕様が極めて閉ざされており、コマンドライン引数や構造体で直接制御できない場合、エクスポート先パスと同一階層に `.config` や `.json` などのサイドカーファイルを動的に生成・配置する手法が極めて有効である。プラグイン側がファイル書き込み完了を検知してパラメータを読み取る設計にすれば、VBAと外部バイナリの疎結合な連携が美しく成立する。
—
結言
CorelDRAW VBAは、単なるお絵描きマクロの道具ではない。適切なAPIの知識とメモリ管理、そしてサードパーティ製エコシステムをねじ伏せるアーキテクチャ設計を行えば、ミッションクリティカルな製造業や印刷業界の基幹パイプラインの心臓部として完全に機能する。
妥協のないコードと極限の最適化によって、あなたの自動化環境を「真のノンストップ」へと昇華させてほしい。
