こんにちは！CorelDRAW VBAの世界へようこそ。
私はこれまで数多くのデザイン現場の自動化を手掛けてきましたが、今日も現場からこんな悲鳴が聞こえてきました。
「フォルダに入った100個のCDRファイル、全ページの『寸法線』レイヤーを一斉に非表示にして上書き保存してって頼まれたんだけど……これ、手作業でやったら今夜帰れないよ！」
……分かります。その絶望感。しかし、ご安心ください。
ここをクリアすれば、あなたも今日からCorelDRAW VBAを自在に操る自動化エンジニアの仲間入りです。今回は、複数のCDRファイルを無人で巡回し、特定のレイヤーの表示状態を一括制御する「バッチ処理マクロ」の極意を、優しく、そして徹底的に解説していきます。
マクロの記録ボタンを押すだけのステージは、もう卒業しましょう。本物の自動化の世界へ、一緒に一歩を踏み出しますよ！
—
1. なぜ「バッチ処理」と「レイヤー制御」でつまずくのか？
CorelDRAW VBAの初学者が最初に直面する壁、それは「複数ドキュメントのライフサイクル管理」と「オブジェクト階層の深さ」です。
- どのファイルが開いていて、どれがアクティブなのかを見失う。
- 「ページ」と「レイヤー」の親子関係を無視してコードを書き、エラーを連発する。
- ファイルを閉じる時に保存し忘れて変更が消える。
これらはすべて、CorelDRAWの内部構造（ドキュメント ＞ ページ ＞ レイヤー）を正しく理解していないことが原因です。まずは、この構造を頭に叩き込みましょう。
—
2. 現場で即戦力になる！一括レイヤー制御マクロ
百聞は一見に如かず。まずは、指定したフォルダ内のすべてのCDRファイルを読み込み、すべてのページの特定レイヤー（例：「寸法線」）を非表示にして上書き保存する、実用度MAXのコードをお見せします。
VBAエディタ（`Alt + F11`）を開き、標準モジュールに以下のコードを貼り付けてください。
Sub BatchToggleLayerVisibility()
Dim targetFolder As String
Dim fileName As String
Dim doc As Document
Dim p As Page
Dim lyr As Layer
Dim targetLayerName As String
‘ — 1. 設定エリア —
‘ 処理したいCDRファイルが入っているフォルダパスを指定してください（最後に必ず「\」を入れる）
targetFolder = “C:\Data\CorelDrawFiles\”
‘ 操作したいレイヤーの名前を指定
targetLayerName = “寸法線”
‘ 画面描画を停止して処理速度を爆発的に上げる（お約束のプロの技！）
CorelDRAW.Optimization = True
EventsEnabled = False
On Error GoTo ErrorHandler
‘ — 2. フォルダ内のCDRファイルを総ナメにする —
fileName = Dir(targetFolder & “.cdr”)
If fileName = “” Then
MsgBox “指定されたフォルダにCDRファイルが見つかりません。”, vbExclamation, “エラー”
GoTo CleanUp
End If
Do While fileName <> “”
‘ ドキュメントを開く（非表示で開くことで画面のチラつきを防ぐ）
Set doc = OpenDocument(targetFolder & fileName)
‘ — 3. 文書内の「全ページ」をループする —
For Each p In doc.Pages
‘ ページをアクティブにする（レイヤー操作の確実性を上げるため）
p.Activate
‘ — 4. ページ内の全レイヤーを走査する —
For Each lyr In p.Layers
‘ レイヤー名が一致するかチェック
If lyr.Name = targetLayerName Then
‘ 非表示にする（Trueで表示、Falseで非表示）
lyr.Visible = False
‘ ※もし印刷も禁止したい場合は以下も有効化
‘ lyr.Printable = False
End If
Next lyr
Next p
‘ — 5. 上書き保存して閉じる —
doc.Save
doc.Close
‘ 次のファイルへ
fileName = Dir()
Loop
MsgBox “すべてのファイルのレイヤー制御が完了しました！”, vbInformation, “処理完了”
CleanUp:
‘ 画面描画の復元（絶対に忘れてはいけない！）
CorelDRAW.Optimization = False
EventsEnabled = False
Exit Sub
ErrorHandler:
MsgBox “予期せぬエラーが発生しました: ” & Err.Description, vbCritical, “致命적エラー”
Resume CleanUp
End Sub
—
3. コードの急所を徹底解説！
このコードには、CorelDRAW自動化の「知見」がぎっしり詰まっています。初心者が見落としがちなポイントを3つに絞って解説します。
① 爆速化の呪文：`Optimization = True`
複数ファイルを扱うバッチ処理では、ファイルを開くたびに画面を描画していると、PCがフリーズしたかのように遅くなります。
処理の最初に `CorelDRAW.Optimization = True` を宣言し、処理が終わったら `False` に戻す。これだけで、処理速度が何倍にも跳ね上がります。プロのエンジニアは必ず入れている鉄則です。
② 階層構造の階段を一段ずつ登る
CorelDRAWのオブジェクトモデルは、次のようなマトリクス構造をしています。
> `Document` （ファイル）
> └ `Pages` （ページ群）
> └ `Layers` （レイヤー群）
> └ `Shapes` （図形群）
今回のコードでは、`For Each doc` の中に `For Each p`（ページ）、さらにその中に `For Each lyr`（レイヤー）という「三階建てのループ構造」を作っています。この階層を間違えると、「指定したレイヤーが見つからない！」というエラーの餌食になります。
③ エラーハンドリングと後始末
もし処理途中でファイルが破損していたりすると、マクロはそこでストップしてしまいます。その際、`Optimization = True` のまま止まってしまうと、CorelDRAWの画面が二度と描画されなくなる地獄が待っています。
そのため、`On Error GoTo ErrorHandler` を仕込み、どんなエラーが起きても必ず `CleanUp` ラベルを通って画面描画を復元する安全設計にしています。
—
4. 陥りやすい罠とアドバイス
実際にこのコードを動かす際に、よくある「つまずきポイント」を先回りしてクリアしておきましょう。
- 罠1: 「レイヤー名が存在しない」エラー
- 対策: 指定するレイヤー名（今回の例では `”寸法線”`）が、対象ファイルのレイヤーパレットに1文字違わず存在するか確認してください。全角・半角の違いもエラーの原因になります。
- 罠2: すべてのページではなく、マスターページにあるレイヤーだった
- 対策: CorelDRAWには通常のページレイヤーの他に、全ページに共通する「マスターレイヤー」が存在します。もし対象がマスターレイヤー（ガイド線など）の場合は、`p.Layers` ではなく `doc.MasterPage.Layers` を操作する必要があります。ニーズに合わせてここを書き換えてみてください。
—
ここをクリアすれば、CorelDRAW VBAの基本はバッチリですよ！
お疲れ様でした！ここまで理解できたあなたは、単なる「マクロの記録者」ではなく、立派なCorelDRAW自動化エンジニアです。
フォルダ内のファイルを自動で巡回し、数千・数万のオブジェクトを自在にコントロールする力――。これは手作業の世界には戻れない、圧倒的な自由と効率をもたらします。
今回のコードをベースに、「レイヤーのロックを解除する」「特定の文字を置換する」など、あなたの現場の課題に合わせてカスタマイズしてみてください。
あなたの自動化ライフが、最高のものになりますように。それではまた、次の現場でお会いしましょう！
