CorelDRAW VBAを掌握する極限の知見：マルチフォーマット一括エクスポートシステムの設計と実装
こんにちは。業務自動化エンジニアのチーフアーキテクトだ。
日々、膨大なデザインデータの入稿作業やフォーマット変換に追われていないか？
「クライアントA社はEPS、B社はPDF/X、Web展開用にSVG、そしてマスターとしてCDR形式……」
これを手作業で何百ファイルも処理するなど、エンジニアリングの敗北であり、デザイナーの貴重な時間をドブに捨てる行為に他ならない。
今回は、CorelDRAWのVBA（Visual Basic for Applications）を極め、UserFormによる動的UIから複数のエクスポート設定を統御し、一瞬で多重出力するプロダクションレベルのシステムを構築する方法を伝授する。
ネット上の断片的なコードをコピペして「なぜか動かない」「メモリリークでCorelDRAWごと落ちる」と悩むのは、今日で終わりにしよう。実務で耐えうる堅牢なアーキテクトの思考法を公開する。
—
1. 現場でありがちな「地雷」と非効率な設計
多くのVBA初心者が陥る罠が、`ActiveDocument.Export` メソッドを思考停止でループさせるだけのコードだ。
- UIのないハードコーディング: エクスポートの度にコードを書き換えている。
- エラーハンドリングの欠如: 出力先フォルダが存在しない、ファイルが使用中で上書きできない場合に容赦なくマクロがクラッシュする。
- ライフサイクルとスコープの無視: ドキュメントの参照を適切に解放せず、オブジェクトのゾンビ化を招く。
これらを完全に排除し、「堅牢性」「拡張性」「保守性」を兼ね備えたシステムを設計する。
—
2. システムアーキテクチャの全体像
今回構築するシステムは、以下の2つのコンポーネントで構成する。
1. UserForm (`ExportManagerForm`): ユーザーがフォーマット（EPS, PDF, SVG, CDR）と解像度、カラープロファイルを選択するカスタムUI。
2. 標準モジュール (`ExportEngine`): UIから渡されたパラメータを受け取り、安全なパス解決とエクスポート処理を執行するコアエンジン。
—
3. プロダクションコード実装
以下のコードは、そのままあなたのCorelDRAW環境（VBAエディタ）に実装できるプロダクション品質のコードだ。
① ユーザーフォームの設計 (`ExportManagerForm`)
UserForm上に以下のコントロールを配置してほしい。
- CheckBox: `chkCDR`, `chkEPS`, `chkPDF`, `chkSVG` （各フォーマットの有効/無効）
- TextBox: `txtOutputDir` （保存先パス）
- CommandButton: `btnBrowse` （フォルダ選択用）、`btnExecute` （実行用）
② コアエンジンとロジック実装 (`ExportEngine.bas`)
標準モジュールを新規作成し、以下のコードを記述する。
Option Explicit
‘ ==============================================================================
‘ CorelDRAW Multi-Format Export Engine
‘ Architecture & Implementation by Chief Architect
‘ ==============================================================================
Public Sub ShowExportManager()
‘ UIの初期化と起動
Load ExportManagerForm
ExportManagerForm.Show
End Sub
‘ ——————————————————————————
‘ メインエクスポート実行関数
‘ ——————————————————————————
Public Sub ExecuteBatchExport(ByVal targetDoc As Document, ByVal outputDir As String, _
ByVal doCDR As Boolean, ByVal doEPS As Boolean, _
ByVal doPDF As Boolean, ByVal doSVG As Boolean)
‘ ガード節：ドキュメントの存在確認
If targetDoc Is Nothing Then
MsgBox “アクティブなドキュメントが存在しません。”, vbCritical, “致命的エラー”
Exit Sub
End If
‘ ガード節：出力先ディレクトリの検証
If Not FolderExists(outputDir) Then
MsgBox “指定された出力先ディレクトリが存在しないか、アクセス権限がありません。” & vbCrLf & _
“パス: ” & outputDir, vbCritical, “パスエラー”
Exit Sub
End If
‘ ファイル名の取得（拡張子なし）
Dim baseName As String
baseName = GetFileNameWithoutExtension(targetDoc.FullFileName)
If baseName = “” Then baseName = “Untitled”
‘ エラーハンドリングの有効化（COMオブジェクトの暴走を防ぐ）
On Error GoTo ErrorHandler
‘ 処理中のステータス表示（CorelDRAWの画面描画をロックして高速化）
CorelScriptTools.Optimization = True
ActiveDocument.BeginCommandGroup “Batch Export”
Dim fullPath As String
‘ 1. CDR Export
If doCDR Then
fullPath = outputDir & “\” & baseName & “.cdr”
‘ CDR形式での保存は SaveAsCopy を使用し、マスタードキュメントを汚さない
targetDoc.SaveAsCopy fullPath, cdrCDR,, cdrCurrentVersion
End If
‘ 2. EPS Export
If doEPS Then
fullPath = outputDir & “\” & baseName & “.eps”
Dim epsParams As StructExportOptions
Set epsParams = CreateStructExportOptions
‘ ベクターを維持したEPS出力設定
With epsParams
.Overwrite = True
‘ 必要に応じて解像度や互換性を設定
End With
targetDoc.Export fullPath, cdrEPS, cdrSelection, epsParams
End If
‘ 3. PDF Export
If doPDF Then
fullPath = outputDir & “\” & baseName & “.pdf”
Dim pdfConfig As StructPDFExportSettings
Set pdfConfig = targetDoc.PDFSettings
With pdfConfig
.PublishRange = pdAllPages
.ColorMode = pdfCMYK
‘ プリプレス向け最適化などの設定が可能
End With
targetDoc.PublishToPDF fullPath, pdfConfig
End If
‘ 4. SVG Export
If doSVG Then
fullPath = outputDir & “\” & baseName & “.svg”
Dim svgParams As StructExportOptions
Set svgParams = CreateStructExportOptions
svgParams.Overwrite = True
targetDoc.Export fullPath, cdrSVG, cdrSelection, svgParams
End If
ActiveDocument.EndCommandGroup
CorelScriptTools.Optimization = False
ActiveWindow.Refresh
MsgBox “すべてのエクスポート処理が正常に完了しました。”, vbInformation, “完了”
Exit Sub
ErrorHandler:
‘ 異常系処理：描画ロックを必ず解除する
CorelScriptTools.Optimization = False
ActiveDocument.EndCommandGroup
MsgBox “予期せぬエラーが発生しました。” & vbCrLf & _
“エラー番号: ” & Err.Number & vbCrLf & _
“エラー内容: ” & Err.Description, vbCritical, “実行時エラー”
End Sub
‘ ——————————————————————————
‘ ユーティリティ関数：ディレクトリ存在確認
‘ ——————————————————————————
Private Function FolderExists(ByVal path As String) As Boolean
On Error Resume Next
FolderExists = (Dir(path, vbDirectory) <> “”)
If FolderExists Then
If (GetAttr(path) And vbDirectory) = 0 Then FolderExists = False
End If
On Error GoTo 0
End Function
‘ ——————————————————————————
‘ ユーティリティ関数：ファイル名抽出
‘ ——————————————————————————
Private Function GetFileNameWithoutExtension(ByVal fullPath As String) As String
If fullPath = “” Then
GetFileNameWithoutExtension = “”
Exit Function
End If
Dim fso As Object
Set fso = CreateObject(“Scripting.FileSystemObject”)
GetFileNameWithoutExtension = fso.GetBaseName(fullPath)
Set fso = Nothing
End Function
—
4. チーフアーキテクトが解説する「実装の急所」
このコードが他の凡庸なスクリプトと一線を画す理由は以下の3点だ。
① `CorelScriptTools.Optimization = True` による爆速化
大量のオブジェクト操作やファイル出力を行う際、CorelDRAWはデフォルトで画面の再描画（プレビュー更新）を行う。これが実行速度を劇的に低下させる最大の原因だ。
処理の開始時に最適化フラグを立て、終了時に必ず戻す（`On Error`経由の脱出時も考慮）ことで、処理速度を最大数倍〜数十倍に引き上げることができる。
② `SaveAsCopy` によるマスターデータの保護
CDR形式で保存する際、うっかり `ActiveDocument.Save` を使うと、作業中のドキュメントのパスが上書きされてしまう事故が起きる。
ここでは `SaveAsCopy` を採用し、オリジナルのドキュメント状態（Dirtyフラグ等）を一切汚さずに別名で安全にスナップショットを出力している。
③ 堅牢なエラーハンドリングとリソース解放
VBAで最も恐ろしいのは、途中でエラーが起きた際に画面ロック（Optimization）が解除されず、CorelDRAWが操作を受け付けなくなる現象だ。
`ErrorHandler`ラベルを必ず用意し、異常終了時でも確実に環境を復旧させるコードフローを義務付けている。
—
5. データベースや外部システム連携への拡張性
今回はローカルフォルダへの出力だが、実務のフェーズが進めば「案件管理DB（SQL ServerやAirtable）から顧客レギュレーションを取得し、自動で適切なフォーマットを選択してクラウドストレージ（SharePointやAWS S3）にアップロードする」という要件に発展するはずだ。
その際も、今回作成した `ExecuteBatchExport` のインターフェース（引数設計）がしっかりしていれば、UI層を排除してCLIや外部バッチから直接関数を叩くだけで、シームレスにエンタープライズシステムへ統合できる。
設計の美しさは、未来の拡張コストをゼロにする。
さあ、このコードをあなたの環境にデプロイし、手作業のエクスポート地獄から今すぐ解放され給え。
