CorelDRAW VBAを掌握せよ：図面枠自動生成における「レイヤー構造」の極意
多くのエンジニアがCorelDRAWの自動化で躓くのは、「オブジェクトをただ並べる」という発想から抜け出せないからだ。特に図面枠や表題欄といったテンプレート管理において、全ページに漫然とオブジェクトを配置すれば、ファイルサイズは肥大化し、修正のたびに地獄を見る。
プロフェッショナルな設計において、テンプレートは「物理的なコピー」であってはならない。「論理的なレイヤー構造」として定義すべきだ。今回は、最終ページを除く全ページに、共通の図面枠を堅牢に適用する極限の設計手法を伝授する。
—
1. 非効率な設計と「あるべき姿」の差分
初心者はループ処理で各ページに図面枠のグループをコピーする。これは最悪の悪手だ。
- 問題点: ページが増えるたびにメモリを消費し、後から表題欄のフォントを一つ変えるだけで全ページの修正が必要になる。
- 正解: 「マスターレイヤー」の概念をVBAでエミュレートする。特定の名前を持つレイヤーを全ページに用意し、そこにのみ図面枠を配置する。
今回の設計指針は以下の通りだ。
1. 名前付きレイヤーの強制: 全ページ共通レイヤー（例: “Template_Border”）を定義し、存在しなければ生成する。
2. 非破壊的な更新: 既存のレイヤーがあれば一度クリアし、再配置する。
3. 最終ページ除外ロジック: ループの終端判定において、ページ総数を考慮した制御を行う。
—
2. 実装コード：プロダクション・レベルのテンプレート適用
このコードは、単なる自動配置ツールではない。エラーハンドリングとオブジェクト参照のライフサイクルを考慮した、保守性の高い実装だ。
Option Explicit
‘ ———————————————————
‘ 目的: 最終ページを除く全ページに図面枠を自動配置する
‘ ———————————————————
Public Sub ApplyDrawingTemplate()
Dim doc As Document
Dim p As Page
Dim layerName As String: layerName = “Template_Border”
Dim tempLayer As Layer
Set doc = ActiveDocument
‘ プロセス開始時の最適化（画面描画を停止して高速化）
doc.BeginCommandGroup “ApplyTemplate”
Optimization = True
‘ ページを逆順に走査し、最終ページ以外を処理
Dim i As Integer
For i = 1 To doc.Pages.Count – 1
Set p = doc.Pages(i)
‘ レイヤーの取得、または作成
Set tempLayer = p.Layers.Find(layerName)
If tempLayer Is Nothing Then
Set tempLayer = p.Layers.Add(layerName)
End If
‘ 既存オブジェクトを消去してクリーンな状態に（再実行性のため）
tempLayer.DeleteAll
‘ ここに図面枠描画ロジックを呼び出す
Call DrawTemplateFrame(tempLayer)
Next i
Optimization = False
doc.EndCommandGroup
MsgBox “テンプレートの適用が完了しました。”, vbInformation
End Sub
‘ 図面枠を描画するモジュール
Private Sub DrawTemplateFrame(targetLayer As Layer)
Dim w As Double, h As Double
w = targetLayer.Page.SizeWidth
h = targetLayer.Page.SizeHeight
‘ レイヤーをアクティブ化して描画
targetLayer.Activate
‘ 例：外枠を描画（必要に応じてグループ化して管理すること）
Dim rect As Shape
Set rect = targetLayer.ActiveLayer.CreateRectangle(5, 5, w – 5, h – 5)
rect.Outline.Width = 0.5
‘ 表題欄などのテキストやロゴ配置はここに記述
‘ …
End Sub
—
3. 現場で生き残るための「3つの極意」
① `Optimization = True` の絶対遵守
CorelDRAWのVBAは、画面更新が有効なままだと、1オブジェクト描画するたびに再描画計算が走る。数ページなら良いが、100ページを超えると処理速度は指数関数的に低下する。冒頭と終了時に必ず最適化フラグを制御せよ。
② `BeginCommandGroup` によるUndo管理
自動化ツールにとって「Undo（元に戻す）」を1手で完結させることは、ユーザーへの最低限の礼儀だ。`BeginCommandGroup` を使わなければ、ユーザーはミスをした時に100回以上のUndoを強いられることになる。
③ 外部データ連携の勘所
もし図面枠のテキスト情報（プロジェクト名や図番など）をExcelや外部DBから取得する場合、「ドキュメントのプロパティ」や「隠しオブジェクト」にシリアライズされたデータを保存しておくのが定石だ。
ファイルを開くたびに外部DBへ接続しに行く設計は、ネットワーク遅延やファイル移動時に確実にクラッシュの原因となる。あくまで「VBAはCorelDRAW内で自己完結させる」のが、最も堅牢なアーキテクチャである。
—
結論：自動化は「構造」を設計する作業である
コードを書く前に、レイヤー構造という「骨格」を設計せよ。
今回紹介した手法を使えば、図面枠の修正は `DrawTemplateFrame` 内の数値を変更し、ツールを再実行するだけで全ページに反映される。
面倒な繰り返し作業をコードに置き換えるのではない。「修正のコスト」を極限まで下げる仕組みを構築すること。それこそが、我々エンジニアがCorelDRAWに対して行うべき真の自動化である。
