こんにちは！CorelDRAW VBAの世界へようこそ。
マクロの記録ボタンを押して「なんだか動いたけれど、中身がよくわからない…」という段階から抜け出し、自分の手でデザイン環境をコントロールしたいと思っていませんか？
今回は、実務の現場で誰もが一度は直面する「散らかりすぎたガイドラインと補助線」の山を、ワンクリックで美しく一掃する実用マクロを作ります。
ここをクリアすれば、CorelDRAWのオブジェクト構造の概念と、VBAによる一括処理の基本はバッチリですよ。さあ、一緒にプロの第一歩を踏み出しましょう！
—
なぜ、ガイドラインの整理が必要なのか？
デザイン作業に没頭していると、いつの間にか画面は無数のガイドラインやスナップ用補助線で埋め尽くされていきますよね。作業中には便利なものですが、いざクライアントへの提出データや印刷用の入稿データを作る段階になると、これらは「不要なゴミ」になってしまいます。
手動で一本ずつ選択して削除していくのは、途方もなく退屈でミスしやすい作業です。
これをVBAの力で「一瞬で、確実に、ドキュメント全体から根こそぎ消去する」仕組みを作りましょう。
—
CorelDRAW VBAにおける「ガイドライン」の正体
初心者の方がつまずきやすいポイントとして、CorelDRAWのガイドラインは、通常の「四角形や円といったベクターオブジェクト」とは少し違う場所に住んでいるという点があります。
CorelDRAWでは、ガイドラインは「レイヤー（Layer）」、あるいは「ドキュメントのガイドライン専用コレクション」として管理されています。
そのため、単にページ上の図形を消すようなコードを書くだけでは、ガイドラインは消えてくれません。
今回のマクロでは、「ドキュメント全体（すべてのページ、すべてのレイヤー）」を巡回し、ガイドラインという名の要素を容赦なく消し去るプログラムを構築します。
—
【実践】ワンクリック整理マクロのコード
以下のコードを、CorelDRAWのVBAエディタ（`Alt + F11` で起動）の標準モジュールに貼り付けてください。
Sub CleanUpGuidelines()
‘ —————————————————-
‘ 処理名: ドキュメント全体のガイドライン一掃マクロ
‘ 概要: アクティブなドキュメントからすべてのガイドラインを削除します
‘ —————————————————-
Dim doc As Document
Set doc = ActiveDocument
‘ 安全装置：ドキュメントが開かれていない場合は処理を中断
If doc Is Nothing Then
MsgBox “有効なドキュメントが開かれていません。”, vbCritical, “エラー”
Exit Sub
End If
‘ ユーザーに実行確認（うっかりミス防止の優しい設計）
Dim result As VbMsgBoxResult
result = MsgBox(“このドキュメントに含まれるすべてのガイドラインを削除しますか？” & vbCrLf & “この操作は元に戻せません。”, _
vbYesNo + vbExclamation, “ガイドライン一掃クリーナー”)
If result = vbNo Then Exit Sub
‘ エラーハンドリングの有効化
On Error GoTo ErrorHandler
‘ 処理の高速化と画面ちらつき防止
doc.BeginCommandGroup
EventsEnabled = False
Dim sh As Shape
Dim i As Long
‘ ページをまたいで全てのガイドラインを削除するアプローチ
‘ CorelDRAWではガイドラインはシェイプの一種としてレイヤー内に存在することがあります
Dim p As Page
Dim l As Layer
For Each p In doc.Pages
For Each l In p.Layers
‘ レイヤー内のシェイプを後ろからループ（削除時のズレを防ぐ鉄則）
For i = l.Shapes.Count To 1 Step -1
Set sh = l.Shapes(i)
‘ シェイプの種類がガイドライン（cdrGuideline）であるかを判定
If sh.Type = cdrGuidelineShape Then
sh.Delete
End If
Next i
Next l
Next p
‘ マスターレイヤー（全ページ共通レイヤー）のガイドラインも同様に削除
For Each l In doc.MasterPage.Layers
For i = l.Shapes.Count To 1 Step -1
Set sh = l.Shapes(i)
If sh.Type = cdrGuidelineShape Then
sh.Delete
End If
Next i
Next l
‘ 終了処理
EventsEnabled = True
doc.EndCommandGroup
MsgBox “ガイドラインの整理が完了しました！入稿データの準備OKです。”, vbInformation, “完了”
Exit Sub
ErrorHandler:
‘ 万が一のエラー時に画面描画やグループ化がロックされるのを防ぐ
EventsEnabled = True
doc.EndCommandGroup
MsgBox “予期せぬエラーが発生しました: ” & Err.Description, vbCritical, “エラー”
End Sub
—
コードの重要ポイントを噛み砕く！
初心者エンジニアのあなたが「おっ」と気づくべき、プロのテクニックがこの短いコードに詰まっています。
1. 削除ループは「後ろから数える（Step -1）」
For i = l.Shapes.Count To 1 Step -1
コレクション（たくさんの要素の集まり）から何かを削除するとき、前から順番に（1番目、2番目…と）消していくと、番号が繰り上がってしまい、必ず消し忘れやエラーが発生します。
「消すときは、常に一番後ろから逆順でループする」。これはCorelDRAW VBAだけでなく、すべてのプログラミングにおける鉄則です！
2. シェイプの種類を判定する `sh.Type`
CorelDRAWの中にあるものは、四角形であれ文字であれ、基本的には「シェイプ（Shape）」という共通の枠組みで扱われます。
その中でも「これはガイドラインだよ」と見分ける魔法の合言葉が `cdrGuidelineShape` です。これを使うことで、必要なデザインパーツを巻き込まずに、ガイドラインだけをピンポイントで狙い撃ちできます。
3. 安全装置（Undoグループとエラーハンドリング）
実務で使うマクロに最も求められるのは「安全性」です。
`doc.BeginCommandGroup` と `doc.EndCommandGroup` で囲むことにより、マクロで行った一連の削除処理を「Ctrl + Z（元に戻す）の一回分」としてまとめることができます。また、万が一エラーが起きても画面が固まらないように `EventsEnabled = True` を挟む配慮も忘れていません。
—
陥りやすいエラーと対処法
Q. 「オブジェクトが必要です」というエラーが出る
原因: コードを実行した時に、CorelDRAWでドキュメント（.cdrファイル）を何も開いていない場合に発生します。
対策: 今回のコードには冒頭に `If doc Is Nothing Then` というガードを設けているため防げますが、他のコードを書く際も「操作対象が今存在しているか」を確認する癖をつけましょう。
—
おわりに
お疲れ様でした！
今回のマクロを通じて、オブジェクトのループ処理、条件分岐、そして実務で必須の安全装置の組み方をマスターできましたね。
この小さな自動化の積み重ねが、あなたのデザイン作業のストレスを劇的に減らし、クリエイティブな時間に集中させてくれます。
ここをクリアしたあなたなら、次は「不要な色の削除」や「自動リサイズ」など、さらに高度なツールへステップアップできますよ。
それでは、快適なCorelDRAWライフを！
