CorelDRAW VBAを掌握せよ：入稿データ作成を自動化する「神UI」の設計術
こんにちは。CorelDRAWの深淵を覗き込み、VBAという強力なメスで自動化を極めるエンジニアです。
「マクロの記録」ボタンを押して生成される、あの無駄に長く、再利用性の低いコードに絶望したことはありませんか？今日からそのステージを卒業しましょう。今回は、現場の作業者が迷わず安全にデータを入稿できる「カスタムダイアログ（UserForm）を用いた入稿アシスタント」の設計術を伝授します。
これは単なる自動化ではありません。「ヒューマンエラーを物理的に排除するUI」を作るという、プロフェッショナルな設計思想への第一歩です。
—
1. なぜ「UserForm」なのか？
コマンドボタンを一つ置いて終わり、では不十分です。実務では「解像度は適切か？」「カラーモードはCMYKか？」「裁ち落としは考慮されているか？」というチェックが常に付きまといます。
UserFormを使う理由は以下の3点です。
- 情報の集約: 必要なパラメータを1画面に配置し、設定漏れを防ぐ。
- バリデーション（検証）: 書き出し前に、ドキュメントが要件を満たしているかチェックする余地を作る。
- UXの向上: 作業者の「考えるコスト」を減らし、ボタン一つで完遂させる。
—
2. 実装：入稿データ作成アシスタントの心臓部
まずは、プロジェクトに `UserForm1` を追加してください。そこに `ComboBox`（解像度選択用）と `CommandButton`（実行用）を配置し、以下のコードを標準モジュールとフォーム側に実装します。
標準モジュール (Module1)
まずは、フォームを呼び出すためのシンプルな入り口を作ります。
‘ フォームを呼び出すだけのシンプルなプロシージャ
Public Sub ShowExportAssistant()
UserForm1.Show
End Sub
フォームのコード (UserForm1)
ここが本質です。`Export` メソッドの挙動を理解し、安全に書き出すためのロジックを組み込みます。
Private Sub UserForm_Initialize()
‘ フォーム起動時に選択肢をセット
With ComboBoxResolution
.AddItem “72”
.AddItem “300”
.ListIndex = 1 ‘ デフォルトで300dpiを選択
End With
End Sub
Private Sub CommandButtonExport_Click()
Dim doc As Document
Dim expOptions As StructExportOptions
Dim filter As ExportFilter
Set doc = ActiveDocument
‘ 1. 安全な書き出しのための準備
Set expOptions = New StructExportOptions
expOptions.AntiAliasingType = cdrNormalAntiAliasing
expOptions.ResolutionX = Val(ComboBoxResolution.Value)
expOptions.ResolutionY = Val(ComboBoxResolution.Value)
‘ 2. ファイルパスの設定（デスクトップに固定）
Dim path As String
path = Environ(“USERPROFILE”) & “\Desktop\” & doc.Title & “.jpg”
‘ 3. エクスポート実行
‘ ここでエラー制御を入れるのがプロの作法
On Error GoTo ErrorHandler
Set filter = doc.ExportEx(path, cdrJPEG, cdrCurrentPage, expOptions)
MsgBox “入稿データの書き出しが完了しました：” & vbCrLf & path, vbInformation
Unload Me
Exit Sub
ErrorHandler:
MsgBox “エラーが発生しました: ” & Err.Description, vbCritical
End Sub
—
3. ここをクリアすれば一人前！3つの重要ポイント
① `ExportEx` を使いこなす
マクロの記録で生成される `Export` は簡易的なものですが、`ExportEx` を使うと `StructExportOptions` を経由して細かなパラメータ（解像度、カラープロファイル、アンチエイリアスなど）を制御できます。これが「現場の品質」を担保する鍵です。
② エラーハンドリングの徹底
「ファイルが開かれている」「保存先が存在しない」などの例外は必ず発生します。`On Error GoTo` を使わずにコードを書くのは、シートベルトをせずに高速道路を走るようなものです。必ずエラー発生時の逃げ道を作りましょう。
③ オブジェクトのライフサイクル
`Set doc = ActiveDocument` のように、参照を明示的に変数に代入してください。`ActiveDocument` を何度も呼び出すのはパフォーマンス低下の元です。メモリの無駄遣いを避け、軽快な動作を実現するのが優秀なエンジニアの矜持です。
—
先輩からのアドバイス：次のステップへ
今回のコードは、いわば「基本の型」です。ここから先は、以下のような改良を加えてみてください。
1. カラーモードの自動判定: `doc.ColorMode` をチェックし、RGBなら警告を出す機能。
2. プレフィックス付与: ファイル名に自動的に日付時刻を付与する機能。
3. 書き出し後の自動PDF化: JPEGだけでなく、PDFの書き出しも同時に行う機能。
CorelDRAW VBAは、使いこなせば魔法のような道具になります。まずはこのUIを自作し、自分のデスクトップに「自分専用のボタン」を配置してみてください。それが、効率化の海へ漕ぎ出す第一歩です。
何か詰まったら、いつでも戻ってきてください。君のコーディングを全力でサポートしますよ。
