【実務・中級編】【上級プロ向け】Windows APIと連携したCorelDRAWのウィンドウ完全非表示化による超高速バックグラウンド一括フォーマット変換 – CorelDRAW VBA解析バイブル

【上級プロ向け】Windows APIと連携したCorelDRAWのウィンドウ完全非表示化による超高速バックグラウンド一括フォーマット変換

CorelDRAWの自動化において、数千〜数万件規模のベクターデータ処理を行う際、最大のボトルネックとなるのは「UI（ユーザーインターフェース）の描画オーバーヘッド」と「ユーザー応答を待つダイアログの割り込み」です。

標準のVBAチュートリアルに書かれているような `Application.Visible = False` や `Application.Optimization = True` だけでは、CorelDRAWの描画エンジンを完全に抑え込むことはできません。内部的には依然としてウィンドウハンドル（HWND）に対するメッセージループやGDI+/Direct2Dのリソース確保が発生しており、変換速度を劇的に低下させる原因となっています。

本記事では、開発プロジェクトのリードアーキテクトの視点から、Windows APIを直接叩いてCorelDRAWのウィンドウを完全に隠蔽・制御し、OSの裏側で極限まで描画オーバーヘッドを削ぎ落とした超高速バックグラウンド変換パイプラインの構築手法を伝授します。

—

1. バックグラウンド完全制御のアーキテクチャ設計

なぜ通常のVBAスクリプトは遅いのか。まずはその構造的欠陥と、今回構築するプロフェッショナル・アーキテクチャの差を理解してください。

【従来のアプローチ（低速・不安定）】
CorelDRAW起動 -> UI描画 -> ファイル開く -> 再描画 -> ダイアログ検出(ストップ) -> 変換 -> 画面更新
└─> 描画パイプライン（GDI+/Direct2D）が常時稼働し、CPU/GPUリソースを無駄に消費

【本アーキテクチャ（極限の高速化）】
Win32 API(SW_HIDE) -> イベント遮断 -> 描画ロック -> メモリ直接処理 -> 変換出力 -> リソース即時解放
└─> 描画パイプラインをOSレベルで遮断。純粋なデータ変換エンジンとしてCorelDRAWを駆動

1.1 UI描画オーバーヘッドの完全排除

CorelDRAWはドキュメントを開くたびに、ルーラー、カラーパレット、ツールバー、アクティブページのレンダリングを行います。Win32 APIの `ShowWindow` と `LockWindowUpdate` を組み合わせることで、OSの描画マネージャーから CorelDRAW の Window Handle (HWND) を完全に切断します。これにより、UIレンダリング時間をほぼ「ゼロ」に落とし込むことが可能になります。

1.2 フォント/カラープロファイルダイアログの絶対無効化

一括処理を停止させる最大の天敵は「フォント代替ダイアログ」や「カラープロファイル不一致警告」です。これらをCorelDRAWのオブジェクトモデル側で無視するように設定（`DisplayAlerts = cdrAlertsNone`）するだけでなく、OSメッセージレベルでダイアログのポップアップを回避するロジックを組み込みます。

1.3 COMオブジェクトの正確なライフサイクル管理

メモリリークによるパフォーマンス低下を防ぐため、ドキュメントのオープンからクローズ、COM参照カウントの解放までを厳格な `Try-Catch-Finally` パターン（VBAにおいては `On Error GoTo` による確実な後処理構文）で保護します。

—

2. Win32 API 宣言部（64ビット完全対応）

まずは、OSのウィンドウシステムを操作するための Win32 API 関数群を宣言します。現代のCorelDRAW（X8/2017以降〜最新版）は64ビットアーキテクチャが標準であるため、`PtrSafe` および `LongPtr` 型を厳密に使用した宣言が必須です。

以下のコードを標準モジュールの最上部（宣言部）に配置してください。

Option Explicit

‘ ==============================================================================
‘ Win32 API Declarations (64-bit / 32-bit Compatible)
‘ ==============================================================================

If VBA7 Then
‘ ウィンドウの表示状態を変更するAPI
Private Declare PtrSafe Function ShowWindow Lib “user32” ( _
ByVal hwnd As LongPtr, _
ByVal nCmdShow As Long) As Long

‘ 指定したウィンドウの描画を一時的にロック/解除するAPI
Private Declare PtrSafe Function LockWindowUpdate Lib “user32” ( _
ByVal hwndLock As LongPtr) As Long

‘ ウィンドウのスタイル属性を取得・設定するAPI
Private Declare PtrSafe Function GetWindowLongPtr Lib “user32” Alias “GetWindowLongPtrA” ( _
ByVal hwnd As LongPtr, _
ByVal nIndex As Long) As LongPtr

Private Declare PtrSafe Function SetWindowLongPtr Lib “user32” Alias “SetWindowLongPtrA” ( _
ByVal hwnd As LongPtr, _
ByVal nIndex As Long, _
ByVal dwNewLong As LongPtr) As LongPtr
Else
Private Declare Function ShowWindow Lib “user32” ( _
ByVal hwnd As Long, _
ByVal nCmdShow As Long) As Long

Private Declare Function LockWindowUpdate Lib “user32” ( _
ByVal hwndLock As Long) As Long

Private Declare Function GetWindowLongPtr Lib “user32” Alias “GetWindowLongA” ( _
ByVal hwnd As Long, _
ByVal nIndex As Long) As Long

Private Declare Function SetWindowLongPtr Lib “user32” Alias “SetWindowLongA” ( _
ByVal hwnd As Long, _
ByVal nIndex As Long, _
ByVal dwNewLong As Long) As Long
End If

‘ ShowWindow 用の定数
Private Const SW_HIDE As Long = 0
Private Const SW_SHOW As Long = 5

‘ GetWindowLongPtr 用の定数（拡張ウィンドウスタイル）
Private Const GWL_EXSTYLE As Long = -20
Private Const WS_EX_TOOLWINDOW As Long = &H80
Private Const WS_EX_APPWINDOW As Long = &H40000

—

3. 完全非表示・極限高速バッチ変換の実装コード

以下は、プロダクション環境（本番業務環境）での使用に耐えうる堅牢な一括変換モジュールの完全版です。CDRファイルを読み込み、超高速で高品質なPDFおよびSVGへ一括変換します。

‘ ==============================================================================
‘ Module: Mod_UltraFastBatchConverter
‘ Author: Enterprise Automation Architect
‘ Description: Win32 APIと連携し、CorelDRAWを完全バックグラウンド駆動させる
‘ 一括フォーマット変換エンジン。
‘ ==============================================================================

Public Sub Run_UltraFastBatchConverter()
Dim sourceFolder As String
Dim targetFolder As String
Dim fileName As String
Dim doc As Document
Dim appHwnd As LongPtr
Dim fileCount As Long
Dim startTime As Double

‘ 処理パフォーマンス計測開始
startTime = Timer
fileCount = 0

‘ — 1. ディレクトリ設定 (実務では設定ファイルやDBから取得を推奨) —
sourceFolder = “C:\BatchProcess\Input\”
targetFolder = “C:\BatchProcess\Output\”

If Right(sourceFolder, 1) <> “\” Then sourceFolder = sourceFolder & “\”
If Right(targetFolder, 1) <> “\” Then targetFolder = targetFolder & “\”

‘ — 2. CorelDRAW エンジンの極限高速化設定 (Win32 API & CDR Engine) —
On Error GoTo CriticalErrorHandler

‘ アプリケーションのHWND取得
appHwnd = Application.AppWindow.Handle

‘ [Win32 API] ウィンドウをOSレベルで完全不可視化
ShowWindow appHwnd, SW_HIDE

‘ [Win32 API] ウィンドウ描画更新の強制凍結
LockWindowUpdate appHwnd

‘ [CorelDRAW Engine] 内部描画・イベント・警告ダイアログの完全封鎖
Application.Optimization = True
Application.EventsEnabled = False
Application.DisplayAlerts = cdrAlertsNone

‘ — 3. ループ処理 (一括バッチ変換) —
fileName = Dir(sourceFolder & “.cdr”)

Do While fileName <> “”
Dim fullSourcePath As String
fullSourcePath = sourceFolder & fileName

‘ 厳格なドキュメントレベルのエラーハンドリング
On Error GoTo DocumentSkipHandler

‘ バックグラウンドで開く（サイレントオープン）
Set doc = Application.OpenDocument(fullSourcePath)

If Not doc Is Nothing Then
‘ — A. PDF エクスポート処理 —
ExportToPDF_Optimized doc, targetFolder & Replace(fileName, “.cdr”, “.pdf”)

‘ — B. SVG エクスポート処理 —
ExportToSVG_Optimized doc, targetFolder & Replace(fileName, “.cdr”, “.svg”)

‘ 変更を破棄して即座にドキュメントを閉じる (メモリの確実な解放)
doc.Close
Set doc = Nothing

fileCount = fileCount + 1
End If

NextFile:
On Error GoTo CriticalErrorHandler
fileName = Dir()
Loop

‘ — 4. 正常終了処理 —
CleanUpState appHwnd

MsgBox “処理が完了しました。” & vbCrLf & _
“処理ファイル数: ” & fileCount & ” 件” & vbCrLf & _
“所要時間: ” & Format(Timer – startTime, “0.00”) & ” 秒”, _
vbInformation, “処理完了”
Exit Sub

‘ ドキュメント単位の異常系スキップ処理
DocumentSkipHandler:
‘ ログ書き込み等の処置をここに行う
Debug.Print “ファイル処理エラー: ” & fileName & ” – ” & Err.Description
If Not doc Is Nothing Then
doc.Close
Set doc = Nothing
End If
Resume NextFile

‘ システム全体の致命的エラー処理
CriticalErrorHandler:
MsgBox “システムエラーが発生しました: ” & Err.Description, vbCritical, “エラー”
CleanUpState appHwnd
End Sub

‘ ==============================================================================
‘ Private Helper Functions & Export Options
‘ ==============================================================================

”’

Private Sub CleanUpState(ByVal hwnd As LongPtr)
On Error Resume Next
‘ CorelDRAW設定の再有効化
Application.Optimization = False
Application.EventsEnabled = True
Application.DisplayAlerts = cdrAlertsAll

‘ Win32 API 描画ロック解除とウィンドウ再表示
LockWindowUpdate 0&
If hwnd <> 0 Then
ShowWindow hwnd, SW_SHOW
End If
On Error GoTo 0
End Sub

”’

Private Sub ExportToPDF_Optimized(ByRef doc As Document, ByVal exportPath As String)
Dim pdfSettings As pdfPDFX1a
‘ CorelDRAWのPDFエクスポートプロパティ設定
With doc.PDFSettings
.Reset
.PublishRange = pdfWholeDocument
.ColorManagement = pdfNative
.EmbedFonts = True
.ComplexFillsAsBitmaps = False
.TextAsCurves = True ‘ フォント依存を無くし変換エラーを低減
End Sub With

doc.SaveAsPDF exportPath
End Sub

”’

Private Sub ExportToSVG_Optimized(ByRef doc As Document, ByVal exportPath As String)
Dim expFilter As ExportFilter
Dim expOptions As StructExportFilter

Set expOptions = Application.CreateStructExportFilter
With expOptions
.FilterIndex = cdrFilterSVG
End With

‘ サイレントエクスポートの実行
Set expFilter = doc.ExportEx(exportPath, cdrSVG, cdrAllPages, expOptions)

‘ SVGオプションの構成（ダイアログを表示させない）
With expFilter
‘ 必要に応じてSVG詳細パラメータを設定
.Finish
End With
Set expFilter = Nothing
Set expOptions = Nothing
End Sub

—

4. プロダクション運用における極意と注意点

コードをコピペして動かすだけでは「プロ」の仕事とは言えません。運用環境やエンタープライズシステムへ組み込む際に必ず直面する問題とその対策をアーキテクトの視点から解説します。

4.1 ファイルシステムおよびネットワークパスの遅延問題

バッチ処理の対象が社内共有ストレージ（NASやSamba）上にある場合、I/OのボトルネックがWin32 APIの高速化を打ち消してしまうケースがあります。

• 対策: 処理開始前にローカルの高速NVMe SSD上のテンポラリフォルダへ対象ファイルを一括コピーし、ローカルで変換処理を完結させた後、成果物をネットワークパスへ書き戻すパイプライン設計にしてください。

4.2 データベース（DB）連携時の競合回避

変換進捗やエラーログを PostgreSQL や SQL Server などの外部DBへ書き込む場合、VBAから直接ADODBなどで synchronous（同期）接続に行くと、DBのネットワークレイテンシが変換ループの足を引っ張ります。

• 対策: 処理ログは一旦、ローカルのインメモリ（Dictionaryや配列）またはローカルテキスト（CSV/JSON）に爆速で吐き出し、バッチ処理の最後、あるいは別プロセスのウォッチャー（PythonスクリプトやPowerShell）によって非同期でDBに書き込む構成（Write-Ahead Loggingに似た設計）をとってください。

4.3 マルチプロセス（多重化）による究極の並列処理

VBA自体はシングルスレッドで動作するため、CorelDRAWインスタンス1つではCPUの全コア（16コア/32スレッド等）を使い切ることはできません。

さらなる次元の高速化を目指す場合、外部のC#コンソールアプリやPowerShellスクリプトから、CorelDRAWのCOMオブジェクトを複数インスタンス立ち上げ、ファイルを分散処理する「マルチインスタンス並列アーキテクチャ」を構築します。

[ orchestrator.exe (C# / Python) ]
├── Instance 1 (CorelDRAW.exe PID:1001 / WinAPI SW_HIDE) -> Core 1 で処理
├── Instance 2 (CorelDRAW.exe PID:1002 / WinAPI SW_HIDE) -> Core 2 で処理
├── Instance 3 (CorelDRAW.exe PID:1003 / WinAPI SW_HIDE) -> Core 3 で処理
└── Instance 4 (CorelDRAW.exe PID:1004 / WinAPI SW_HIDE) -> Core 4 で処理

この際も、本記事で導入した `SW_HIDE` および `DisplayAlerts = cdrAlertsNone` のロジックを各COMインスタンス初期化時に適用することで、画面上に一切のウィンドウを出すことなく、サーバーリソースの限界まで並列変換性能を引き出すことが可能になります。

—

5. まとめ

CorelDRAW VBAにおける高速化の真髄は、単にコードの書き方を最適化することではなく、「OSレベルで不要な描画パイプラインをカットし、アプリケーションを純粋なデータ処理エンジンに仕立て上げる設計力」にあります。

1. Win32 API (`ShowWindow`, `LockWindowUpdate`) によるOSレベルでの描画完全遮断
2. `DisplayAlerts = cdrAlertsNone` と `Optimization = True` によるアプリケーション内部の警告ダイアログ・描画イベント抑止
3. `On Error` 構文を活用した厳格なクリーンアップロジックによるリソースリークの絶対防止

この3原則を徹底することで、従来のVBAスクリプトとは一線を画す、数倍〜数十倍の超高速変換ソリューションが完成します。貴社開発プロジェクトの業務効率化ツールへ、ぜひこの極限の知見を組み込んでみてください。