こんにちは！CorelDRAW VBAの世界へようこそ。
マクロの記録ボタンを押して、生成された呪文のようなコードを眺めて「うっ……」とフリーズしていませんか？大丈夫、今日でその悩みとはお別れです。
パッケージデザインや精密なDTPレイアウトの現場では、正確無比なガイドラインの配置が生死を分けます。これをマウスのドラッグ＆ドロップでやっていたら、日が暮れてしまいますし、何より人間の手の精度には限界がありますよね。
今回は、CorelDRAW VBAの心臓部であるオブジェクトモデルを掌握し、ミリ単位の精緻なグリッドレイアウトをコード一発で強制適用する極意を伝授します。ここをクリアすれば、あなたのVBAスキルは「初心者」の領域を完全に抜け出し、「自動化エンジニア」の扉を開くことになります。
肩の力を抜いて、私と一緒に進めていきましょう！
—
1. CorelDRAWオブジェクトモデルの「階層構造」を掴む
VBAでCorelDRAWを操る際、絶対に外せない基本原則があります。それは「オブジェクトの親子関係（階層構造）」です。
CorelDRAWの世界は、以下のようなピラミッド構造になっています。
Application (CorelDRAW本体)
┗ Documents (開いているドキュメント全体)
┗ ActiveDocument (今操作しているドキュメント)
┗ Pages (ページ群)
┗ ActivePage (今見ているページ)
┗ Guides (ガイドライン群)
例えば、「今のページのガイドラインにアクセスしたい！」と思ったら、`ActiveDocument.ActivePage.Guides` というパスを通ってあげる必要があります。この住所の仕組みさえ分かれば、エラーの8割は防げるようになりますよ。
—
2. 【実践】ミリ単位でガイドラインを自動生成するマクロ
それでは、パッケージの展開図やレイアウト基準線として使える「方眼グリッド＆マージンガイド」を自動生成するスクリプトを書いてみましょう。
以下のコードをCorelDRAWのVBAエディタ（`Alt + F11`）に貼り付けて実行してみてください。
Sub CreatePrecisionGridGuidelines()
‘ — 1. 環境設定の最適化と変数の定義 —
‘ 画面描画を一旦ストップし、処理速度を極限まで引き上げる（プロの常道です）
ActiveDocument.BeginCommandGroup “ガイドライン自動生成”
Dim doc As Document
Set doc = ActiveDocument
‘ ドキュメントの単位を「ミリメートル」に強制設定
doc.Unit = cdrMillimeter
Dim activePg As Page
Set activePg = doc.ActivePage
‘ ページの幅と高さを取得
Dim pageWidth As Double, pageHeight As Double
pageWidth = activePg.SizeWidth
pageHeight = activePg.SizeHeight
‘ — 2. パラメータ設定（ここを変更してレイアウトを調整） —
Dim margin As Double
margin = 10# ‘ 外周マージン 10mm
Dim cols As Integer, rows As Integer
cols = 4 ‘ 列数
rows = 3 ‘ 行数
‘ — 3. 外枠マージンガイドの描画 —
‘ 水平ガイド（上下）
activePg.Guides.Add cdrGuidelineHorizontal, margin
activePg.Guides.Add cdrGuidelineHorizontal, pageHeight – margin
‘ 垂直ガイド（左右）
activePg.Guides.Add cdrGuidelineVertical, margin
activePg.Guides.Add cdrGuidelineVertical, pageWidth – margin
‘ — 4. 内部グリッドの自動計算とループ処理 —
‘ マージンを除いた描画有効領域を計算
Dim usableWidth As Double, usableHeight As Double
usableWidth = pageWidth – (margin 2)
usableHeight = pageHeight – (margin 2)
Dim colWidth As Double, rowHeight As Double
colWidth = usableWidth / cols
rowHeight = usableHeight / rows
Dim i As Integer
‘ 垂直内部グリッドの生成
For i = 1 To cols – 1
activePg.Guides.Add cdrGuidelineVertical, margin + (colWidth i)
Next i
‘ 水平内部グリッドの生成
For i = 1 To rows – 1
activePg.Guides.Add cdrGuidelineHorizontal, margin + (rowHeight i)
Next i
‘ — 5. 終了処理 —
‘ 描画を再開し、アンドゥ（Ctrl+Z）を1回にまとめる
doc.EndCommandGroup
MsgBox “グリッドレイアウトの強制適用が完了しました！”, vbInformation, “自動化完了”
End Sub
—
3. コードの解説：ここがプロの技術
たったこれだけのコードですが、実務で使える重要なテクニックが詰まっています。ポイントをいくつか解説しますね。
① 単位の強制指定 (`doc.Unit = cdrMillimeter`)
ユーザーのCorelDRAWの設定（インチだったりピクセルだったり）に依存していると、意図しない巨大なガイドラインが引かれたりして大惨事になります。処理の最初に「今からミリ単位で計算する！」とコードで明示的に宣言するのが、バグを防ぐ大原則です。
② 描画のブラックアウト化 (`BeginCommandGroup`)
大量のオブジェクトやガイドラインを生成する際、画面がちらついたり処理が遅くなったりします。`BeginCommandGroup` を使うことで、CorelDRAWの画面描画エンジンを一時的に黙らせ、裏で爆速処理を完結させることができます。さらに、これを使うと生成されたすべてのガイドラインを「Ctrl + Z」一発で綺麗に元に戻せるという素晴らしいメリットもあります。
③ ループによる等分割 (`For…Next`)
手動で線を引く場合、割り切れない小数点の計算でイライラしますが、VBAなら一瞬です。「有効幅 ÷ 列数」で導き出したピッチを、ループカウンタ `i` を使って正確に配置しています。
—
4. 陥りやすい罠とエラー回避の知恵
初心者のうちは、こんなエラーによく遭遇します。
- 「オブジェクトが見つかりません」エラー
- 原因: ドキュメントが開いていない状態で `ActiveDocument` を叩いている、またはページが1枚もない状態。
- 対策: コードの冒頭に `If Documents.Count = 0 Then Exit Sub` などのガード節を設けるクセをつけましょう。
- ガイドラインのレイヤーロック忘れ
- CorelDRAWでは、ガイドラインは専用のレイヤーに属しています。VBAでガイドを操作する場合、ガイドライン・レイヤーがロックされていると `.Add` メソッドが弾かれることがあります。実務では `activePg.Guides` コレクション経由で操作するため基本的に安全ですが、「触れないはずのオブジェクトに触ろうとして怒られた」ときはレイヤーのロック状態を疑ってください。
—
おわりに：ここをクリアすれば、基本はバッチリ！
お疲れ様でした！ガイドラインのオブジェクトモデル、そしてループを使った数値制御のイメージは掴めましたか？
「画面上でマウスをカチカチ動かす作業」をVBAのコードに置き換える感覚が掴めると、CorelDRAWを使ったデザイン作業のスピードは文字通り「桁違い」になります。
ここをクリアしたあなたなら、次は図形やテキストフレームをこのガイドラインの座標にスナップさせて自動配置する高度な応用編にもスムーズに進めるはずです。
明日からのデザイン業務を、ぜひこの自動化マクロでスマートに変えてみてくださいね。それでは、次のステップでお会いしましょう！
