こんにちは！CorelDRAWの自動化の世界へようこそ。
マクロの記録ボタンを押して「動いたはいいけれど、中身がスパゲッティコードになってしまった……」と頭を抱えていませんか？あるいは、「決まったサイズだけでなく、ユーザーがその場で入力した数値に合わせて動的に図形を描画したい！」そんな壁にぶつかっていませんか？
ここをクリアすれば、CorelDRAW VBAの基本はバッチリです。
今回は、VBAの「UserForm（ユーザーフォーム）」を自作し、あなたが入力した寸法やカラーをCorelDRAW上の図形にリアルタイムで直結させるインタラクティブなツール開発の極意を伝授します。
単なるコードのコピペにとどまらず、CorelDRAWのオブジェクトモデルが持つ「お作法」までしっかり噛み砕いて解説しますので、ぜひ最後までついてきてくださいね。
—
1. なぜ「UserForm連携」がCorelDRAW自動化の分水嶺なのか？
マクロの記録機能は素晴らしいツールですが、出力されるコードは「固定化された数値（ハードコーディング）」の塊です。例えば「幅100mmの四角形を作る」というコードしか吐き出せません。
実務で求められるのは、「その時の案件に合わせて、対話形式で数値を変更できる仕組み」です。
CorelDRAW VBAでは、Excel VBAでおなじみの「UserForm」をそのまま利用できます。UIから受け取ったパラメータを、CorelDRAWのドキュメント、レイヤー、そしてシェイプ（図形）へと安全に橋渡しするアーキテクチャを構築しましょう。
—
2. 実装の全体像とステップ
今回のゴールは、「UserFormに『幅』『高さ』『色（赤・青・緑）』を入力し、ボタンを押した瞬間にアクティブページへその通りの長方形を生成するツール」です。
以下の3ステップで進めます。
1. UserFormのUI設計（パーツの配置）
2. コントロールのイベントプロシージャ実装（UIからの値の取得）
3. CorelDRAWオブジェクトモデルへの流し込み（描画とエラーハンドリング）
—
3. ハンズオン：インタラクティブツールの構築
Step 1: UserFormの作成と部品配置
VBE（Visual Basic Editor）を開き（`Alt + F11`）、メニューの「挿入」＞「ユーザーフォーム」を選択します。
プロパティウィンドウでフォームの名前を `ParamForm` に変更してください。
ツールボックスから以下のコントロールを配置します。
- Label1 (キャプション: 幅 (mm))
- TextBox1 (名前: `txtWidth`) … 初期値として `50` と入れておきましょう。
- Label2 (キャプション: 高さ (mm))
- TextBox2 (名前: `txtHeight`) … 初期値として `30` と入れておきましょう。
- ComboBox1 (名前: `cmbColor`) … 塗りつぶしカラー選択用。
- CommandButton1 (名前: `btnCreate`, キャプション: `図形を生成する`)
ComboBoxの初期化処理
フォームが立ち上がった瞬間に、色の選択肢をコンボボックスへ流し込みます。`ParamForm` のコードエディタを開き、以下のコードを記述してください。
Private Sub UserForm_Initialize()
‘ コンボボックスに色の選択肢を追加
With cmbColor
.AddItem “赤”
.AddItem “青”
.AddItem “緑”
.ListIndex = 0 ‘ デフォルトで「赤」を選択
End Sub
End Sub
—
Step 2: ボタンクリック時のコアロジック実装
いよいよ本丸です。「図形を生成する」ボタン（`btnCreate`）が押されたときのイベントプロシージャを記述します。
ここでのポイントは、「ユーザーが入力した文字列を数値に安全に変換すること」と、「CorelDRAWの単位系（デフォルトはミリメートルなら `ActiveDocument.DrawingScale` や `ActiveDocument.Unit`）を意識すること」です。
Private Sub btnCreate_Click()
Dim w As Double, h As Double
Dim s As Shape
Dim colName As String
‘ 1. 入力値のバリデーション（簡易的な数値チェック）
If Not IsNumeric(txtWidth.Text) Or Not IsNumeric(txtHeight.Text) Then
MsgBox “幅と高さには有効な数値を入力してください。”, vbCritical, “入力エラー”
Exit Sub
End If
w = CDbl(txtWidth.Text)
h = CDbl(txtHeight.Text)
‘ 0以下の値が入力された場合のガード
If w <= 0 Or h <= 0 Then
MsgBox "寸法は0より大きい値を指定してください。", vbExclamation, "範囲エラー"
Exit Sub
End If
' 2. アクティブドキュメントの存在確認（非常に重要！）
If ActiveDocument Is Nothing Then
MsgBox "処理を実行するドキュメントが開かれていません。", vbCritical, "CorelDRAWエラー"
Exit Sub
End If
' 3. 描画単位をミリメートルに強制設定（安全な演算のため）
ActiveDocument.Unit = cdrMillimeter
' 4. 長方形の作成（アクティブレイヤーの中心付近に作成）
' 引数: 左下X, 左下Y, 右上X, 右上Y （※CorelDRAWの座標系は左下が原点！）
Set s = ActiveLayer.CreateRectangle(0, 0, w, h)
' 5. 選択されたカラーの適用
colName = cmbColor.Text
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
' 6. 枠線（アウトライン）の設定（今回は黒の細線にする例）
s.Outline.SetProperties Width:=0.5, Color:=CreateRGBColor(0, 0, 0)
' 処理完了のフィードバック（フォームを閉じずに連続作成できるようにする配慮）
MsgBox "図形を正常に生成しました！", vbInformation, "完了"
End Sub
---
Step 3: フォームを呼び出すモジュールの作成
最後に、このUserFormを画面上に呼び出すための標準モジュール（Module1など）を作成します。
Sub ShowParamDialog()
‘ 自作したUserFormのインスタンスを生成してモーダル表示
Dim dlg As ParamForm
Set dlg = New ParamForm
dlg.Show
End Sub
これで準備は完了です！CorelDRAWに戻り、マクロを実行して `ShowParamDialog` を呼び出してみてください。
自作のダイアログが立ち上がり、数値を自由に変えてボタンを押すだけで、キャンバス上に即座に図形が生成される感動を味わえるはずです。
—
4. 現場のプロが教える「陥りやすい罠」と回避策
CorelDRAW VBAを実務で使う際、初心者が必ずと言っていいほどハマるポイントがいくつかあります。ここを知っておくだけで、開発スピードが何倍にも跳ね上がります。
罠1：座標系の違い（ExcelやIllustratorとの違い）
ExcelやWebデザインの世界では「左上」が座標の原点（0,0）であることが多いですが、CorelDRAWのデフォルトのページ座標は「左下」が原点です。
そのため、単純に座標を指定して図形を配置しようとすると、上下反転したような挙動に戸惑うことがあります。
回避策: 今回のコードのように `ActiveLayer.CreateRectangle(x1, y1, x2, y2)` を使うか、作成した後に `s.CenterX` / `s.CenterY` プロパティを使って意図した座標へスナップさせるアプローチが安全です。
罠2：単位の不一致による「巨大・極小図形」の爆誕
ユーザーがドキュメントの設定（ミリ、インチ、ピクセルなど）を何にしているかによって、`w = 50` が「50mm」になるか「50インチ（1270mm！）」になるかが変わってしまいます。
回避策: スクリプトの実行開始時に必ず `ActiveDocument.Unit = cdrMillimeter` のように明示的に単位を固定してください。これだけで「予期せぬ巨大図形が画面を埋め尽くすバグ」を完全になくすことができます。
—
5. おわりに：ここから先の世界へ
お疲れ様でした！これで「UIからのインプットを受け取り、CorelDRAWのオブジェクトを自在に操る」という、業務自動化の最もコアなスキルを手に入れました。
このベースさえあれば、寸法や色だけでなく、テキストボックスの文字列を動的に変えたり、CSVからデータを読み込んで何百個ものバリエーション違いのパッケージ展開図をワンクリックで自動生成するといった、プロフェッショナルなソリューションへ発展させることができます。
「ここをこう変えたいけれど、どう書けばいい？」といった疑問があれば、いつでも先輩エンジニアに聞いてくださいね。あなたのCorelDRAW自動化ライフを、心から応援しています！
