【上級】CorelDRAW VBAを掌握する極限の知見：Windows APIによるウィンドウ完全非表示化と超高速バックグラウンド変換
開発プロジェクトのリーダーである私たちが直面する最大のフラストレーション。それは、大量のベクターデータ（CDR）をPDFやEPS、SVGといった他フォーマットへ一括変換する際、CorelDRAWのGUIがガキガキと描画され、ウィンドウが点滅し、処理完了までPCが占有されるという「無駄な時間とリソースの浪費」だ。
世の中の一般的なVBA解説書は、「`App.Visible = False` にすれば非表示になります」というお遊戯レベルの記述で終わっている。しかし、実務で数千ファイルのバッチ処理を回すエンジニアなら知っているはずだ。標準のプロパティ操作だけでは、初期化の瞬間や特定のプラグインロード時にウィンドウがチラつき、最悪の場合、フォーカス泥棒が発生してバックグラウンド処理が盛大にクラッシュすることを。
今回は、CorelDRAWのCOMライフサイクルを完全に掌握し、Windows APIを直接叩いてウィンドウの生成そのものを不可視化・無効化する、極限のヘッドレス変換エンジンの設計思想と実装を伝授する。
—
1. なぜ「標準の非表示プロパティ」では実務で破綻するのか
CorelDRAWのApplicationオブジェクトには `Visible` プロパティが存在する。しかし、これを `False` に設定するタイミングは、アプリケーションインスタンスがメモリ上に生成された「後」だ。
このわずかなタイムラグの間に、OSのウィンドウマネージャーはメインフレームを描画し始める。これが、あの忌々しい「一瞬CorelDRAWの画面がチラつく現象」の正体だ。さらに、GUIスレッドが生きている限り、OSは描画リソース（GDIハンドル）を割り当て続け、メモリ消費とCPUの無駄なコンテキストスイッチを引き起こす。
プロフェッショナルなアプローチ：APIによる窓の支配
解決策はシンプルだ。
1. COMの遅延バインディング、あるいは適切なインスタンス生成。
2. 生成直後のウィンドウハンドル（HWND）をWindows API (`FindWindow` や `ShowWindow`) でキャッチ。
3. 描画メッセージ（`WM_PAINT` など）の遮断と、強制的な非表示（`SW_HIDE`）の即時適用。
これにより、CorelDRAWを「ただの計算エンジン（ヘッドレスサーバー）」として強制駆動させ、描画コストをゼロに抑え込む。
—
2. 堅牢な設計とファイル・DB連携の注意点
プロダクション環境（工場やバックオフィスサーバー）でこのエンジンを稼働させる場合、以下の「死活問題」に対策していなければならない。
- COMのゾンビ化防止（Garbage Collectionの徹底）：
大量ループの中でエラーが発生した際、メモリ上にCorelDRAWのプロセス（`coreldraw.exe`）が残留する。これを見逃すと、数時間でサーバーのメモリが枯渇する。必ず `On Error Goto` によるクリーンアップパスを実装し、`App.Quit` とオブジェクトの明示的な `Nothing` 代入を保証すること。
- ファイルロックと排他制御：
ネットワークドライブ上のCDRファイルを直接操作せず、必ずローカルの作業用ディレクトリ（`Environ(“TEMP”)`等）にコピーしてから処理を回すこと。CorelDRAWはファイルを開く際にロックをかけるため、別プロセスとの競合を防ぐ意味でも必須である。
- 進捗管理とDB/ログ連携：
GUIがないため、処理の成否はすべてテキストログまたはSQLite/Access等の軽量DBに書き出す必要がある。エラーコード、処理時間、変換前後のファイルサイズを記録し、トレーサビリティを確保する。
—
3. 実装コード：超高速ヘッドレス変換エンジン
以下のコードは、CorelDRAWのウィンドウを完全に隠蔽し、指定フォルダ内のCDRファイルを最高速でPDFに一括変換するプロダクションコードだ。VBAの標準モジュールにそのまま貼り付けて実行できる。
Option Explicit
‘ ==============================================================================
‘ Windows API 宣言
‘ ==============================================================================
If VBA7 Then
Private Declare PtrSafe Function ShowWindow Lib “user32” (ByVal hwnd As LongPtr, ByVal nCmdShow As Long) As Long
Private Declare PtrSafe Function GetActiveWindow Lib “user32” () As LongPtr
Else
Private Declare Function ShowWindow Lib “user32” (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Declare Function GetActiveWindow Lib “user32” () As Long
End If
‘ SW定数
Private Const SW_HIDE As Long = 0
Private Const SW_SHOW As Long = 5
‘ ==============================================================================
‘ メイン処理：ヘッドレス一括変換エンジン
‘ ==============================================================================
Public Sub ExecuteHeadlessConversion()
Dim cdrApp As Object
Dim startTime As Double
startTime = Timer
‘ 処理パスの設定（実務ではINIファイルやDBから取得することを推奨）
Dim sourceDir As String
Dim targetDir As String
sourceDir = “C:\VectorData\Input\”
targetDir = “C:\VectorData\Output\PDF\”
‘ ディレクトリ存在確認
If Dir(sourceDir, vbDirectory) = “” Then
MsgBox “入力フォルダが存在しません: ” & sourceDir, vbCritical
Exit Sub
End If
If Dir(targetDir, vbDirectory) = “” Then MkDir targetDir
On Error GoTo ErrorHandler
‘ 1. ヘッドレスモードでCorelDRAWインスタンスを生成
‘ ※CreateObjectは遅延バインディングを利用し、参照設定のバージョン依存を排除
Set cdrApp = CreateObject(“CorelDRAW.Application”)
‘ 2. 生成直後のウィンドウをWindows APIで強制非表示化
‘ ※App.Visibleプロパティに頼らず、OSレベルでウィンドウを隠す
Dim hwnd As LongPtr
hwnd = GetActiveWindow()
If hwnd <> 0 Then
ShowWindow hwnd, SW_HIDE
End If
‘ 3. パフォーマンス最適化のための環境設定
With cdrApp
.Optimization = True ‘ 画面描画やイベントを完全に抑制
.EventsEnabled = False ‘ イベントハンドラを無効化しオーバーヘッド削減
.Interactive = False ‘ ユーザー入力を受け付けない（バッチモード）
End With
‘ 4. ファイルループ処理
Dim fileName As String
Dim fullPath As String
Dim outPath As String
Dim fileCount As Long
fileName = Dir(sourceDir & “.cdr”)
fileCount = 0
Do While fileName <> “”
fullPath = sourceDir & fileName
outPath = targetDir & Left(fileName, InStrRev(fileName, “.”) – 1) & “.pdf”
‘ ドキュメントを開いてエクスポート（GUIを描画しないため極めて高速）
Dim doc As Object
Set doc = cdrApp.OpenDocument(fullPath)
‘ PDFパブリッシュ設定（必要に応じてプリセットや詳細パラメータを調整）
Dim expFilter As Object
Set expFilter = doc.PublishToPDF(outPath)
‘ ドキュメントを閉じる（変更を保存しない）
doc.Close
Set doc = Nothing
fileCount = fileCount + 1
fileName = Dir() ‘ 次のファイル
Loop
‘ 5. 終了処理（正常系）
Call TerminateCorelDRAW(cdrApp)
MsgBox “変換完了: ” & fileCount & ” ファイルを処理しました。” & vbCrLf & _
“処理時間: ” & Format(Timer – startTime, “0.00”) & ” 秒”, vbInformation, “Headless Engine”
Exit Sub
ErrorHandler:
‘ 異常系ハンドリング：ゾンビプロセスの防止
MsgBox “致命的なエラーが発生しました [” & Err.Number & “]: ” & Err.Description, vbCritical, “Critical Error”
If Not cdrApp Is Nothing Then
On Error Resume Next
cdrApp.Optimization = True
cdrApp.Quit
Set cdrApp = Nothing
On Error GoTo 0
End If
End Sub
‘ ==============================================================================
‘ クリーンアップ専用プロシージャ
‘ ==============================================================================
Private Sub TerminateCorelDRAW(ByRef appObj As Object)
If Not appObj Is Nothing Then
On Error Resume Next
appObj.Optimization = False
appObj.EventsEnabled = True
appObj.Interactive = True
appObj.Quit
Set appObj = Nothing
On Error GoTo 0
End If
End Sub
—
4. チーフアーキテクトからの実務アドバイス
このコードをデプロイする際、以下のポイントを運用設計に組み込んでほしい。
1. エラーログの出力機構の追加
上記コードの `ErrorHandler` 内に、エラー発生時のファイル名と `Err.Description` をテキストファイル（`C:\VectorData\error.log`）に追記する処理を実装すること。バッチ処理で1つのファイルが破損していたために全体が止まる事態を防ぐため、エラーファイルはスキップして次へ進むループ構造（`Resume Next` の適切な活用）に発展させるとさらに堅牢になる。
2. CPUコア数の考慮
CorelDRAWのレンダリングエンジンはシングルスレッド処理が絡む部分が多い。複数インスタンスを同時に立ち上げてマルチスレッド並列処理を自前で実装しようとすると、ライセンス認証やメモリ競合で確実に破綻する。「1つのヘッドレスインスタンスを立ち上げ、内部でファイルを高速に連続処理する」このシングルストリーム・高効率モデルが、現時点で最も安定するベストプラクティスだ。
GUIの呪縛からアプリケーションを解放し、CPUパワーのすべてを「ベクターデータの変換」だけに注ぎ込む。この設計を手に入れたあなたなら、どんな膨大な案件も定時前に終わらせることができるはずだ。実装の健闘を祈る。
