CorelDRAW VBAを掌握せよ：Web/印刷の環境を瞬時に構築する「設計の流儀」
CorelDRAWの自動化において、最も多くのエンジニアが陥る罠が「環境依存のハードコーディング」だ。
「Web用だからピクセルで動かしたい」「印刷用だからmm単位でレイヤーを分けたい」。この要求をGUIで毎回手作業で行うのは、プロの仕事ではない。今回は、ドキュメントの初期化ルーチンを自動化し、エラーを排除した堅牢な設計手法を伝授する。
—
1. なぜ「環境」を自動判別すべきなのか
初心者は、Documentを開くたびに「単位はmmかな？ pxかな？」と意識する。しかし、真の自動化ツールは、ファイル自身が持つメタデータや、あらかじめ定義されたルールに従って自ら環境を整える必要がある。
特に`ActiveLayer`の扱いや、`Page.ActiveOnWeb`のようなプロパティは、ドキュメントのライフサイクルを制御する上で極めて重要だ。ここを適当に書くと、座標計算で小数点以下の誤差が積み重なり、最終的な出力トラブルを引き起こす。
—
2. 堅牢な初期化ルーチンの設計コード
以下のコードは、Web用か印刷用かを判定し、Document環境を強制的に最適化するプロトタイプだ。コピペしてそのまま現場で使える品質に仕上げている。
‘ ———————————————————
‘ @brief ドキュメントの初期化環境を制御するコアモジュール
‘ @description Web/印刷のモードに応じて単位系とレイヤーを自動設定
‘ ———————————————————
Public Sub InitializeDocumentEnvironment(isWebMode As Boolean)
Dim doc As Document
Set doc = Application.ActiveDocument
If doc Is Nothing Then Exit Sub
‘ 1. 単位系の強制設定（誤操作防止のため、必ず明示的に行う）
If isWebMode Then
doc.Unit = cdrPixel
Else
doc.Unit = cdrMillimeter
End If
‘ 2. Web用プロパティの制御（Page.ActiveOnWebはドキュメント全体の設定に影響）
‘ ※注意: ActiveOnWebはCorelDRAWのWebエクスポート最適化に関与する
doc.ActivePage.ActiveOnWeb = isWebMode
‘ 3. レイヤー構成の整備
Call SetupDefaultLayers(doc, isWebMode)
doc.EndCommandGroup
End Sub
Private Sub SetupDefaultLayers(doc As Document, isWebMode As Boolean)
Dim lyr As Layer
‘ 既存レイヤーの安全な初期化
‘ レイヤーをループする際は、インデックスを逆順で回すのが鉄則（削除時のインデックスズレ回避）
Dim i As Integer
For i = doc.ActivePage.Layers.Count To 2 Step -1
doc.ActivePage.Layers(i).Delete
Next i
‘ 用途に応じたレイヤー作成
If isWebMode Then
Set lyr = doc.ActivePage.CreateLayer(“Assets_Web”)
Else
Set lyr = doc.ActivePage.CreateLayer(“Print_Bleed_3mm”)
End If
End Sub
—
3. プロの視点：設計の注意点（ここが運命の分かれ道）
① `Layers`コレクションを操作する際の「禁じ手」
`For Each`を使ってレイヤーを削除してはならない。`Layers`コレクションから削除するとインデックスがリアルタイムで再割り当てされるため、必ず「後ろから（Countから1まで）」ループさせること。これができないプログラマは、大規模な自動化で必ず痛い目を見る。
② `Page.ActiveOnWeb` の真価
このプロパティは単なるフラグではない。CorelDRAWのレンダリングエンジンに対して「このドキュメントはピクセルパーフェクトを要求している」と伝える合図だ。これを設定し忘れると、Webエクスポート時にオブジェクトが微妙にずれる現象（いわゆる「滲み」）が発生する。
③ データベース/ファイル連携との統合
もし外部から設定値を読み込むなら、`INI`ファイルや`JSON`（外部ライブラリ利用）を使うのが賢明だ。その際、以下のチェックリストを必ず実装してほしい。
- ドキュメントが未保存ではないか？（`doc.Saved`プロパティをチェック）
- レイヤー名は予約語と被っていないか？（`”Guides”`や`”Desktop”`はシステムレイヤーなので触らないこと）
—
4. 最後に：エンジニアとしてのマインドセット
自動化とは、単なる「作業の代行」ではない。「ミスが発生する余地を技術的に埋めること」だ。
今回紹介したルーチンをあなたのツールに組み込むだけで、チーム内の「単位設定ミス」や「レイヤー構成のバラつき」は劇的に減るはずだ。ツールを作って終わりではなく、常に「どうすればこのコードが壊れにくいか」を自問自答し続けてほしい。
次は、この設定をベースにした「自動エクスポート・パイプライン」の構築について深掘りしよう。君の業務効率化が、一段上のレベルへ進むことを期待している。
