印刷用データを一瞬でWeb用に。CorelDRAW VBAで「レイヤーの出力制御」を極める
こんにちは。現場の自動化を支えるエンジニアとして、今日は少し「実務の泥臭い、けれど最高に重要な部分」についてお話ししましょう。
デザイン業務をしていると、必ず直面する壁があります。それは「印刷用の完璧なデータ」を「Web用の書き出しデータ」へと変換する作業です。
印刷時には必須な「裁ち落とし（ドブ）」「トンボ」「カラーバー」「テクニカルな注釈」……これらはWeb用のPNGやJPGとして書き出す際には、むしろ邪魔なノイズになりますよね。これを手作業で、全ページ、全レイヤーから「エクスポート対象外」に設定していく……。想像しただけで、クリエイティビティが削られる音が聞こえてきそうです。
でも、安心してください。CorelDRAW VBAを使えば、この「退屈なルーチンワーク」は、たった数行のコードで、しかもミスなく一瞬で終わらせることができます。
今日は、マクロの記録から一歩踏み出し、「オブジェクトの性質を理解して制御する」という、プロへの第一歩を一緒に踏み出しましょう。
1. 核心：`Visible`（表示）と `Exportable`（出力）の違いを知る
ここが、今日一番大切なポイントです。多くの初学者が陥る罠があります。
> 「レイヤーを非表示（Visible = False）にすれば、書き出しもされないよね？」
答えは「NO」です。
CorelDRAWのレイヤーには、大きく分けて2つの重要なプロパティがあります。
1. `Visible` プロパティ: 画面上で「目」のアイコンがオンかオフか。作業中に「見えるか見えないか」を制御します。
2. `Exportable` プロパティ: 書き出し（Export）コマンドを実行した際、そのレイヤーの内容を「ファイルに含めるか」を制御します。
Web配信用データを整える際、「作業中もガイドラインや注釈は見ておきたい。でも、書き出すファイルには入れてほしくない」という場面が多々あります。この時、操作すべきは `Visible` ではなく `Exportable` なのです。
ここをクリアすれば、CorelDRAW VBAの基本はバッチリですよ。
2. 実践：全ページの特定レイヤーを「出力不可」にするコード
では、具体的なコードを見ていきましょう。
今回のシナリオは、「すべてのページを巡回し、名前が “Print_Only” というレイヤーを見つけたら、そのエクスポート設定をオフにする」というものです。
Sub PrepareWebExport()
' ============================================================
' テーマ：全ページの特定レイヤーを「エクスポート不可」に設定する
' 目的：印刷用レイヤーを保持したまま、Web書き出し時に除外する
' ============================================================
Dim doc As Document
Dim pg As Page
Dim lyr As Layer
Dim targetLayerName As String
' ターゲットにするレイヤー名を定義（ここを変更するだけで使い回せます）
targetLayerName = "Print_Only"
' 現在開いているドキュメントを取得
Set doc = ActiveDocument
' ドキュメントが開かれていない場合は終了
If doc Is Nothing Then
MsgBox "ドキュメントが開かれていません。", vbCritical
Exit Sub
End If
' --- パフォーマンス最適化の極意 ---
' 画面更新を停止し、処理速度を劇的に向上させます。
' 大規模なファイルでは、これがないと処理が非常に重くなります。
Optimization = True
EventsEnabled = False
' ---------------------------------
On Error GoTo ErrorHandler ' エラーが発生した場合の保険
' 1. 全ページをループで回す
For Each pg In doc.Pages
' 2. 各ページ内の全レイヤーをループで回す
For Each lyr In pg.Layers
' 3. レイヤー名が一致するか判定（大文字小文字を区別しない工夫）
If UCase(lyr.Name) = UCase(targetLayerName) Then
' ★ここが核心：エクスポート設定をFalse（不可）にする
lyr.Exportable = False
' デバッグ用：どのページで変更したかイミディエイトウィンドウに表示
Debug.Print "Page " & pg.Index & ": Layer '" & lyr.Name & "' set to non-exportable."
End If
Next lyr
Next pg
' --- 設定を元に戻す ---
' 処理が終わったら必ず最適化設定を解除します。
Optimization = False
EventsEnabled = True
Application.Refresh ' 画面を再描画
MsgBox "Web書き出し用のレイヤー整理が完了しました！", vbInformation, "完了"
Exit Sub
ErrorHandler:
' エラーが起きた時も、画面更新停止状態のままにならないようケアします
Optimization = False
EventsEnabled = True
MsgBox "エラーが発生しました: " & Err.Description, vbCritical, "エラー"
End Sub3. コードの解説：プロの視点
このコードには、単なる「動くコード」ではない、実務で役立つテクニックがいくつか散りばめられています。
① `Optimization = True` の魔法
CorelDRAW VBAにおいて、最も重要なパフォーマンス向上テクニックです。
通常、VBAがレイヤーを一つ書き換えるたびに、CorelDRAWは画面を再描画しようとします。100ページあるドキュメントでこれをやると、画面がチカチカして動作が非常に重くなります。
`Optimization = True` を宣言することで、「裏側で黙々と作業して、最後にまとめて結果を見せてね」という命令になります。
② `UCase` による安全策
`If lyr.Name = “Print_Only”` と書くと、もし誰かがレイヤー名を `”print_only”`（小文字）と付けていた場合、プログラムは見逃してしまいます。
`UCase(lyr.Name) = UCase(targetLayerName)` とすることで、大文字・小文字の揺れを吸収し、堅牢な（壊れにくい）コードにしています。
③ オブジェクトの階層構造を意識する
このコードは、
Document（本） ➔ Page（ページ） ➔ Layer（レイヤー）
という、CorelDRAWのデータ構造（オブジェクトモデル）をそのままなぞっています。この階層構造を頭に叩き込んでおくと、次に「特定のオブジェクトの座標を変えたい」と思った時、「Documentの中のPageの中のShapeを操作すればいいんだな」と、自然に設計できるようになります。
4. 陥りやすいエラーと対策
エンジニアとして、あえて「失敗のパターン」も教えておきましょう。
- 「レイヤー名が見つからない」問題:
名前が完全に一致していないと、何も起きません。もし、名前の一部が含まれていればOKにしたい場合は、`If lyr.Name Like “*” & targetLayerName & “*”` という `Like` 演算子を使うテクニックもあります。
- 「ロックされたレイヤー」問題:
レイヤーがロックされていても、プロパティ（Exportable）の変更は可能なことが多いですが、複雑な構造のデータでは予期せぬ挙動をすることがあります。基本的には「レイヤー操作をする前に、ロックを解除するか検討する」のがプロの作法です。
最後に
いかがでしたでしょうか？
「全ページを手作業でクリックして、プロパティを変える」という作業は、人間にとっては苦行ですが、コンピュータにとっては一瞬の計算に過ぎません。
この「人間がやるべきクリエイティブな仕事」と「機械が得意なルーチンワーク」を切り分ける思考こそが、業務自動化の本質です。
一歩ずつ、このコードを自分の環境で試してみてください。動いた瞬間の感動が、あなたを次のレベルへと連れて行ってくれます。
応援していますよ。また次の現場でお会いしましょう！
