CorelDRAWを「透明な変換エンジン」に変える：Windows APIによる完全非表示バックグラウンド処理の極意
こんにちは。CorelDRAWの自動化を極めようと足を踏み入れたあなたを歓迎します。
マクロの記録から脱却しようとしている皆さん、おめでとうございます。ここから先は、GUIに縛られない「真のエンジニアリング」の世界です。今回は、CorelDRAWを単なる描画ソフトとしてではなく、「超高速なベクター変換エンジン」として覚醒させるための、Windows APIを活用した「完全非表示実行」のテクニックを伝授します。
—
1. なぜ「非表示（Invisible）」が必要なのか？
CorelDRAWのGUI（画面）は非常に高機能ですが、大量のCDRファイルを変換する際、画面がパタパタと切り替わるのは、単なる視覚的なノイズではありません。GUIのレンダリング負荷は、一括変換の速度を劇的に低下させます。
プロの現場では、ユーザーが気づかないうちに裏側で数千個のファイルを処理し、完了の通知だけを出す。これが「勝てる自動化」です。
—
2. Windows APIによる「影の操作」
VBA標準の機能だけでは、CorelDRAWを完全に隠すことはできません。そこで登場するのが、Windows OSの心臓部を叩く「Windows API」です。今回は `ShowWindow` というAPIを使い、CorelDRAWのウィンドウを強制的に「非表示」に固定します。
実装のコード例
以下のコードをVBAの標準モジュールに貼り付けてください。
‘ Windows APIの宣言：ウィンドウの表示状態を制御する
If VBA7 Then
Private Declare PtrSafe Function ShowWindow Lib “user32” (ByVal hwnd As LongPtr, ByVal nCmdShow As Long) As Long
Else
Private Declare Function ShowWindow Lib “user32” (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
End If
‘ 定数定義：0は非表示、5は通常表示
Private Const SW_HIDE = 0
Private Const SW_SHOWNORMAL = 5
Sub BatchConvertInvisible()
‘ CorelDRAWのウィンドウハンドルを取得
Dim handle As LongPtr
handle = Application.WindowHandle
‘ 【核心部】ウィンドウを非表示にしてオーバーヘッドを排除
ShowWindow handle, SW_HIDE
On Error GoTo Cleanup ‘ エラー発生時でも必ず画面を戻す
‘ ここに変換処理を記述
Dim doc As Document
Set doc = Application.OpenDocument(“C:\Data\Input.cdr”)
‘ PDFエクスポートの例（バックグラウンドで高速実行）
Call doc.Export(“C:\Data\Output.pdf”, cdrPDF)
doc.Close
Cleanup:
‘ 処理終了後、必ず画面を戻す（戻さないとCorelが消えたままになる！）
ShowWindow handle, SW_SHOWNORMAL
End Sub
—
3. 初学者が必ずハマる「3つの罠」
このコードを実装する際、多くのエンジニアが躓くポイントがあります。ここをクリアすれば、あなたは中級者の壁を突破できます。
① 「終了処理」の脱落（例外処理）
エラーが発生して `doc.Close` が実行されず、かつ `ShowWindow` の戻し処理も飛ばされると、CorelDRAWは「裏でずっと生き続けているゾンビ状態」になります。必ず `On Error GoTo` を使い、どんな状況でもアプリケーションを健全に閉じる仕組みを作ってください。
② ユーザーフォームは「敵」
非表示モード中にユーザーフォームを表示させようとすると、VBAは一時停止するか、表示できずにフリーズします。バックグラウンド処理中は、メッセージボックス（MsgBox）さえも厳禁です。ログファイルへの書き出しに切り替えましょう。
③ ファイルダイアログの罠
`Application.FileOpen` などのダイアログを表示させるメソッドは、非表示モードでは画面が出ないため「プログラムが固まった」ように見えます。ファイルパスは必ずハードコードするか、テキストファイルやデータベースから読み込む設計にしましょう。
—
4. プロのアーキテクチャへの昇華
単一のファイルを処理するだけなら、このコードで十分です。しかし、数千個のファイルを扱うなら、以下の設計思想を加えてください。
1. キューイング（待ち行列）の作成: ファイルパスを配列に格納し、ループ処理で回す。
2. イベントハンドラの解除: `Application.EventsEnabled = False` にすることで、ファイルを開くたびに発生する再描画やプロパティ更新のイベントを無効化し、速度を限界まで引き上げます。
3. GC（ガベージコレクション）の意識: CorelDRAWのオブジェクト（Document, Shape）は、使い終わったら必ず `Set doc = Nothing` でメモリを解放してください。巨大なCDRファイルを扱う際、これがないとメモリリークでCorelDRAWがクラッシュします。
—
最後に：自動化は「愛」です
「手作業を減らしたい」という思いは、技術への敬意から生まれます。GUIを消し去り、APIを使いこなし、裏側で黙々とタスクをこなすCorelDRAWの姿は、まるで職人が見えないところで最高級の細工を施しているかのようです。
このコードをベースに、あなたの業務環境に合わせてカスタマイズしてみてください。CorelDRAW VBAの深淵は、まだまだ先に続いています。次は「外部のVB.NETプログラムからCOMインターフェースを叩き、CorelDRAWを完全に独立したプロセスとして制御する方法」に挑戦してみるのも面白いかもしれません。
あなたの自動化ライフが、より効率的で刺激的なものになることを心から願っています！
