CorelDRAW自動化の神髄：PDF書き出しを「完全制御」する
こんにちは。現場で泥臭い手作業を繰り返している皆さん、その時間は今日で終わりにしましょう。
CorelDRAWの「マクロの記録」ボタンを押して、生成されたスパゲッティコードに絶望したことはありませんか？あれは「作業の断片」であって、自動化ではありません。真の自動化とは、ドキュメントの構造（DOM）を掌握し、意図した通りにレイヤーを操り、裏側でPDFを生成させる「一貫した意志」をコードに込めることです。
今回は、実務で最も要望が多い「カットラインを隠して印刷用PDFを書き出す」というタスクを、プロの現場でも通用する堅牢なコードで実現します。
—
1. CorelDRAWのオブジェクトモデルを俯瞰する
コードを書く前に、頭の中に地図を描きましょう。CorelDRAWのVBAは、以下のツリー構造を理解するだけで8割攻略可能です。
- Application: CorelDRAWそのもの。
- Document: 現在開いているファイル。
- Layer: 描画の層。ここを制御するのが今回の肝。
- PDFSettings: 書き出し時の詳細設定（解像度、プリセットなど）。
「レイヤーの可視性を切り替える」ということは、特定の名前を持つレイヤーを検索し、その`Visible`プロパティを操作することを意味します。
—
2. 実践：PDF書き出し完全自動化スクリプト
以下のコードは、`CutLine`という名前のレイヤーを非表示にし、印刷用PDFをサイレントに生成するプロフェッショナルなテンプレートです。
Sub ExportPrintPDF_Automated()
Dim doc As Document
Dim lyr As Layer
Dim pdfSettings As StructPDFSettings
Dim expFilter As ExportFilter
Dim outputPath As String
‘ 1. 現在のドキュメントをアクティブにする
Set doc = ActiveDocument
outputPath = “C:\Output\Final_Print.pdf”
‘ 2. レイヤー制御：カットラインを隠し、印刷用を表示する
‘ VBAの最適化：画面更新を止めて高速化
Optimization = True
For Each lyr In doc.ActivePage.Layers
If lyr.Name = “CutLine” Then
lyr.Visible = False ‘ カットラインを消す
Else
lyr.Visible = True ‘ それ以外は表示する
End If
Next lyr
‘ 3. PDF設定の構築
Set pdfSettings = New StructPDFSettings
With pdfSettings
.PublishRange = cdrCurrentPage
.TextExportAsCurves = True ‘ フォントトラブル防止のためアウトライン化
.EmbedFonts = True
.ColorMode = cdrCMYK ‘ 印刷用CMYK指定
End With
‘ 4. PDF出力（サイレント実行）
Set expFilter = doc.ExportEx(outputPath, cdrPDF, , pdfSettings)
expFilter.Finish
‘ 後処理：画面更新を再開
Optimization = False
MsgBox “PDF書き出し完了！” & vbCrLf & outputPath, vbInformation
End Sub
—
3. ここがプロのこだわり：知っておくべき「落とし穴」
初心者がよく陥るエラーと、それを回避する「エンジニアの視点」を伝授します。
① `Optimization = True` の重要性
CorelDRAWはレイヤーを操作するたびに画面を再描画しようとします。レイヤー数が多いと、これだけで数秒のロスになります。`Optimization = True` を宣言することで、処理が終わるまで描画をロックし、爆速で処理を完結させます。
② レイヤー名の「完全一致」は危険
今回のコードは `lyr.Name = “CutLine”` としていますが、現場では「CutLine_v1」「CutLine(最終)」など名前が揺らぐことがあります。その場合は `If InStr(lyr.Name, “CutLine”) > 0 Then` とすることで、「名前にCutLineが含まれるもの」を判定できるようになります。現場の運用に合わせてカスタマイズしてください。
③ `StructPDFSettings` は保存できる
もし特定の印刷会社指定のプリセットがある場合、毎回設定を書く必要はありません。CorelDRAWで一度「PDFスタイル」を保存しておけば、VBAからそれを呼び出すことも可能です。今回は汎用性を重視しましたが、より深く制御したい場合はこの「プリセット読み込み」を調べてみてください。
—
最後に：自動化は「あなたの時間」を買い戻す行為
このスクリプトを使いこなせば、これまで「レイヤー非表示 → PDF書き出し → レイヤー再表示」と繰り返していた単調な作業が、わずか1秒のボタン操作に変わります。
最初は難しく感じるかもしれませんが、CorelDRAWのオブジェクトモデルは非常に論理的です。まずはこのコードをコピーし、自分の環境のレイヤー名に合わせて修正してみてください。「動いた！」という感動こそが、エンジニアへの第一歩です。
何か分からないことや、さらに高度な制御（例えば全ページ一括処理など）に挑戦したくなったら、いつでも聞いてくださいね。応援しています！
