こんにちは！CorelDRAW VBAの世界へようこそ。
マクロの記録ボタンを押して「なんだか動いたけれど、中身がさっぱりわからない……」という段階を卒業し、自分の手でドキュメントを自在に操りたいあなたへ。
今回は、業務効率化の現場で間違いなく重宝する「特定条件の図形を全ページから探し出し、一瞬でそのページへジャンプするデバッグ用マクロ」をテーマに解説します。
「何百ページもあるカタログから、特定の品番が入ったテキストフレームを見つけたい」
「はみ出したエラーオブジェクトのありかを特定したい」
そんな絶望的な作業も、VBAのエンジンにかかれば一瞬です。ここをクリアすれば、CorelDRAW VBAのオブジェクト構造の本質がグッと見えてきますよ。さあ、一緒に扉を開けていきましょう！
—
1. なぜ「ページ移動とオブジェクト検索」でつまずくのか？
CorelDRAW VBA初学者がまずハマる罠、それは「アクティブページ」と「全ページのオブジェクト」の混同です。
通常、VBAでコードを書くとき、私たちは無意識にいま画面で見えているページ（ActivePage）だけを相手にしがちです。しかし、CorelDRAWのドキュメント（ActiveDocument）は、複数の「ページ（Page）」というコンテナの集合体です。
さらに言えば、
1. ページが変わっても、画面の表示（ビュー）を追随させなければユーザーには見えない
2. シェイプ（図形）は「レイヤー」という別の階層に属している
という構造上の特徴があります。これらを理解していないと、「データ上は見つかったのに、画面が切り替わらない」「エラーですべてが止まる」といった事態に陥ります。
—
2. 解決へのアプローチ：全体をスキャンし、ビューを同期する
今回のマクロの設計思想は極めてシンプルです。
1. ドキュメント内の全ページ（`ActiveDocument.Pages`）を上から順にループする。
2. 各ページ内の全シェイプ（`Page.Shapes`）を走査し、条件（例：特定のテキストが含まれているか）に一致するか判定する。
3. 一致した瞬間、そのページをアクティブにし（`ActiveDocument.ActivePage = TargetPage`）、さらに画面の表示をそのページに強制的にジャンプさせる（`ActiveWindow.ActivePage = TargetPage`）。
4. 処理を中断して、ユーザーに発見を知らせる。
この「データのページ変更」と「画面のページ変更」をセットで行うのが、実務で使えるコードにするための最大のコツです。
—
3. 実装コード：全ページを巡る「オブジェクト探索・ジャンプ」マクロ
以下のコードをVBAエディタ（Alt + F11）の標準モジュールに貼り付けて実行してみてください。今回は分かりやすく、「特定のテキスト（例：修正必要）」が含まれるオブジェクトを検索するシナリオにしています。
Sub FindObjectAndJumpToPage()
Dim p As Page
Dim sh As Shape
Dim targetText As String
Dim isFound As Boolean
‘ 検索したいキーワード（エラーコードや特定の文言）を指定
targetText = “修正必要”
isFound = False
‘ ドキュメントが開かれているかチェック
If ActiveDocument Is Nothing Then
MsgBox “アクティブなドキュメントがありません。”, vbCritical, “エラー”
Exit Sub
End If
‘ 画面の再描画を一時停止（パフォーマンス向上のため。プロの常識です！）
ActiveDocument.BeginOptimization
‘ 【核心】すべてのページをループして巡回する
For Each p In ActiveDocument.Pages
‘ ページ内のすべてのシェイプをループ
For Each sh In p.Shapes
‘ テキストフレームであり、かつ指定の文字列が含まれているか判定
If sh.Type = cdrTextShape Then
If InStr(sh.Text.Story.AllText, targetText) > 0 Then
‘ 検索ヒット！
isFound = True
‘ 1. ドキュメントのバックグラウンドでページをアクティブにする
p.Activate
‘ 2. 画面のビューを指定ページに強制ジャンプさせる
ActiveWindow.ActivePage = p
‘ 3. 見つかったオブジェクトを選択状態にして、画面の中心に捉える
sh.CreateSelection
ActiveWindow.Refresh
‘ 描画停止を解除
ActiveDocument.EndOptimization
‘ ユーザーに通知
MsgBox “キーワード「 ” & targetText & ” 」を ” & p.Index & ” ページ目で発見しました！”, vbInformation, “探索完了”
Exit Sub
End If
End If
Next sh
Next p
‘ 描画停止を解除
ActiveDocument.EndOptimization
‘ 見つからなかった場合
If Not isFound Then
MsgBox “指定されたキーワード「 ” & targetText & ” 」は、どのページにも見つかりませんでした。”, vbExclamation, “検索結果”
End If
End Sub
—
4. コードのここが凄い！プロの技術解説
このコードには、実務で耐えうる堅牢なテクニックがいくつか散りばめられています。
① `ActiveDocument.BeginOptimization` の魔法
何百ページもあるドキュメントに対してループを回す時、CorelDRAWはページが切り替わるたびに画面を再描画（レンダリング）しようとします。これがマクロを劇的に重くする原因です。
処理の最初に `BeginOptimization` を呼び、最後に `EndOptimization` で閉じることで、裏側で高速に計算だけを行い、画面のチラつきと無駄な描画コストを完全にカットできます。これは大規模データを扱うプロのエンジニアにとって必須の作法です。
② 二重のページ切替（データとビュー）
前述した通り、VBAには「データを処理するオブジェクト」と「人間が目で見ているウィンドウ」の2つの世界があります。
- `p.Activate` はデータ上のアクティブページを変更します。
- `ActiveWindow.ActivePage = p` は画面の表示を切り替えます。
この両方を指定して初めて、ユーザーの目の前で「パッとそのページに画面がジャンプする」という挙動が実現します。
③ `sh.CreateSelection` によるフォーカス
ただページに飛ぶだけでなく、見つかった図形を選択状態（Selection）にし、さらに `ActiveWindow.Refresh` を挟むことで、ユーザーは「どこが問題のオブジェクトなのか」が一目でわかるようになります。デバッグ効率が何倍にも跳ね上がりますよ。
—
5. 陥りやすい罠とエラー回避のポイント
- マスターレイヤーの罠:
今回のコードは通常のレイヤー（`p.Shapes`）を検索対象にしています。もし「すべてのページに共通して表示される背景（マスターレイヤー）」にあるオブジェクトを検索したい場合は、`p.MasterPage.Shapes` を別途走査する必要があります。まずは通常のページ内オブジェクトからマスターしていきましょう。
- テキスト以外のオブジェクト検索:
今回は `cdrTextShape`（テキスト）を対象にしましたが、特定の「色（塗りつぶしカラー）」や「特定のサイズ」の図形を探したい場合は、`sh.Fill.UniformColor` などを条件式に組み込むことで、応用は無限に広がります。
—
おわりに
いかがでしたでしょうか？
「全ページを走査する」「オブジェクトを見つけて画面をジャンプさせる」という一見難しそうな処理も、オブジェクトの階層構造（ドキュメント ＞ ページ ＞ シェイプ）を正しく理解し、適切なメソッドを選べば、たったこれだけの美しいコードで実現できてしまいます。
ここをクリアできれば、CorelDRAW VBAの基本はもうバッチリです！
ぜひ自分の業務データに合わせてキーワードや条件を書き換え、現場の自動化・効率化に役立ててください。あなたのVBAライフが、より快適でクリエイティブなものになりますように。エンジニアリングの力で、退屈な反復作業を駆逐していきましょう！
