CorelDRAW VBAを掌握せよ：PDF出力の「属人化」を破壊する動的バッチ書き出し術
こんにちは。CorelDRAWの自動化の世界へようこそ。
「印刷会社A社はPDF/X-1aが必要、でもWeb用のB社は高圧縮のPDF/X-4…毎回設定を変えて書き出すのが面倒でミスも怖い」。そんな悩み、今日で卒業しましょう。
マクロの記録ボタンを押してコードを生成するだけの「初級者」から、CorelDRAWのオブジェクトモデルを自在に操る「エンジニア」へ。今回は、クライアント別のレギュレーションをVBAで完全に制御する、実戦的なバッチ書き出しシステムの構築術を伝授します。
—
1. なぜ「PDF設定の固定化」が必要なのか
CorelDRAWの`PublishToPDF`メソッドは強力ですが、単に呼ぶだけでは「前回保存時の設定」が引き継がれてしまいます。これこそがヒューマンエラーの温床です。
真の自動化エンジニアは、「PDF設定（PDFSettingsオブジェクト）」をコード内で動的に構築することを基本ルールとします。
—
2. PDFプリセットを動的に操る心臓部
以下のコードは、クライアントごとに異なる設定を適用して書き出すための基盤です。まずは構造を理解してください。
Sub ExportPDFByClient(clientName As String)
Dim doc As Document
Dim pdfOptions As PDFSettings
Dim outputPath As String
Set doc = ActiveDocument
Set pdfOptions = CreatePDFSettings() ‘ 設定用オブジェクトを生成
‘ クライアント別レギュレーションの振り分け
Select Case clientName
Case “PrintShop_A”
‘ 印刷会社A向け：PDF/X-1a, CMYK固定
pdfOptions.PDFCompatibility = cdrPDFX1a
pdfOptions.EmbedFonts = True
pdfOptions.ColorMode = cdrPDFCMYK
Case “Web_B”
‘ Web用B社向け：高圧縮, RGB
pdfOptions.PDFCompatibility = cdrPDFVersion17
pdfOptions.ColorMode = cdrPDFRGB
pdfOptions.CompressTextAndLineArt = True
Case Else
MsgBox “未知のクライアントです”
Exit Sub
End Select
‘ 書き出し実行
outputPath = “C:\Output\” & doc.FileName & “_” & clientName & “.pdf”
doc.PublishToPDF outputPath, pdfOptions
MsgBox clientName & ” 用のPDF生成が完了しました！”
End Sub
—
3. ここで差がつく！「陥りやすい罠」と回避策
VBAでPDF出力を実装する際、多くの人がここで挫折します。先輩として、あらかじめ回避策を授けておきます。
① オブジェクトの解放を忘れない
VBAはメモリ管理が甘くなりがちです。`Set pdfOptions = Nothing` を最後に記述する癖をつけましょう。大量のファイルをバッチ処理する際、メモリリークによる強制終了を防ぐ「守り」の技術です。
② パスの存在確認を怠る
`doc.PublishToPDF` は、保存先のフォルダが存在しないと平気でエラーを吐きます。`Dir(フォルダパス, vbDirectory)` を使って、事前にフォルダの有無を確認し、なければ `MkDir` で作成するガード節を必ず入れてください。
③ 色空間（ColorMode）の罠
印刷会社向けに「CMYK」を指定しても、元のドキュメントがRGBモードのままだと意図しない変換がかかります。`doc.ColorMode` を事前にチェックし、必要であれば `doc.ConvertTo` で色空間を強制変換するロジックを組み込むのが「プロ」の流儀です。
—
4. 次のステージへ：システムを拡張するヒント
このコードが動くようになったら、次は「バッチ処理」へ昇華させましょう。
- フォルダ監視: 特定のフォルダに `.cdr` が置かれたら自動でPDF化する（`FileSystemObject`を利用）。
- ログ出力: どの設定で、いつ、誰が書き出したかをテキストファイルに記録する。
- ダイアログによる選択: `UserForm` を作成し、クライアント名をプルダウンから選んで実行ボタンを押すUIにする。
—
最後に：自動化は「愛」です
「毎回同じ設定をカチカチ選ぶ」という作業は、単なる時間の浪費ではありません。その集中力は、本来もっとクリエイティブなデザイン作業に注ぐべきものです。
VBAを学ぶことは、自分自身を退屈な作業から解放する「技術的な愛」を自分に贈ることと同義です。まずは今日、1社分のプリセットをコード化してみてください。それが、あなたの自動化エンジニアとしての最初の一歩になります。
もしコードが動かなかったら、それは「エラー」ではなく「成長へのヒント」です。CorelDRAWのオブジェクトブラウザを片手に、ぜひこの大海原を楽しんでください！
—
この解説が、あなたの開発現場を少しでも「楽」にできれば、エンジニアとしてこれ以上の喜びはありません。質問があればいつでもどうぞ。
