CorelDRAW VBAを極める：プロフェッショナルな「マルチフォーマット自動書き出し」の設計思想
CorelDRAW VBAで最も陥りやすい罠。それは、「マクロを記録して、そのコードを繋ぎ合わせる」という素人臭いアプローチです。
クライアントごとに異なる出力レギュレーション（CMYKプロファイル、フォントのサブセット化、EPSのプレビュー形式、PDFの圧縮率…）。これらをハードコードして場当たり的に運用するのは、もはや自動化ではなく「負債の生成」です。
本稿では、堅牢で保守性が高く、かつ実務の過酷な要求に応えうる「バッチ書き出しエンジン」の設計思想を伝授します。
—
1. なぜ「設定値」をコードから分離すべきなのか
中級者がやりがちな「IF文のネスト地獄」は、仕様変更が走った瞬間に崩壊します。
プロフェッショナルな設計において、出力設定は「データ」として外部化（または定数定義）し、エンジン側はそれを読み込んで淡々と処理を実行する「ドライバ」の役割に徹するべきです。
思考の転換：設定の抽象化
出力設定を以下の構造体に落とし込みます。
- TargetType: PDF or EPS
- Profile: カラープロファイルパス
- Options: 圧縮率、フォント埋め込みフラグ等
—
2. 堅牢なマルチフォーマット出力エンジンの実装
以下は、`Struct`的なアプローチで設定を管理し、エラーハンドリングを徹底した実務用コードです。
‘ ———————————————————
‘ CorelDRAW Batch Export Engine
‘ ———————————————————
Public Sub ExportProductionFiles()
Dim doc As Document
Set doc = ActiveDocument
‘ 出力先のディレクトリを確定
Dim exportPath As String
exportPath = doc.FilePath & “Export\”
If Dir(exportPath, vbDirectory) = “” Then MkDir exportPath
‘ ここでクライアント別の設定を動的に呼び出す
‘ 拡張性を持たせるため、設定管理関数を分離する
Call ExportToPDF(doc, exportPath & “Print_HighRes.pdf”, “ISO_Coated_v2”)
Call ExportToEPS(doc, exportPath & “Vector_Legacy.eps”)
MsgBox “全フォーマットの書き出しが正常に完了しました。”, vbInformation
End Sub
Private Sub ExportToPDF(doc As Document, filePath As String, profileName As String)
Dim p As PDFStruct
Set p = CreatePDFStruct
‘ PDF出力オプションの厳密な定義
With p
.EmbedFonts = True
.CompressText = True
.PDFVersion = cdrPDFVersion17 ‘ PDF/X-4
.ColorProfile = profileName
End With
‘ 実行時のエラーを封じ込める
On Error GoTo ErrHandler
doc.PublishToPDF filePath, p
Exit Sub
ErrHandler:
MsgBox “PDF出力エラー: ” & Err.Description, vbCritical
End Sub
Private Sub ExportToEPS(doc As Document, filePath As String)
Dim epsOpt As StructEPSExportOptions
Set epsOpt = CreateStructEPSExportOptions
‘ EPS特有の罠：プレビュー形式とフォント埋め込みの指定
With epsOpt
.PreviewRes = cdrEPSPreviewResolution150
.IncludeFonts = True
.PostScriptLevel = cdrPostScriptLevel3
End With
doc.ExportEx filePath, cdrEPS, , epsOpt
End Sub
—
3. 現場で生き残るための「鉄則」
① アプリケーションの状態をクリーンに保つ
VBAの実行中にCorelDRAWのUI更新が走るとパフォーマンスが著しく低下します。コードの冒頭と終了時に以下を記述してください。
Application.Optimization = True
‘ … 処理 …
Application.Optimization = False
Application.Refresh
② ファイルパスのバリデーションを過剰なほど行う
「保存先フォルダがない」「同名ファイルがロックされている」といった問題は必ず起こります。`Dir`関数や`FileSystemObject`を駆使し、書き込み可能か事前にチェックする防壁を必ず設けてください。
③ 「フォントのサブセット化」の罠
クライアントによっては「すべてのフォントを埋め込め」と指示されますが、CorelDRAWのPDFエクスポート設定ではデフォルトで「サブセット化」が有効な場合があります。仕様書に「フォント埋め込み率100%」とあれば、`PDFStruct`のプロパティを正確に指定し、出力後にAcrobatのプリフライトで検証する工程までを自動化のスコープに入れるのが真のプロです。
—
最後に：自動化の先にあるもの
このシステムを構築した後は、CSVファイルを読み込ませるだけで「クライアント名・入稿規格・出力プロファイル」を自動判別し、100ファイル単位で一括生成する「バッチ・プロセッサ」へと進化させてください。
コードは、ただ動けばいいというものではありません。「誰が後から見ても、どの設定がどの媒体用なのかが一目瞭然であること」。これこそが、保守性の正体です。
さあ、退屈な手作業からエンジニアを解放し、クリエイティブな思考の時間を取り戻しましょう。あなたのコードが、現場のスタンダードになることを期待しています。
