【CorelDRAW VBA】散らかったガイドラインを秒殺！入稿前の一撃クリーンアップマクロ
デザイン作業の終盤、ふと画面全体を見渡してゲンナリした経験はないだろうか。
緻密な位置合わせのために引きまくったガイドライン、スナップ用の補助線、作業用の仮線……。気づけばドキュメントは蜘蛛の巣状態。これらを1本ずつ手動で選択して削除していく？ 冗談ではない。そんな非生産的な作業に貴重なエンジニアリングの時間をドブに捨てる必要はない。
今回は、CorelDRAWのドキュメントに散らばる不要なガイドラインや補助線をレイヤー構造の深部まで完全にハントし、一瞬で一掃するワンクリック整理マクロのプロダクションコードを伝授する。
単に動くだけのコードではない。CorelDRAWのオブジェクトモデルの癖、メモリリークを防ぐための作法、そして実務の現場で絶対にバグらせないための堅牢な設計思想を叩き込む。
—
1. なぜ「手動削除」や安易なループは地獄を見るのか
初心者がやりがちなアプローチは、アクティブページの `Guides` コレクションを上から順に `Delete` し続けるというものだ。
しかし、CorelDRAW VBAのオブジェクト指向の裏側を知る者からすれば、これは地雷原を裸足で歩くようなものだ。
コレクション操作の罠（インデックスズレ）
VBAでコレクションの要素をループさせながら削除（あるいは動的に変更）すると、インデックスの再割り当てが発生し、削除漏れ（Index Out of Range や意図しないスキップ）が確実に発生する。
特にCorelDRAWの場合、ガイドラインは「ドキュメント全体（Master Guide）」に属するものと「各ページ（Page Guide）」に属するものが混在しており、さらにレイヤーを跨いで存在することがある。
堅牢な設計のアプローチ
この問題を完全にハックするためには、以下の原則を遵守しなければならない。
1. 逆順ループ（Backward Loop）の鉄則: コレクションを削除する場合は、必ず最後の要素から最初の要素に向かって（`Count` から `1` へ）デクリメントしながらループを回す。これによりインデックスのズレを完全にハイドレート（回避）できる。
2. スコープの明確化: 削除対象が「アクティブページのみ」なのか、「全ページ（マスター含む）」なのかを明確に引数またはロジックで制御する。今回は入稿前を想定し、ドキュメント全体を対象とする。
3. エラーハンドリングと画面描画のロック: 大量のオブジェクトを操作する際、画面の再描画（ScreenUpdating）が有効なままだとパフォーマンスが激落ちするだけでなく、予期せぬ描画バグを引き起こす。必ず `Optimization = True` でラップする。
—
2. 【プロダクションコード】一撃クリーンアップマクロ
以下のコードをCorelDRAWのVBAエディタ（Alt + F11）の標準モジュールに貼り付けてほしい。
実務の現場でそのまま組み込めるよう、エラーハンドリングとパフォーマンス最適化を極限まで高めたプロ仕様のコードだ。
Option Explicit
‘ ==============================================================================
‘ @Title: CorelDRAW ガイドライン一掃クリーンアップツール
‘ @Description: ドキュメント全体（マスターおよび全ページ）のガイドラインを完全削除する
‘ @Author: Chief Automation Architect
‘ ==============================================================================
Sub ClearAllGuidelinesPro()
‘ 1. 最速処理のための環境最適化
Dim lOldOptimization As Long
lOldOptimization = Application.Optimization
Application.Optimization = True
‘ 2. 画面描画のフリーズ（ちらつき防止とパフォーマンス向上）
Application.ActiveDocument.BeginCommandGroup “Clean Guidelines”
On Error GoTo ErrorHandler
Dim doc As Document
Set doc = Application.ActiveDocument
If doc Is Nothing Then
MsgBox “アクティブなドキュメントが存在しません。”, vbCritical, “エラー”
GoTo Finally
End If
Dim deletedCount As Long
deletedCount = 0
‘ ————————————————————————–
‘ A. マスターガイドラインの削除 (全ページ共通のガイド)
‘ ————————————————————————–
‘ CorelDRAWでは、マスターレイヤーに属するガイドはドキュメント全体に影響します
Dim masterGuides As Guides
Set masterGuides = doc.MasterPage.Guides
‘ ※重要: コレクション削除は必ず「後ろから前へ」ループを回すこと
Dim i As Long
For i = masterGuides.Count To 1 Step -1
masterGuides(i).Delete
deletedCount = deletedCount + 1
Next i
‘ ————————————————————————–
‘ B. 各ページ固有のガイドラインの削除
‘ ————————————————————————–
Dim p As Page
For Each p In doc.Pages
Dim pageGuides As Guides
Set pageGuides = p.Guides
For i = pageGuides.Count To 1 Step -1
pageGuides(i).Delete
deletedCount = deletedCount + 1
Next i
Next p
‘ 3. 処理完了の通知
Application.ActiveDocument.EndCommandGroup
Application.Optimization = lOldOptimization
Application.Refresh
MsgBox “クリーンアップが完了しました。” & vbCrLf & _
“削除されたガイドライン総数: ” & deletedCount & ” 本”, _
vbInformation, “ガイドライン・スイーパー”
Exit Sub
ErrorHandler:
‘ 異常系ハンドリング
Application.ActiveDocument.AbortCommandGroup
Application.Optimization = lOldOptimization
Application.Refresh
MsgBox “予期せぬエラーが発生しました。” & vbCrLf & _
“Error No: ” & Err.Number & vbCrLf & _
“Description: ” & Err.Description, _
vbCritical, “致命的なエラー”
Finally:
Exit Sub
End Sub
—
3. コードのキタ（核）となるエンジニアリング解説
このコードが「なぜプロの書いたものなのか」、その技術的優位性をいくつか解説しておこう。
`Application.Optimization = True` の威力
CorelDRAW VBAにおいて、マクロ実行中の描画計算は最大のボトルネックだ。`Optimization = True` を宣言すると、内部のUI更新イベントやプレビュー生成が一時停止される。これにより、数百本のガイドラインを一網打尽にする処理が、人間の知覚できないほどの「一瞬（ミリ秒単位）」で完了する。
トランザクション管理 (`BeginCommandGroup` / `EndCommandGroup`)
このコードを実行した後に「やっぱりガイドを消すんじゃなかった！」と後悔するユーザーがいるかもしれない。
しかし安心してほしい。このマクロでは `BeginCommandGroup` と `EndCommandGroup` で処理をサンドイッチしているため、CorelDRAWの「元に戻す（Undo: Ctrl + Z）」機能によって、一連の削除処理をワンアクションで完全にロールバック可能な設計にしている。実務ツールにおいて「ユーザーの操作を元に戻せる安心感」は絶対に妥협してはならない要件だ。
逆順ループの絶対遵守
前述した通り、`For i = masterGuides.Count To 1 Step -1` というデクリメント方向のループこそが、コレクション操作におけるバグを100%封殺する。インデックスの繰り上がり・繰り下がりによるクラッシュは、VBA開発者が最も直面しやすい「原因不明のバグ」の筆頭だが、この書き方をしておけばその恐怖とは無縁でいられる。
—
4. 実務への組み込みとさらなる自動化へのステップ
このマクロを単体で動かすだけでなく、社内の印刷ワークフローや入稿前チェッカーに組み込むことで真価を発揮する。
- リボンやカスタムワークスペースへの登録: よく使うツールバーにこのマクロをアイコン付きで登録しておけば、まさに「ワンクリック」で作業机の上が片付く。
- PDF書き出し前自動フック: `GlobalMacros` などにイベントハンドラを仕込み、「PDFエクスポートボタンが押された瞬間に、自動でこのクリーンアップを走らせてから書き出す（元データは上書きしない）」というサイレント・自動化を構築すれば、ヒューマンエラーによる「ガイドライン付きPDF入稿事故」を撲滅できる。
ツールに人間が合わせるのではなく、人間が快適に働くためにツールを従える。
このマクロをあなたの開発環境に導入し、無駄な手作業から解放された真のクリエイティブ・タイムを手に入れてほしい。
