こんにちは！CorelDRAW VBAの世界へようこそ。
私はこれまで数々のデザイン現場の自動化システムを構築してきたエンジニアです。
「毎日同じサイズ・同じカラーモードの新規書類を作って、ガイド線を引いて……という単純作業をボタン一つで終わらせたい！」
そう思ったことはありませんか？マクロの記録ボタンを押して操作するのも悪くありませんが、そこから一歩進んで「VBA（Visual Basic for Applications）」のコードを自分で書けるようになると、あなたのデザイン作業は劇的に高速化します。
今回は、CorelDRAW VBAの最初の一歩として、「VBAエディタの開き方」から「ページサイズとカラーモードを指定した新規ドキュメントの自動作成」までを、優しく、かつプロの視点を交えて徹底解説します。
ここをクリアすれば、CorelDRAW VBAの基本はバッチリですよ。さあ、一緒に扉を開けましょう！
—
1. 開発の舞台裏へ！VBAエディタ（VBE）の開き方
まずは、コードを書くための専用画面「VBAエディタ（VBE：Visual Basic Editor）」を開くところから始めましょう。CorelDRAWの画面が起動している状態を前提に話を進めますね。
手順：ショートカットキーで一発起動
CorelDRAWのウィンドウがアクティブな状態で、キーボードの：
`[Alt]` ＋ `[F11]` を同時に押してください。
どうですか？見慣れない新しいウィンドウが立ち上がりましたよね。これが、私たちの新しい相棒であるVBAエディタです。
モジュール（コードを書く紙）の挿入
VBAエディタが開いたら、次はコードを書き込むための「標準モジュール」という場所を追加します。
1. メニューバーの [挿入 (Insert)] ＞ [標準モジュール (Module)] をクリックします。
2. 白紙のウィンドウ（これがコードエディタです）が現れました。ここに魔法の呪文（VBAコード）を書き込んでいくことになります。
—
2.【実戦】新規ドキュメント自動作成マクロの全貌
百聞は一見にしかず。まずは、A4サイズ・CMYKカラーのドキュメントを瞬時に作成する実用コードを見ていただきましょう。
以下のコードを、先ほど開いた標準モジュールのエディタにそのままコピー＆ペーストしてください。
Sub CreateNewDocumentA4_CMYK()
‘ エラーハンドリングの基本：予期せぬトラブルで画面描画が狂うのを防ぐ
On Error GoTo ErrorHandler
‘ 画面のちらつきや不要な再描画を抑止し、処理スピードを爆発的に上げるお呪い
ActiveDocument.BeginCommandGroup
Application.Optimization = True
Dim doc As Document
‘ 【重要】CorelDRAWでは、新規作成時に幅、高さ、単位、カラーモードを指定します
‘ ここでは A4サイズ（幅210mm、高さ297mm）、CMYKカラー、解像度300dpiを指定
Set doc = Documents.Add( _
ColorMode:=cdrCMYKColor, _
PaperWidth:=210#, _
PaperHeight:=297#, _
NumPages:=1, _
PageUnits:=cdrMillimeter, _
Resolution:=300 _
)
‘ ドキュメント名（タイトル）を設定する
doc.Info.Title = “自動生成A4ドキュメント”
‘ 処理終了の合図（最適化を解除し、画面描画を復活させる）
Application.Optimization = False
ActiveDocument.EndCommandGroup
‘ 成功メッセージ
MsgBox “A4サイズの新規ドキュメント（CMYK）を正常に作成しました！”, vbInformation, “自動化完了”
Exit Sub
ErrorHandler:
‘ 万が一エラーが起きた場合の安全装置
Application.Optimization = False
MsgBox “エラーが発生しました: ” & Err.Description, vbCritical, “予期せぬエラー”
End Sub
—
3. コードの心臓部を紐解く！初心者が知るべき3つのポイント
先輩エンジニアとして、このコードの特に重要なポイントを3つに絞って解説しておきます。ここを理解しておけば、後々どんなサイズでも自由自在に作れるようになりますよ。
① `Documents.Add` メソッドの本質
コードの中核を担っているのが `Documents.Add(…)` という部分です。これはCorelDRAWに対して「新しいキャンバスをちょうだい！」と命令するAPI（機能）です。
引数（カッコの中身）を変えるだけで、無限のバリエーションに対応できます。
- `ColorMode:=cdrCMYKColor` : 印刷用ならCMYK。Web用やデジタルサイネージなら `cdrRGBColor` に書き換えるだけ！
- `PageUnits:=cdrMillimeter` : 寸法の単位をミリメートルに指定しています（ピクセルなら `cdrPixel` など）。
- `PaperWidth` / `PaperHeight` : ページの幅と高さを数値で指定します。
② プロフェッショナル流・パフォーマンス最適化
コード内にあるこの2行に注目してください。
Application.Optimization = True
‘ (ここに重たい処理を書く)
Application.Optimization = False
VBAでオブジェクトを操作するとき、CorelDRAWは「画面の見た目をどう更新するか」を裏で一生懸命計算しています。これが処理スピードを落とす原因になります。`Optimization = True` にすることで、その画面更新を一時停止し、処理が終わった一瞬で画面を再描画させることで劇的な高速化を生み出します。実務では必須のテクニックです。
③ エラーハンドリングの美学
プログラムは正直です。予期せぬ理由（メモリ不足や不正な数値など）で途中で止まることがあります。そんなとき、画面描画が停止したままフリーズしたように見えたり、アプリがおかしくなったりするのを防ぐのが `On Error GoTo` です。
「何かトラブったら、必ず最適化を解除してエラーメッセージを出してね」という、コードの優しさ（安全装置）ですね。
—
4. マクロを実行してみよう！
コードの準備ができたら、いよいよ実行です。
1. VBAエディタの画面上部にあるツールバーの 「再生ボタン（緑色の三角アイコン：▶）」 をクリックします（またはキーボードの `[F5]` キーを押します）。
2. マクロの選択画面が出たら、`CreateNewDocumentA4_CMYK` を選んで「実行」を押します。
一瞬でCorelDRAWのメイン画面に戻り、指定したぴったりのA4サイズ・CMYKの新規ドキュメントが目の前に現れたはずです！成功おめでとうございます！
—
5. 初心者が陥りやすい「よくある罠」とアドバイス
最後に、これからVBAを学んでいく上で、初心者が必ずと言っていいほどハマる罠を先回りして共有しておきます。
- 罠1：変数の型宣言（Dim）を忘れる
慣れてくると `Dim doc As Document` などを省略しがちですが、必ず書く癖をつけましょう。エラーの原因を特定しやすくなります。
- 罠2：単位の勘違い
CorelDRAWの内部的な基本単位と、コードで指定する単位（ミリメートルなのかインチなのか）がズレていると、とんでもなく巨大な、あるいは豆粒のようなドキュメントが出来上がります。`PageUnits` の指定は慎重に行いましょう。
まとめ
今回は、CorelDRAW VBAの第一歩として、エディタの開き方から新規ドキュメントの自動作成までを駆け足で解説しました。
「毎日繰り返していた手作業が、コード一発で終わる」
この快感を一度知ってしまえば、もう手動には戻れなくなりますよ。このコードをベースに、次は「レイヤーを最初から追加する」「ガイド線を自動で引く」といったステップに挑戦してみてください。
あなたの自動化ライフのスタートを、心から応援しています！それではまた、次の技術でお会いしましょう。
