CorelDRAW VBAを極める：堅牢な「入稿データ自動生成アシスタント」の設計思想
CorelDRAWの自動化において、最も陥りやすい罠は「とりあえず動くコード」を量産し、ブラックボックス化したマクロを放置することだ。特に、入稿データの作成は企業の信頼に関わる。解像度やカラープロファイルの設定ミスは、そのまま刷り上がりの事故に直結する。
今日は、単なる「自動化」を超えた、「失敗を許容しないプロダクションレベルの入稿アシスタント」の構築手法を授ける。
—
1. なぜ「そのコード」では現場で死ぬのか？
多くの開発者がやりがちな失敗は、`ActiveDocument`や`ActivePage`への依存だ。
これらは、ユーザーが予期せぬタイミングで別のウィンドウを選択したり、ドキュメントを切り替えたりした瞬間にエラーを吐く。
堅牢なツールを作るための黄金律：
- イベント駆動の制御: UserFormをモーダルで開き、処理中はユーザーの操作をロックする。
- 引数の明示: ドキュメントオブジェクトを明示的に保持し、関数に渡す。
- 副作用の排除: エクスポート設定は必ずリセットし、実行直前に再構築する。
—
2. 堅牢な設計：入稿アシスタントのアーキテクチャ
GUI（UserForm）はあくまで「窓口」だ。ビジネスロジックは標準モジュールに分離する。これにより、将来的にUIを変えてもコアロジックを再利用できる。
構成案
- `frmExporter` (UserForm): ユーザー入力のバリデーションとパラメータの受け渡し。
- `modExportEngine` (Standard Module): ファイルパスの生成、エクスポート実行、ログ記録。
—
3. 実践：プロダクションコード
まずは、最も重要である「安全なエクスポート処理」の核となるコードを提示する。
‘ — modExportEngine: エクスポートの中核処理 —
Option Explicit
Public Sub ExportDocument(ByVal doc As Document, ByVal filePath As String, ByVal dpi As Long)
‘ エクスポートフィルタのインスタンス化
Dim expFilter As ExportFilter
Dim options As StructExportOptions
Set options = New StructExportOptions
options.AntiAliasingType = cdrNormalAntiAliasing
options.ImageType = cdrCMYKColorImage
options.MaintainAspect = True
‘ DPIの適用と圧縮率の最適化
options.ResolutionX = dpi
options.ResolutionY = dpi
‘ エクスポート実行：エラーハンドリングを厳格に
On Error GoTo ExportError
Set expFilter = doc.ExportEx(filePath, cdrJPEG, options)
With expFilter
.Finish
End With
MsgBox “入稿データの書き出しが完了しました。”, vbInformation
Exit Sub
ExportError:
MsgBox “書き出しエラー: ” & Err.Description, vbCritical
End Sub
UserFormでの制御ロジック
フォーム側では、入力値を直接操作せず、検証（バリデーション）を通した後にエンジンへ投げるのが鉄則だ。
‘ — frmExporter: フォーム側のロジック —
Private Sub btnExecute_Click()
‘ バリデーション：解像度の数値チェック
If Not IsNumeric(Me.txtDPI.Value) Then
MsgBox “解像度には数値を入力してください。”, vbExclamation
Exit Sub
End If
‘ メイン処理の呼び出し（ActiveDocumentを明示的に渡す）
Call modExportEngine.ExportDocument(ActiveDocument, “C:\Exports\Output.jpg”, CLng(Me.txtDPI.Value))
Unload Me
End Sub
—
4. プロの現場で差がつく「3つの鉄則」
① パスの正規化と存在チェック
ファイルシステムに触れる際、ディレクトリが存在しないだけでマクロは停止する。`FileSystemObject`を使い、出力先フォルダがなければ自動生成するロジックを必ず組み込め。
② 設定の永続化（INI/レジストリ）
毎回数値を入力させるのは非効率だ。`SaveSetting`と`GetSetting`を使い、前回使用したDPIや出力先パスを保存しておけ。ユーザーの「毎回の設定変更」をゼロにするのが、真の自動化エンジニアの仕事だ。
③ ログの記録
大規模な現場であれば、誰がいつ、どんな設定で出力したかをテキストファイルに追記する仕組みを入れろ。これがトラブル時の「唯一の救い」になる。
—
結論：コードは「資産」であれ
今回示したコードは、単に動くだけのスクリプトではない。エラーを捕捉し、パラメータを分離し、保守性を担保するための「設計の型」だ。
CorelDRAWのVBAは古臭いと言われることもあるが、その内部APIの網羅性は今なお最強だ。君たちが書くコード一つで、デザイナーが毎日10分、年間で数十時間の労働から解放される。
次は、このアーキテクチャをベースに、JSONによる設定ファイル管理や、PDFプリセットの動的制御へステップアップしてほしい。君のコードが、現場を変えるエンジンの心臓部になることを期待している。
