CorelDRAW VBAの極意：作業環境を「一瞬で」標準化する自動化の第一歩
こんにちは。CorelDRAWの深い森へようこそ。
毎日新しいドキュメントを開くたび、あるいはクライアントから送られてきたファイルを開くたび、線幅を0.5ptに直し、カラーパレットを整え、ガイドラインを引く……そんな「儀式」に時間を奪われていませんか？
「マクロの記録」ボタンを押して操作をなぞるだけでは、あなたのデザイン環境はいつまで経っても「手作業の延長」から抜け出せません。今日は、CorelDRAWの心臓部を直接叩くVBAの基礎を学び、「自分だけの標準環境」を一瞬で構築する魔法のコードを伝授します。
ここをクリアすれば、あなたはもう「作業員」ではなく「エンジニア」の入り口に立っています。
—
1. なぜ「設定の自動化」が最強の武器になるのか
CorelDRAWのプロフェッショナルは、「キャンバスを汚さない」ことから始めます。デフォルトの線幅やカラー設定がプロジェクトごとにバラバラだと、後で一括置換しようとした時に必ず事故が起きます。
VBAを使って新規ドキュメントを生成する際に「初期値」を強制的に書き換える。これは単なる効率化ではなく、「デザイン品質を担保するための防波堤」なのです。
2. 実践：標準環境を構築するテンプレートマクロ
まずは、このコードを「CorelDRAW VBA Editor」（`Alt + F11`）にコピー＆ペーストしてください。
Sub CreateStandardDocument()
‘ 1. 新規ドキュメントの作成（A4サイズ, 横向きを想定）
Dim doc As Document
Set doc = CreateDocumentEx( _
PaperSize:=cdrPaperA4, _
Orientation:=cdrLandscape, _
Unit:=cdrMillimeter)
‘ 2. グラフィック・スタイルの定義（ここが核心！）
‘ マクロの記録には出ない「Application.ActiveDocument.DefaultStyle」を操る
With doc
‘ 線幅のデフォルトを0.25mmに固定
.DefaultOutline.Width = 0.25
‘ 線色を強制的に黒（CMYK: 0,0,0,100）に設定
.DefaultOutline.Color.CMYKAssign 0, 0, 0, 100
‘ 塗り潰しの初期値を「なし」に設定（線画から始める場合）
.DefaultFill.ApplyNoFill
End With
‘ 3. 完了通知
MsgBox “標準環境の構築が完了しました！作業を始めましょう。”, vbInformation
End Sub
コードの解説：ここが「プロの書き方」
- `CreateDocumentEx`: `CreateDocument`ではなく、あえて詳細指定が可能な`Ex`を使います。サイズや単位を最初から厳密に指定するのが、自動化の鉄則です。
- `DefaultOutline / DefaultFill`: これが重要です。オブジェクトを描画するたびに個別に設定を変えるのではなく、ドキュメントの「デフォルト設定」自体を書き換えます。これにより、このドキュメント内で作成するすべての図形が、あなたのルールに従うようになります。
—
3. 初心者が必ずハマる「3つの落とし穴」
VBAを触り始めたばかりの人が必ず直面する壁を、事前に壊しておきましょう。
① 「オブジェクトが選択されていない」エラー
マクロを動かす際、`ActiveShape`（現在選択している図形）を操作しようとしてエラーになるケースが非常に多いです。コードを書くときは「今、何が選択されているか」に依存しない書き方を心がけましょう。上記のコードのように、`doc`という変数を介して明示的に対象を指定するのが正解です。
② 単位（Unit）の罠
CorelDRAW VBAの数値は、基本的に「インチ」で計算されることが多いです。`cdrMillimeter`などの定数を明示的に指定しないと、思ったよりも図形が巨大（または極小）になることがあります。必ず「単位」を意識してください。
③ 戻る（Undo）が効かない問題
VBAで実行した操作は、手動操作と異なり「Undo（Ctrl+Z）」で戻せない場合があります（`Optimization = True`を使った時など）。重要な工程の前には必ず`Save`を挟むか、`ActiveDocument.BeginCommandGroup`を使い、操作をひとまとめにしてUndoできるように工夫するのが中級者への道です。
—
4. さあ、ここから先へ
このマクロを「ツールボックス」のボタンに割り当てれば、毎朝の作業開始が1秒で終わります。
- 応用編のヒント:
- 特定のレイヤーを自動で作成し、「ガイド用」「本番用」と名前を付ける。
- 会社指定のカラーパレットを自動的に読み込む。
- ドキュメント情報（作成日・作成者）をプロパティに自動入力する。
「面倒だな」と感じた操作こそが、あなたのVBAを磨く最高の教材です。CorelDRAWの自動化に終わりはありません。次は、特定のディレクトリにある全ファイルを一括変換する「バッチ処理」に挑戦してみませんか？
あなたのクリエイティブな時間を、単純作業から解放しましょう。また次回の講義でお会いしましょう。
