こんにちは！CorelDRAWの自動化の世界へようこそ。
私はこれまで数々のデザイン現場の非効率なワークフローをVBAで破壊し、快適な自動化環境を構築してきたチーフアーキテクトです。
「毎日、同じような矩形（四角形）を配置して、色を塗って、ファイル名を変えて保存する……。この単純作業、どうにかして自動化できないものか？」
もしあなたがそう感じているなら、大正解です。その直感こそが、プログラミングによる業務効率化（自動化）の第一歩。今回は、CorelDRAW VBAの環境構築から、最強の味方である「マクロ記録機能」を使ったコードの生み出し方まで、優しく、そして本質的な部分までしっかりと解説していきます。
ここをクリアすれば、CorelDRAW VBAの基本はバッチリですよ。さあ、一緒に扉を開けましょう！
—
1. 開発の舞台裏へようこそ：VBAエディタの開き方とセキュリティ設定
まずは、VBAのコードを書くための「VBAエディタ（VBE：Visual Basic Editor）」の開き方と、セキュリティの準備を行います。ここが最初の関門ですが、一度やれば次からは一瞬です。
ステップ1：開発タブの準備（必要な場合）
CorelDRAWの画面上部に「ツール」メニューがあります。そこから以下の順序でVBAエディタを呼び出します。
- ショートカットキー： キーボードの `Alt` + `F11` を押してください。
これだけで、別ウィンドウとしてVBAエディタが起動します。これがあなたの新しい作業部屋です。
ステップ2：セキュリティ設定の確認（マクロが動かない！を防ぐ）
Office製品と同様に、CorelDRAWも安全ではないマクロの実行をブロックします。マクロが動かないときは、大抵セキュリティ設定が原因です。
- 「ツール」＞「マクロ」＞「マクロのセキュリティ」から、マクロを有効にする設定（または警告を表示してすべて有効にする）に変更しておいてください。
—
2. 【伝説の技】マクロ記録機能で「自動化の種」を収穫する
「プログラミングなんて書いたことないよ！」という初学者の方に朗報です。CorelDRAWには、あなたの操作をそのままコードに翻訳してくれる「マクロ記録機能」という魔法のような機能が備わっています。
これを使えば、ゼロからコードを覚える必要はありません。
マクロの記録手順
1. 記録の開始：
「ツール」 ＞ 「マクロ」 ＞ 「マクロの記録を開始」 をクリックします。
（マクロ名を聞かれるので、適当に `MyFirstMacro` などと入れてOKです）
2. 実際に操作する：
記録が始まったら、キャンバス上に適当な「四角形」を描き、その色を「赤色」に変更してみましょう。
3. 記録の終了：
「ツール」 ＞ 「マクロ」 ＞ 「マクロの記録を停止」 をクリックします。
たったこれだけ！ あなたの今の手作業が、すべてVBAのコードとして記録されました。
—
3. 記録されたコードの正体を見る ＆ 読み解く
先ほど記録したコードがどうなっているか、先ほど開いたVBAエディタ（`Alt` + `F11`）で確認してみましょう。
VBEの左側にある「プロジェクトエクスプローラー」から、`GlobalMacros` ＞ `Modules` ＞ `RecordMacros`（名前は環境により異なります）をダブルクリックしてみてください。
画面右側に、次のようなコードが出現しているはずです。
Sub MyFirstMacro()
‘ 記録されたコードの例
Dim s1 As Shape
Set s1 = ActiveLayer.CreateRectangle(2, 10, 6, 6)
s1.Fill.UniformColor.CmykAssign 0, 100, 100, 0 ‘ 赤色にする処理
End Sub
コードの深掘り解説：オブジェクトのライフサイクルを知る
ここで、プログラミング初心者から一歩抜け出すための「CorelDRAW VBAの本質」をお伝えします。
1. `Dim s1 As Shape`
- 「変数 `s1` を『シェイプ（図形）』という型で用意しなさい」という宣言です。
2. `Set s1 = ActiveLayer.CreateRectangle(…)`
- ここが核心です。今あなたが作業しているアクティブなレイヤーに対して、「四角形を作れ」と命令し、その結果生み出されたオブジェクト（実体）を `s1` という変数に「参照（アドレス）」として代入しています。
3. `s1.Fill…`
- `s1` という実体に対して、「塗りつぶしの色をシアン0、マゼンタ100、イエロー100、ブラック0（つまり赤）にしなさい」と指示を出しています。
このように、CorelDRAW VBAは「オブジェクトを生成し、変数に入れ、プロパティやメソッドで操作する」という一連の流れで成り立っています。
—
4. 初心者が絶対にハマる「3大トラップ」と回避策
マクロ記録は非常に便利ですが、そのままでは「実務で使えないガラクタ」になりがちです。初心者が必ずといっていいほど陥る罠と、その対策を伝授します。
トラップ1：選択状態に依存してしまう
マクロ記録は、「現在選択しているもの」を基準にコードを吐き出すため、何も選択していない状態で実行すると「オブジェクトが見つかりません（Run-time error）」で即死します。
【解決策】
コードを書くときは、選択状態に頼らず、明示的に新しく図形を生成するか、エラーハンドリング（`On Error Resume Next` など）を仕込む癖をつけましょう。
トラップ2：単位の罠（ドキュメントの単位に引きずられる）
コード内で座標やサイズを指定する際、ドキュメントの設定が「ミリメートル」なのか「インチ」なのか「ピクセル」なのかによって、挙動が変わり予期せぬ巨大な図形が生成されることがあります。
【解決策】
チーフアーキテクトからの強力なアドバイスとして、VBAを記述する際は、処理の冒頭で単位を明示的にピクセルやインチ、あるいはドキュメント単位に固定するか、CorelDRAWの内部単位である「フィッシュ（DIPs / 内部ポイント）」を意識することが、バグを防ぐ最大の防御壁となります。
—
5. 実用への第一歩：自分だけの自動化スクリプトを書こう
マクロ記録で出力されたコードをベースに、少しだけ手を加えて「指定した位置に、綺麗な正方形を自動生成するスクリプト」に昇華させてみましょう。
以下のコードをVBAエディタの標準モジュールに貼り付けてみてください。
Sub CreateMySquare()
‘ エラーハンドリングの基本設定
On Error GoTo ErrorHandler
Dim targetLayer As Layer
Set targetLayer = ActiveLayer
‘ 50mm x 50mm の美しい正方形を座標 (10mm, 10mm) の位置に作成する
‘ ※CorelDRAW VBAの基本単位はインチであることが多いため、ここでは簡易的にレイヤーのメソッドを使用
Dim myBox As Shape
‘ 座標指定の引数: Left, Top, Right, Bottom (内部単位ベース)
Set myBox = targetLayer.CreateRectangle2(10, 10, 50, 50)
‘ 塗りを鮮やかな青色に変更する (CMYK: Cyan=100, Magenta=50, Yellow=0, Black=0)
myBox.Fill.UniformColor.CmykAssign 100, 50, 0, 0
‘ 完了のメッセージ
MsgBox “正方形の自動生成が完了しました！”, vbInformation, “CorelDRAW自動化”
Exit Sub
ErrorHandler:
MsgBox “エラーが発生しました: ” & Err.Description, vbCritical, “致命的エラー”
End Sub
このコードを実行すると、一瞬で指定された座標に青い正方形が出現し、完了のダイアログボックスが表示されます。手動で位置を測って、塗りを変えて……という作業が、たった1クリックで終わる快感。これが自動化の醍醐味です。
—
おわりに：ここから始まるあなたの自動化ライフ
お疲れ様でした！今回は、CorelDRAW VBAの環境構築、マクロ記録機能を使ったコードの生成、そしてオブジェクト操作の基本とエラー回避の知見まで解説しました。
マクロ記録は、いわば「自動化の世界への片道切符」です。記録されたコードを眺め、少しずつ書き換え、自分だけのカスタムスクリプトを作り上げていく。そのプロセスそのものが、クリエイティブで非常に知的な遊び（そして強力な業務効率化）になります。
ここをクリアしたあなたなら、もう恐れるものは何もありません。
明日からのデザインワークを、もっと自由で、もっとスマートなものに変えていきましょう。それでは、良き自動化ライフを！
