CorelDRAW VBAを掌握せよ：UIからデザインを操る「リアルタイム反映ツール」の極意
こんにちは。CorelDRAWの深淵を覗き込み、VBAという強力なレバーでデザインの自動化を極めようとしている皆さん。
「マクロの記録」ボタンを押して、生成されたコードの羅列に絶望したことはありませんか？あれはあくまで「CorelDRAWが何をしたか」の履歴に過ぎません。私たちが目指すべきは、「CorelDRAWがどう動くべきか」を設計するアーキテクトの視点です。
今回は、ユーザーフォーム（UserForm）からパラメータを入力し、それを即座にキャンバス上のオブジェクトに反映させる「インタラクティブ・ツール」の作り方を伝授します。これさえ理解すれば、あなたのデザインワークフローは劇的に加速します。
—
1. CorelDRAWオブジェクトモデルの「階層」を理解する
CorelDRAWを操る際、最も重要なのは「今、どの層に手を触れているか」という意識です。
- Application: CorelDRAWそのもの。全ての根源です。
- Document: 開いているドキュメント。ここが作業の舞台。
- Layer: 絵の具を載せるキャンバスの層。
- Shape: 具体的な線や四角形。私たちが直接いじるのはこれです。
VBAでこれらを操作するには、`ActiveDocument.ActiveLayer` といったプロパティを使います。しかし、大規模なツールを作る際は、なるべく `ActiveSelection`（現在選択しているもの）を明示的に取得する癖をつけてください。
—
2. ユーザーフォームによる「UIとロジックの分離」
UI（UserForm）とロジック（Module）を分けるのは、中級者への登竜門です。UIには「値を渡す役割」を、Moduleには「CorelDRAWを制御する役割」を持たせます。
ステップ1：UIの設計
1. VBE（Alt+F11）を開き、挿入メニューから「ユーザーフォーム」を追加。
2. ツールボックスから以下を配置します。
- `TextBox1`（幅の入力用）
- `ComboBox1`（色の選択用：赤・青・緑）
- `CommandButton1`（実行ボタン）
ステップ2：コードの実装
フォームのコードウィンドウに、以下の魂を吹き込みます。
‘ UserForm1 のコード
Private Sub CommandButton1_Click()
‘ パラメータを取得
Dim targetWidth As Double
Dim selectedColor As String
‘ 入力値のバリデーション（数値変換のエラー対策）
If IsNumeric(TextBox1.Value) Then
targetWidth = Val(TextBox1.Value)
Else
MsgBox “数値を入力してください！”, vbCritical
Exit Sub
End If
selectedColor = ComboBox1.Value
‘ ロジックを実行するモジュールの呼び出し
Call UpdateSelectedShape(targetWidth, selectedColor)
End Sub
—
3. CorelDRAWへの「即時反映」を実現する
ここが本題です。選択しているオブジェクトのプロパティを書き換えるロジックを標準モジュールに書きます。
‘ Module1 (標準モジュール)
Public Sub UpdateSelectedShape(w As Double, colName As String)
Dim s As Shape
‘ エラーハンドリング：何も選択されていない場合の防御
If ActiveSelection.Shapes.Count = 0 Then
MsgBox “対象を選択してください。”
Exit Sub
End If
‘ 選択範囲内のオブジェクトをループ（複数選択にも対応）
For Each s In ActiveSelection.Shapes
‘ 幅を更新（CorelDRAWはインチベースが多いため、単位系に注意）
s.SizeWidth = w
‘ 色を変更
Select Case colName
Case “赤”: s.Fill.UniformColor.RGBAssign 255, 0, 0
Case “青”: s.Fill.UniformColor.RGBAssign 0, 0, 255
Case “緑”: s.Fill.UniformColor.RGBAssign 0, 255, 0
End Select
Next s
‘ 画面の更新を強制（パフォーマンスの要）
Application.Refresh
End Sub
—
4. 陥りやすい「落とし穴」と鉄則
ここからは、現場で血を流さないための知恵を共有します。
- 単位系の罠: `ActiveDocument.Unit` を確認してください。コード内で数値を指定する際、ドキュメントがミリメートルなのかインチなのかで結果が10倍以上変わることがあります。常に `ActiveDocument.Unit = cdrMillimeter` のように明示的に指定する習慣を。
- 描画更新のコスト: ループの中で毎回 `Application.Refresh` を呼ぶと、ツールが非常に重くなります。処理は一気に済ませ、最後に一度だけ更新をかけるのが鉄則です。
- オブジェクトの参照: `ActiveSelection` はあくまで「今選んでいるもの」です。スクリプト実行中に選択が外れるとエラーになります。`Dim s As Shape` と宣言してオブジェクトを確実にキャプチャする（参照を保持する）ことが、安定稼働の鍵です。
—
さあ、自動化の先へ
今回学んだのは、UIからの入力とCorelDRAWのオブジェクト操作の「橋渡し」です。これができれば、テキストを整列させたり、特定のルールで色を一括置換したりするツールも、同じ構造で作ることができます。
プログラミングとは「自分自身を楽にするための魔法」です。コードを書くたびに、あなたは自分の時間を買っているのだと考えてください。
「ここをもっとこうしたい」という欲が出てきたら、それはあなたがエンジニアとして成長した証拠です。次は、ドキュメント内の全てのページをループさせる処理に挑戦してみませんか？
応援していますよ。CorelDRAWの世界は、あなたの手でより便利にできるのですから。
