【入門編】【図面枠・表題欄の自動配置】ページごとのレイヤー構造を利用して、最終ページ以外に共通の図面枠テンプレートを自動適用する – CorelDRAW VBA解析バイブル

CorelDRAW VBA

2026.10.19

CorelDRAW VBAで実現する「図面枠・表題欄」の自動配置術｜ページ・レイヤーを制する者が設計を制す

こんにちは。CorelDRAWの自動化の世界へようこそ。

「マクロの記録」ボタンを押して、生成された無機質なコードの山を眺めて途方に暮れていませんか？安心してください。CorelDRAW VBAの本質は、「オブジェクトの階層構造（DOM）」と「レイヤーのライフサイクル」を理解することに集約されます。

今回は、テクニカルイラストやCADデータの現場で避けては通れない「ページごとの図面枠・表題欄の自動配置」をテーマに、プロの設計思想を伝授します。これさえ理解すれば、手作業でのコピー＆ペーストから永遠に解放されますよ。

—

CorelDRAWのドキュメントは、[Document] -> [Page] -> [Layer] -> [Object] という親子関係で成り立っています。

特に「図面枠」を扱う際、これを「印刷用レイヤー」や「ガイド用レイヤー」と混ぜてはいけません。以下のルールを守るのが、プロの自動化の鉄則です。

—

今回は、「最終ページ以外すべてに、指定した図面枠テンプレートを適用する」というシナリオでコードを書いてみましょう。

Sub ApplyDrawingBorder()
Dim doc As Document
Dim p As Page
Dim layer As Layer
Dim templateShape As Shape

Set doc = ActiveDocument

‘ 1. テンプレートとなるオブジェクトを特定する（例：一番上のレイヤーにある枠）
‘ ※実務ではライブラリファイルから読み込む手法が推奨されます
Set templateShape = doc.ActivePage.Layers(“Frame”).Shapes(1)

‘ 2. 全ページをループ処理
‘ doc.Pages.Count はドキュメントの総ページ数
Dim i As Integer
For i = 1 To doc.Pages.Count – 1 ‘ 最終ページ以外
Set p = doc.Pages(i)

‘ 3. ページ内の「Frame」レイヤーを取得（なければ作成）
Set layer = p.Layers.Find(“Frame”)
If layer Is Nothing Then
Set layer = p.CreateLayer(“Frame”)
End If

‘ 4. 枠線をコピーして配置
templateShape.Copy
layer.Paste

‘ 5. 必要に応じてガイド線を配置する
‘ ガイドは「ガイドレイヤー」に配置するのが定石
p.GuidesLayer.CreateGuide 50 ‘ X座標50mmにガイドを引く
Next i

MsgBox “全ページの図面枠配置が完了しました。”, vbInformation
End Sub

—

このコードを読み解く上で、ぜひ覚えておいてほしいポイントが3つあります。

初心者は「今開いているページ」を操作しがちですが、自動化では必ず `doc.Pages(i)` のように明示的にターゲットを指定してください。これだけで、予期せぬページへの書き込みという事故を100%防げます。

`p.Layers.Find(“レイヤー名”)` を使わずにいきなりレイヤーを作成しようとすると、同名レイヤーが重複して作成されるエラーが起きます。「探す→なければ作る」のセットは、VBAの基本中の基本です。

`Copy/Paste` はクリップボードを経由するため、実はパフォーマンスを落とす原因になります。高度な処理では `templateShape.Duplicate` を使い、座標を直接指定して移動させるのが、伝説的エンジニアの流儀です。

—

今回のコードは「図面枠を配置する」ための第一歩です。ここから先は、以下のような拡張に挑戦してみてください。

—

CorelDRAW VBAを書くことは、単なるコーディングではありません。ドキュメントの構造を頭の中で設計し、それをプログラムとして具現化する作業です。

最初は難しく感じるかもしれませんが、「レイヤーを操作する」「オブジェクトを特定する」という基本さえマスターすれば、どんな複雑なレイアウトもあなたの指先一つで制御できるようになります。

「ここをこう変えたいんだけど、どうすればいい？」という疑問が湧いたら、それはあなたがエンジニアとして成長している証です。またいつでも聞きに来てください。

あなたのクリエイティブな時間が、自動化によってもっと自由で実りあるものになりますように。