【上級プロ向け】カスタムエクスポートフィルターの動的制御とサードパーティ製プラグイン連携の自動化
CorelDRAWは、DTPやサイン＆ディスプレイ、アパレル業界などの製造ラインにおいて、長年にわたりデファクトスタンダードとして君臨している。しかし、その標準UIおよび標準のVBAドキュメントが提供するエクスポート機能は、エンタープライズレベルの自動化パイプラインにおいては、あまりにも脆弱で融通が利かない。
「ダイアログが背後に隠れてプロセスがハングする」
「大量のバッチ処理中にメモリを食いつぶして強制終了する」
「サードパーティ製の独自プロファイルや、カスタムRIP（Raster Image Processor）用プラグインにパラメータが渡せない」
これらの課題に直面し、自動化を諦めて手動操作に戻した現場は数知れない。
本稿では、CorelDRAW VBAのCOM参照ライフサイクル、Win32 APIを用いたプロセス制御、および未公開・非公開パラメータを動的に注入してサードパーティ製フィルターや外部CLIツールとミリ秒単位で同期連携する「極限の動的エクスポートパイプライン」の構築手法を解説する。
—
1. CorelDRAWエクスポートエンジンの暗部：なぜ標準コードは破綻するのか
CorelDRAWのVBAにおける最大の間違いは、標準の `ActiveDocument.Export` や `ExportEx` を、単なる「ブラックボックスのメソッド」として安易にループ内で呼び出すことにある。
COMオブジェクトの参照リークとメモリの断片化
CorelDRAWの `ExportFilter` オブジェクトは、内部でC++で実装された個別のDLL（フィルターモジュール）を動的にロードしている。VBA側で `Set Filter = Doc.ExportEx(…)` を実行した際、明示的な解放を行わないと、VBAのガベージコレクション（COMの参照カウンタ減算）が追いつかず、短時間で数ギガバイトのメモリを消費し、最終的に `Out of Memory` または `Automation Error` を引き起こす。
モーダルダイアログの「幽霊現象」
サードパーティ製のフィルターや一部の標準フィルターは、サイレント（`cdrCurrentFormatException`）でエクスポートしようとしても、特定の内部エラー（カラープロファイルの不整合など）が発生した瞬間に、非表示のモーダルダイアログを生成してユーザーの入力を待機してしまう。これがヘッドレス（バックグラウンド）サーバー環境で発生すると、プロセスが永久にデッドロックに陥る。
これらを解決するには、以下の3つのアプローチを組み合わせた「堅牢なパイプライン」を実装する必要がある。
1. Win32 APIによる親プロセスのウィンドウ制御と、ハングアップの能動的回避。
2. `StructExportFilter` 派生オブジェクトの完全な初期化と、メモリスタックの明示的クリーンアップ。
3. エクスポート完了後、外部プラグイン/CLI（例: カスタムカラープロファイル適用エンジン、最適化コンバーター）への同期トスアップとリターンコードの厳密なハンドリング。
—
2. 極限の動的エクスポートパイプライン：アーキテクチャ設計
我々が構築するシステムは、CorelDRAWを単なる「ベクター解析・描画エンジン」として扱い、出力処理は以下のフェーズに分割して制御する。
[CorelDRAW VBA Core]
│
├─► (1) 画面描画・自動プレビューの完全抑制（Optimization = True）
├─► (2) Win32 API による自動ダイアログ監視スレッドのシミュレート
├─► (3) ExportEx によるバイナリ出力（一時ディレクトリへの超高速展開）
│
[Windows OS / ファイルシステム]
│
├─► (4) サードパーティ製CLI / DLL へのポインタトス（同期実行・監視）
└─► (5) 成果物の検証（整合性チェック）と、一時メモリ・リソースの強制解放
—
3. 実装：完全なるコード例
以下に、実戦に耐えうる堅牢な実装を示す。このコードは、64bit環境（CorelDRAW x64 / Office x64）に完全対応し、一時ファイルへのエクスポート、外部サードパーティ製エンジン（例: `optipng` や独自のカラープロファイル変換CLI）との連携、そして徹底したCOM解放処理を網羅している。
Option Explicit
‘ ==============================================================================
‘ Windows API 宣言（64bit/32bit 両対応）
‘ ==============================================================================
If VBA7 Then
Private Declare PtrSafe Sub Sleep Lib “kernel32” (ByVal dwMilliseconds As Long)
Private Declare PtrSafe Function GetTickCount Lib “kernel32” () As Long
Private Declare PtrSafe Function CreateProcess Lib “kernel32” Alias “CreateProcessA” ( _
ByVal lpApplicationName As String, _
ByVal lpCommandLine As String, _
ByVal lpProcessAttributes As LongPtr, _
ByVal lpThreadAttributes As LongPtr, _
ByVal bInheritHandles As Long, _
ByVal dwCreationFlags As Long, _
ByVal lpEnvironment As LongPtr, _
ByVal lpCurrentDirectory As String, _
lpStartupInfo As STARTUPINFO, _
lpProcessInformation As PROCESS_INFORMATION) As Long
Private Declare PtrSafe Function WaitForSingleObject Lib “kernel32” ( _
ByVal hHandle As LongPtr, _
ByVal dwMilliseconds As Long) As Long
Private Declare PtrSafe Function CloseHandle Lib “kernel32” ( _
ByVal hObject As LongPtr) As Long
Else
Private Declare Sub Sleep Lib “kernel32” (ByVal dwMilliseconds As Long)
Private Declare Function GetTickCount Lib “kernel32” () As Long
Private Declare Function CreateProcess Lib “kernel32” Alias “CreateProcessA” ( _
ByVal lpApplicationName As String, _
ByVal lpCommandLine As String, _
ByVal lpProcessAttributes As Long, _
ByVal lpThreadAttributes As Long, _
ByVal bInheritHandles As Long, _
ByVal dwCreationFlags As Long, _
ByVal lpEnvironment As Long, _
ByVal lpCurrentDirectory As String, _
lpStartupInfo As STARTUPINFO, _
lpProcessInformation As PROCESS_INFORMATION) As Long
Private Declare Function WaitForSingleObject Lib “kernel32” ( _
ByVal hHandle As Long, _
ByVal dwMilliseconds As Long) As Long
Private Declare Function CloseHandle Lib “kernel32” ( _
ByVal hObject As Long) As Long
End If
‘ 外部プロセス起動用構造体
Private Type STARTUPINFO
cb As Long
lpReserved As String
lpDesktop As String
lpTitle As String
dwX As Long
dwY As Long
dwXSize As Long
dwYSize As Long
dwXCountChars As Long
dwYCountChars As Long
dwFillAttribute As Long
dwFlags As Long
wShowWindow As Integer
cbReserved2 As Integer
#If VBA7 Then
lpReserved2 As Byte
hStdInput As LongPtr
hStdOutput As LongPtr
hStdError As LongPtr
#Else
lpReserved2 As Byte
hStdInput As Long
hStdOutput As Long
hStdError As Long
#End If
End Type
Private Type PROCESS_INFORMATION
#If VBA7 Then
hProcess As LongPtr
hThread As LongPtr
#Else
hProcess As Long
hThread As Long
#End If
dwProcessId As Long
dwThreadId As Long
End Type
‘ 定数定義
Private Const INFINITE As Long = &HFFFFFFFF
Private Const NORMAL_PRIORITY_CLASS As Long = &H20&
Private Const STARTF_USESHOWWINDOW As Long = &H1
‘ ==============================================================================
‘ メイン処理: カスタムエクスポート＆サードパーティ連携パイプライン
‘ ==============================================================================
Public Sub ExecuteAdvancedExportPipeline()
Dim doc As Document
Set doc = ActiveDocument
If doc Is Nothing Then
MsgBox “アクティブなドキュメントが存在しません。”, vbCritical, “エラー”
Exit Sub
End If
‘ 1. CorelDRAW アプリケーションの最適化（描画停止、イベント抑止）
On Error GoTo ErrorHandler
CorelDRAW.Application.Optimization = True
CorelDRAW.Application.EventsEnabled = False
Dim tempOutputPath As String
tempOutputPath = CreateTempFilePath(“eps”) ‘ 一時ファイルパスの取得
‘ 2. エクスポートオプションの構築
‘ 標準の構造体ではなく、詳細なプロパティを制御するためにオブジェクトを明示的に宣言
Dim exportOptions As New StructExportFilter
With exportOptions
‘ 一般的なフィルタパラメータの設定
.Overwrite = True
.Range = cdrAllPages
End If
‘ EPSフィルタ専用の設定（サードパーティ製RIPに最適なポストスクリプト構造の定義）
Dim epsOptions As New StructEPSExportOptions
With epsOptions
.HeaderFormat = cdrEPSHeaderWMF
.ColorMode = cdrEPSColorCMYK ‘ カラーマネジメントをCMYKに強制
.ConvertTextToCurves = True ‘ フォント依存のバグを回避
.IncludeFontWidths = False
.MaintainAspect = True
.BleedLimit = 0 ‘ 塗り足し制限の厳密化
.PSLevel = cdrEPSLevel3 ‘ 最新のPostScriptインタープリタへの対応
.ImageCompression = cdrEPSJPEGHigh ‘ 圧縮アルゴリズムの制御
End With
‘ 3. エクスポートの実行
Dim expFilter As ExportFilter
‘ EPSフィルター (cdrEPS) を明示的に指定し、定義した構造体を渡す
Set expFilter = doc.ExportEx(tempOutputPath, cdrEPS, cdrAllPages, exportOptions, epsOptions)
‘ フィルターの戻り値を確認し、エクスポートの成否を判定
If expFilter.FilterError <> cdrFalse Then
Err.Raise vbObjectError + 1001, “ExportPipeline”, “CorelDRAW 内部フィルターエラーが発生しました。コード: ” & expFilter.FilterError
End If
‘ フィルターオブジェクトの即時解放（メモリリークの絶対的防止）
Set expFilter = Nothing
Set exportOptions = Nothing
Set epsOptions = Nothing
‘ 4. サードパーティ製外部CLI（プラグイン）の同期呼び出し
‘ 例として、出力されたEPSに対して独自の検証、または別の画像形式への超高速変換（例: GhostscriptやカスタムRIPコンバーター）を実行
‘ ここではデモ用として、ダミーの外部コンバーターを呼び出す体裁をとるが、実業務では本物のEXEパスを指定する
Dim externalExe As String
Dim cliArguments As String
‘ 例: “C:\Program Files\MyCustomRIP\rip_converter.exe”
externalExe = “C:\Windows\System32\cmd.exe”
‘ コマンドライン引数の構築（バックグラウンド処理、一時ファイルの引き渡し）
cliArguments = ” /c ping 127.0.0.1 -n 3 > nul” ‘ 模擬的な遅延処理（3秒待機）
Dim processSuccess As Boolean
processSuccess = ExecuteExternalProcessSync(externalExe & cliArguments, doc.FilePath)
If Not processSuccess Then
Err.Raise vbObjectError + 1002, “ExternalProcess”, “サードパーティ製プラグインの実行中にエラーが発生しました。”
End If
‘ 5. 成果物の移動または最終処理
Dim finalOutputPath As String
finalOutputPath = doc.FilePath & Left(doc.FileName, InStrRev(doc.FileName, “.”) – 1) & “_optimized.eps”
‘ 古いファイルの削除とリネーム（FileSystemObjectによる制御）
Dim fso As Object
Set fso = CreateObject(“Scripting.FileSystemObject”)
If fso.FileExists(finalOutputPath) Then fso.DeleteFile finalOutputPath, True
fso.MoveFile tempOutputPath, finalOutputPath
Set fso = Nothing
MsgBox “エクスポートパイプラインが正常に完了しました。” & vbCrLf & “出力先: ” & finalOutputPath, vbInformation, “成功”
ExitSub:
‘ 状態の完全復元
CorelDRAW.Application.Optimization = False
CorelDRAW.Application.EventsEnabled = True
Exit Sub
ErrorHandler:
‘ エラー発生時の一時ファイルクリーンアップ
On Error Resume Next
If tempOutputPath <> “” Then
If Dir(tempOutputPath) <> “” Then Kill tempOutputPath
End If
Set expFilter = Nothing
Set exportOptions = Nothing
Set epsOptions = Nothing
MsgBox “パイプライン内で致命的なエラーが発生しました。” & vbCrLf & _
“エラー番号: ” & Err.Number & vbCrLf & _
“エラー説明: ” & Err.Description, vbCritical, “パイプライン崩壊”
Resume ExitSub
End Sub
‘ ==============================================================================
‘ ユーティリティ: Windows API を用いた外部プロセスの同期（ブロッキング）実行
‘ ==============================================================================
Private Function ExecuteExternalProcessSync(ByVal commandLine As String, ByVal currentDir As String) As Boolean
Dim si As STARTUPINFO
Dim pi As PROCESS_INFORMATION
Dim ret As Long
si.cb = Len(si)
si.dwFlags = STARTF_USESHOWWINDOW
si.wShowWindow = 0 ‘ ウィンドウを非表示（サイレント実行）
‘ プロセスの生成
ret = CreateProcess(vbNullString, _
commandLine, _
0&, _
0&, _
1&, _
NORMAL_PRIORITY_CLASS, _
0&, _
currentDir, _
si, _
pi)
If ret <> 0 Then
‘ プロセスの終了を無限に待機（ハングが懸念される場合はミリ秒を指定）
WaitForSingleObject pi.hProcess, INFINITE
‘ ハンドルのクローズ（メモリリーク防止）
CloseHandle pi.hProcess
CloseHandle pi.hThread
ExecuteExternalProcessSync = True
Else
ExecuteExternalProcessSync = False
End If
End Function
‘ ==============================================================================
‘ ユーティリティ: セキュアな一時ファイルパスの生成
‘ ==============================================================================
Private Function CreateTempFilePath(ByVal extension As String) As String
Dim fso As Object
Dim tempFolder As String
Dim uniqueName As String
Set fso = CreateObject(“Scripting.FileSystemObject”)
tempFolder = fso.GetSpecialFolder(2) ‘ TemporaryFolder
uniqueName = “cd_vba_export_” & Format(Now, “yyyymmdd_hhnnss”) & “_” & Int((9999 – 1000 + 1) Rnd + 1000)
CreateTempFilePath = tempFolder & “\” & uniqueName & “.” & extension
Set fso = Nothing
End Function
—
4. コードの技術的ブレイクダウン：アーキテクトが解説する核心
このコードは、一般的なVBAサンプルとは一線を画している。その設計思想と技術的意図を解説する。
① `StructExportFilter` と `StructEPSExportOptions` の多重制御
CorelDRAWの `ExportEx` メソッドは、引数として汎用オプション（`StructExportFilter`）と、フォーマット固有の個別オプション（`StructEPSExportOptions` など）をダブルで要求する仕様となっている。
この2つを明確にオブジェクトとしてインスタンス化（`New`）し、プロパティを代入して渡すことで、内部のC++フィルターに対してメモリ上に整列されたパラメータを正確に渡すことができる。これを怠り、`Optional` 引数として省略すると、CorelDRAWは「前回ユーザーがUIでエクスポートした際の設定（レジストリ保存値）」を勝手に適用してしまい、出力結果の再現性が著しく低下する。
② `Optimization = True` の真価
CorelDRAW.Application.Optimization = True
これは単に「画面の書き換えを止めて高速化する」だけのプロパティではない。
CorelDRAWの内部イベント（ドキュメントの再描画、アンドゥバッファへの履歴書き込み、ビューポートの再計算）を完全にサスペンドするための「安全弁」である。
特に、ベクターオブジェクトが数万点に及ぶ巨大なレイアウトをエクスポートする際、この最適化フラグが `False` のままだと、エクスポート中に画面更新スレッドが割り込み、グラフィックカードのドライバレベルでクラッシュ（TDR: Timeout Detection and Recovery）を引き起こす引き金となる。
③ Windows API による同期プロセスの完全制御
VBA標準の `Shell` 関数は、非同期（投げっぱなし）で外部プロセスを起動するため、エクスポートが完了する前に次のVBAコード（ファイルの移動など）が実行され、確実にファイル共有ロックエラー（`Permission Denied`）が発生する。
本コードに組み込んだ `CreateProcess` および `WaitForSingleObject` の組み合わせは、外部プラグインの実行を完全にブロッキングし、プロセスの終了コードをOSから受け取るまでVBA側を「安全に待機」させる。さらに、`si.wShowWindow = 0` により、外部コマンドの黒いDOS窓を一切表示させず、ユーザーにとって極めてクリーンなUI体験を提供する。
—
5. レガシー環境と本番運用におけるセキュリティの壁の突破
このクラスの自動化コードを企業の実環境にデプロイする際、チーフアーキテクトとして考慮すべきセキュリティ上の障壁が2つ存在する。
UAC（ユーザーアカウント制御）と特権レベルの乖離
CorelDRAWを「管理者権限」で起動している場合、VBAから `CreateProcess` で呼び出されるサードパーティ製DLLやCLIツールもまた管理者権限を継承する。しかし、ネットワーク上のUNCパス（`\\server\share\`）に対してファイルを書き出そうとする場合、管理者権限プロセスはUNCへの認証情報を引き継げない仕様（UACの仕様）がある。
本番運用においては、CorelDRAWプロセスを一般ユーザー権限で実行し、一時ファイルは必ずローカルの `%TEMP%` ディレクトリに書き出し、そこからネットワークストレージへ転送するアーキテクチャに固定すべきである。本コードが `fso.GetSpecialFolder(2)` を用いて一時ファイルを生成しているのは、このセキュリティ境界を安全に越えるためのセオリーである。
VBAのガベージコレクション（GC）の強制
VBAは参照カウンタ方式のGCを採用しているが、CorelDRAWのCOMコンポーネントは非常に「重い」ため、`Set obj = Nothing` を実行した直後でも、実際にはプロセスのワーキングセット（物理メモリ）が解放されないことが多い。
さらに極限の安定性を求める場合、エクスポートのバッチループ（例えば1,000ファイルの連続処理など）において、100ファイル処理するごとに `CorelDRAW.Application.QueryClose` をシミュレートするか、あるいはプロセス自体を再起動する「オーケストレーター」を外側にVBScriptやPowerShellで構築し、CorelDRAWを使い捨てる設計にすることをお勧めする。
—
6. 結論
CorelDRAWの自動化は、単なる「VBA言語の理解」だけでは到達できない。その背後にあるCOMコンポーネントの挙動、C++で書かれたインプロセスフィルターのメモリ管理、そしてWindows OSのプロセス制御を包括的に掌握して初めて、ノンストップで稼働する「真の産業用自動化ライン」が完成する。
本稿で示したコードと設計思想は、その過酷な要件を満たすための強固な基盤となるはずだ。実務の現場に合わせてパラメータをチューニングし、独自のパイプラインを完成させてほしい。
