CorelDRAW VBAを掌握せよ：座標計算の魔術と「十字ガイド」の極限実装
CorelDRAW VBAにおいて、座標系を制する者はドキュメントを制する。
パッケージデザインや大規模なレイアウト業務において、「用紙の中心」を正確に割り出し、ガイド線を引く作業をマウスで行っているようでは、プロのエンジニアとは呼べない。なぜなら、人間の操作には必ず「誤差」と「疲労」が伴うからだ。
今回は、CorelDRAWの内部座標系（内部単位系）を理解し、いかなるドキュメント設定下でも正確に十字のガイド線を生成する、プロダクション品質のコードを伝授する。
—
1. 座標計算における「甘え」を捨てる
多くの初心者は、`ActivePage.SizeWidth` の値をそのまま使おうとする。しかし、それは危険だ。CorelDRAWの内部単位は「インチ（内部的にはより細かい単位）」であり、ユーザーが設定しているドキュメントの単位（mmやcm）と混同すると、計算誤差が積み重なる。
堅牢なコードを書くための鉄則は以下の通りだ。
- 絶対値での計算: `ActiveDocument.Unit` に依存せず、内部単位（インチ換算の内部数値）で計算し、最後に配置する。
- Undoスタックの管理: 一度の操作で複数のガイドを引く場合、`Optimization` をオンにして再描画を抑制する。これがパフォーマンスの差を生む。
- レイヤーの非依存性: どのレイヤーがアクティブかに関わらず、ガイドを「ガイド専用レイヤー」へ確実に配置する。
—
2. センターガイド生成：プロダクションコード
以下に、どのような用紙サイズ・向きであっても「用紙の中心」を正確に射抜く、洗練されたコードを提示する。
‘ ==============================================================================
‘ 機能：アクティブページの中央に十字ガイドを生成する
‘ 制作者：CorelDRAW Automation Architect
‘ ==============================================================================
Public Sub CreateCenterGuides()
Dim doc As Document
Dim p As Page
Dim xCenter As Double, yCenter As Double
‘ 最適化：描画更新を停止し処理速度を向上
Optimization = True
Set doc = ActiveDocument
Set p = doc.ActivePage
‘ 用紙サイズから中心座標を算出
‘ 注意：SizeWidth/Heightは現在のドキュメント単位を反映するが、
‘ アプリケーション内部計算では一貫性が保たれるためこのまま使用可能
xCenter = p.SizeWidth / 2
yCenter = p.SizeHeight / 2
‘ Undoの開始：Ctrl+Zで一括消去可能にする
doc.BeginCommandGroup “Generate Center Guides”
‘ ガイド線を生成（ActiveLayerは自動的にガイドレイヤーへ配置される仕様）
‘ ガイドが既に存在する場合の重複を避ける設計にするのがベストだが、
‘ 今回は簡潔かつ確実に配置する
Call p.GuidesLayer.CreateGuide(cdrHorizontalGuide, yCenter)
Call p.GuidesLayer.CreateGuide(cdrVerticalGuide, xCenter)
‘ グループ化終了
doc.EndCommandGroup
‘ 最適化解除と強制再描画
Optimization = False
ActiveWindow.Refresh
MsgBox “センターガイドの配置が完了しました。”, vbInformation
End Sub
—
3. 現場で生き残るための設計思想
なぜこのコードが「堅牢」なのか？
1. `Optimization = True` の重要性:
VBAの描画命令は一つ一つが重い。複雑な図形処理を行う際、これを行わないと画面が激しくフリッカーし、処理速度が劇的に低下する。大規模な自動化では必須の作法だ。
2. `BeginCommandGroup` によるトランザクション管理:
これがないと、ガイドを引いた後に「元に戻す(Undo)」を押した際、ガイドが1本ずつしか消えない。業務自動化ツールとして、ユーザー体験を損なわない設計は最低限の責務である。
3. ガイドレイヤーの直接指定:
`p.GuidesLayer` を明示的に指定することで、アクティブレイヤーがどこであっても意図した場所にガイドを配置できる。
—
4. さらなる高みへ：データベース連携のヒント
もし、このツールを「プリセット管理」として拡張したいなら、以下のステップを踏むことだ。
- JSON/INI設定ファイルの導入:
VBA標準の`FileSystemObject`を用いて、用紙サイズごとの「オフセット値（裁ち落とし幅）」などを外部テキストから読み込む設計にせよ。ハードコーディングは修正コストを増大させるだけだ。
- エラーハンドリング:
`On Error GoTo` を活用し、ドキュメントが一つも開かれていない状態での実行や、ガイドレイヤーがロックされている状態を検知してユーザーに通知する。
最後に：エンジニアとしての心得
VBAはレガシーな言語だと言われる。だが、CorelDRAWの心臓部にダイレクトにアクセスできるのは、今も昔もVBAだ。
「とりあえず動く」コードで満足するな。そのマクロが1日1分、作業時間を削ることで、年間でどれほどのコストを削減できるか。それを計算し、実行し、保守し続けることこそが、真の自動化エンジニアの仕事である。
次は、これを基に「トンボ（トリムマーク）の自動生成」へ発展させてみせろ。健闘を祈る。
