静的なマクロから、動的なシステムへ：Document_PageChangeを用いた次世代ガイド線フィードバック・アーキテクチャ
多くの開発者が「CorelDRAW VBA」を、単なる「繰り返し作業を自動化するスクリプト」と考えている。もし君がそう思っているなら、君の設計はまだ「ツール」の域を出ていない。真の業務自動化エンジニアが構築すべきは、ユーザーの操作に呼応して環境自体が姿を変える「インテリジェントなワークスペース」だ。
本稿では、ページ遷移イベント（`Document_PageChange`）をトリガーとし、ページごとの進捗状況やレイヤー仕様に基づいたガイド線を動的に再描画する、極めて堅牢かつ高度なシステムの設計手法を伝授する。
1. 「単発実行」の限界と「イベント駆動」の必然性
一般的な自動化スクリプトは、「ボタンを押したら、特定の処理が走る」という単発の実行モデルだ。しかし、大規模な出版物や複雑な設計図面を扱う現場では、ユーザーはページ間を頻繁に行き来する。
「ページを切り替えた瞬間に、そのページに必要なガイドライン（例えば、版面、塗り足し、あるいは特定の工程管理用のライン）が自動的に現れ、別のページに戻れば消える」
この体験を提供できるかどうかが、プロのツールと素人のスクリプトを分かつ境界線である。
陥りやすい設計ミス：イベントの暴走とリソースリーク
初心者が `Document_PageChange` に直接重い処理を書き込むと、以下の問題が発生する。
1. 画面の激しいちらつき: 描画処理が追いつかず、ユーザー体験が著しく損なわれる。
2. 無限ループの罠: ガイド線の操作（描画）が、再びイベントをトリガーしてしまう設計ミス。
3. メモリの断片化: ページを切り替えるたびに新しいオブジェクトを生成し続け、CorelDRAWの動作を不安定にする。
これらを回避するためには、「状態管理（State Management）」と「最適化（Optimization）」を分離したアーキテクチャが必要だ。
2. プロダクション・アーキテクチャ：設計指針
堅牢なシステムを構築するために、以下の3層構造を採用する。
1. Event Listener層 (Class Module): `WithEvents` を利用し、ドキュメントのイベントを監視する。
2. Logic Engine層 (Standard Module): データの照合、ガイド線の計算、描画ロジックを司る。
3. Data Provider層 (External File/DB): ページごとの仕様（座標、進捗率、レイヤー名）を保持する。
3. 実装：動的ガイド線フィードバック・システム
以下に、実務でそのまま利用可能なレベルのコード構造を示す。ここでは、外部データ（CSVやJSONを模した構造）からページ情報を読み取り、そのページ専用のガイド線を「専用レイヤー」に描画する仕組みを実装する。
A. クラスモジュール: `clsAppWatcher`
イベントを捕捉するための心臓部だ。必ず `WithEvents` を使用する。
' Class Module: clsAppWatcher
Option Explicit
' Documentオブジェクトをイベント監視対象として定義
Private WithEvents Doc As Document
' 初期化メソッド
Public Sub Initialize(ByRef TargetDoc As Document)
Set Doc = TargetDoc
End Sub
' ページが変更された時のイベントハンドラ
Private Sub Doc_PageChange(ByVal Page As Page)
' 描画エンジンを呼び出し
' ページ変更直後はドキュメントの状態が不安定な場合があるため、
' 堅牢性を期してエラーハンドリングを内包したエンジンを叩く
Call modGuideEngine.RefreshGuidesForPage(Page)
End SubB. 標準モジュール: `modGuideEngine`
ロジックの本体だ。ここでは「最適化」と「クリーンアップ」が鍵となる。
' Standard Module: modGuideEngine
Option Explicit
' ページ固有のガイド線を再構築するメインロジック
Public Sub RefreshGuidesForPage(ByVal TargetPage As Page)
On Error GoTo ErrorHandler
' 1. 最適化の開始 (画面更新の停止と高速化)
' これを行わないと、描画のたびに画面がリフレッシュされ、非常に低速になる
Application.Optimization = True
Application.EventsEnabled = False ' 再帰呼び出し（無限ループ）防止
' 2. 既存のガイド用レイヤーのクリーンアップ
' ガイド線を直接ページに引くのではなく、専用レイヤーを管理することで
' ユーザーの作業レイヤーを汚さず、一括削除を可能にする
Call CleanUpGuideLayer(TargetPage)
' 3. 外部データ（進捗・仕様）の取得
' 本来はここでCSVやデータベースから情報を取得する。
' ここではデモとして、ページ番号に基づいた擬似データを生成
Dim guideX As Double, guideY As Double
Dim guideType As String
' 例: ページ番号に応じて異なる位置にガイドを引くロジック
guideX = TargetPage.Index * 50 ' 擬似的なデータ取得
guideY = 100
guideType = "Progress_Line"
' 4. ガイド線の描画
Call CreateDynamicGuide(TargetPage, guideX, guideY, guideType)
' 5. 最適化の解除と再開
CleanUp:
Application.EventsEnabled = True
Application.Optimization = False
Application.Refresh
Exit Sub
ErrorHandler:
MsgBox "Error in Guide Refresh: " & Err.Description, vbCritical
Resume CleanUp
End Sub
' 専用レイヤーの削除・管理
Private Sub CleanUpGuideLayer(ByVal TargetPage As Page)
Dim lyr As Layer
Const GUIDE_LAYER_NAME As String = "SYSTEM_GUIDE_LAYER"
On Error Resume Next
Set lyr = TargetPage.Layers(GUIDE_LAYER_NAME)
If Not lyr Is Nothing Then
lyr.Remove ' 既存のガイドレイヤーを削除
End If
On Error GoTo 0
End Sub
' ガイド線の生成
Private Sub CreateDynamicGuide(ByVal TargetPage As Page, x As Double, y As Double, gType As String)
Dim lyr As Layer
Dim guide As Guide
Const GUIDE_LAYER_NAME As String = "SYSTEM_GUIDE_LAYER"
' 専用レイヤーの作成
Set lyr = TargetPage.AddLayer(GUIDE_LAYER_NAME)
lyr.Visible = True
' 垂直ガイドの追加
' Note: CorelDRAWのGuideオブジェクトはPageオブジェクトに属する
Set guide = TargetPage.Guides.Add(x, cdrVerticalGuide)
' ※注意: VBAの標準仕様ではGuideオブジェクト自体にレイヤー設定を直接持たせることが
' 難しい場合がある。その場合は、ガイドではなく「細い線（Line）」を
' 専用レイヤーに描画し、ガイドに見せかける手法が、実務上の制御（色・太さ）において極めて有効である。
End SubC. 標準モジュール: `modMain`
システムの起動エントリーポイントだ。
' Standard Module: modMain
Option Explicit
Private AppWatcher As clsAppWatcher
' システムの起動（CorelDRAW起動時やアドイン読み込み時に実行）
Public Sub StartAutomationSystem()
Set AppWatcher = New clsAppWatcher
Call AppWatcher.Initialize(ActiveDocument)
MsgBox "Dynamic Guide System is Active.", vbInformation
End Sub
' システムの停止
Public Sub StopAutomationSystem()
Set AppWatcher = Nothing
MsgBox "System Stopped.", vbInformation
End Sub4. プロフェッショナルのための「極限の知見」
このコードをベースに、実戦投入する際に考慮すべき「重み」を伝えておく。
① 「Guideオブジェクト」か「Lineオブジェクト」か
CorelDRAWの `Guide` オブジェクトは、数学的に正確だが、レイヤー制御や色・スタイルの自由度が低い。もし君が作るシステムが「進捗状況を色分けして表示したい」のであれば、ガイドではなく、専用レイヤーに極細の「Line（線）」を描画する設計に切り替えろ。これが、保守性と視認性を両立させるプロの判断だ。
② 外部データ連携の「ロック」問題
CSVやデータベースから情報を読み込む際、ファイルが他のプロセス（Excel等）によって開かれていると、VBAはランタイムエラーで停止する。
`Open` 文を使うのではなく、`FileSystemObject` を利用し、読み取り専用モードで開くか、データを一旦メモリ上の `Dictionary` オブジェクトにキャッシュする設計にせよ。
③ `Optimization` の二重管理
`Application.Optimization = True` は強力だが、エラー発生時に `False` に戻る前にマクロが終了すると、CorelDRAWの画面が一切更新されない「死んだ状態」になる。必ず `ErrorHandler` 内で `Optimization = False` を保証する構造にすること。これが、ユーザーに「ツールが壊れた」と思わせないための最低限のマナーだ。
結論
動的なシステム構築とは、単にコードを書くことではない。「ユーザーの操作を予測し、例外的な状態をあらかじめ排除する設計」を行うことだ。
今回紹介した `Document_PageChange` を利用したアーキテクチャは、その第一歩に過ぎない。この構造をマスターすれば、君の作るツールは単なる自動化スクリプトを超え、プロフェッショナルが信頼を寄せる「システム」へと昇華するだろう。
