こんにちは！CorelDRAWの自動化の世界へようこそ。
日々、何十ページもある巨大なCDR（CorelDRAW）ファイルと格闘し、手作業でページごとにPDFやPNGとして書き出す……そんな果てしない作業に絶望したことはありませんか？「偶数ページだけ抜き出したい」「特定の章だけを高解像度PNGにしたい」という要求は、実務では日常茶飯事です。
マクロの記録ボタンを押して得られるコードは、ただの「呪文の羅列」にすぎません。それをベースにしても、ページ数が変わった途端に破綻してしまいます。
今回は、CorelDRAW VBAのオブジェクト構造の本質を理解し、「マルチページCDRから指定したページ範囲だけを抜き出し、個別の高解像度PNG/PDFとして爆速で一括出力するプロフェッショナルな自動化フロー」を伝授します。
ここをクリアすれば、あなたのVBAスキルはマクロの記録者から「チーフアーキテクト」へと一気に飛躍します。さあ、一緒に極限の効率化の世界へ踏み出しませんか？
—
なぜ「マクロの記録」ではマルチページ処理に失敗するのか？
CorelDRAWの「マクロの記録」機能は便利ですが、生成されるコードのほとんどは、今画面に映っているアクティブなページ（`ActivePage`）やアクティブな選択オブジェクトに依存しています。
マルチページをプログラムで自在に操るためには、CorelDRAWのドキュメント構造における「階層（Hierarchy）」を正しく理解する必要があります。
[Application (CorelDRAW)]
└─ [Document (アクティブなCDRファイル)]
└─ [Pages (ページコレクション)]
├─ [Page 1]
├─ [Page 2]
└─ [Page N]
ページを操作するということは、この `Pages` コレクションの中から目的のページをピンポイントで指し示し、それを「アクティブ（操作対象）」に切り替えるか、あるいはページオブジェクトそのものに対してエクスポート命令を叩き込む、というアプローチが必要になります。
—
実装：指定ページ範囲を爆速出力するVBAコード
それでは、現場でそのままコピペして使える実用的なVBAコードを公開します。このコードは、指定した「開始ページ」から「終了ページ」までをループし、1ページずつ独立したPNGおよびPDFとして書き出すものです。
Sub ExportSpecificPages()
‘ エラーハンドリングの準備
On Error GoTo ErrorHandler
‘ 画面描画を停止してパフォーマンスを極限まで引き上げる（超重要テクニック）
ActiveDocument.BeginCommandGroup
Optimization = True
EventsEnabled = False
Dim doc As Document
Set doc = ActiveDocument
‘ 念のため、ドキュメントが保存されているかチェック
If doc.Saved = False Then
If MsgBox(“ドキュメントが保存されていません。続行しますか？”, vbYesNo + vbExclamation, “確認”) = vbNo Then
GoTo CleanUp
End If
End If
‘ — 【設定エリア】 —
Dim startPage As Long
Dim endPage As Long
Dim exportPath As String
startPage = 1 ‘ 開始ページ
endPage = 5 ‘ 終了ページ（実際のページ数に合わせて変更してください）
‘ 出力先フォルダ（※あらかじめPC上にフォルダが存在することを確認してください）
exportPath = “C:\Temp\CorelExport\”
‘ ———————-
‘ 念のためのページ数バリデーション
If endPage > doc.Pages.Count Then
endPage = doc.Pages.Count
MsgBox “指定された終了ページが総ページ数を超えているため、最終ページ(” & endPage & “)に変更しました。”, vbInformation
End If
Dim i As Long
Dim targetPage As Page
Dim fileNameBase As String
‘ 指定範囲のページをループ処理
For i = startPage To endPage
‘ 該当ページをアクティブにする
Set targetPage = doc.Pages(i)
targetPage.Activate
‘ ファイル名のベースを作成（ゼロ埋めフォーマット：Page_001.png など）
fileNameBase = exportPath & “Page_” & Format(i, “000”)
‘ 1. 高解像度PNG形式でのエクスポート
Dim expPNG As ExportFilter
Set expPNG = doc.ExportBitmap(fileNameBase & “.png”, cdrPNG, cdrSelection, cdrCurrentPage, 300, 300, 24, cdrNormalCompression, True, False, True, False, cdrNoColorProfile)
expPNG.Finish
‘ 2. PDF形式でのエクスポート（必要に応じてコメントアウトを解除）
‘ Dim expPDF As ExportFilter
‘ Set expPDF = doc.PublishToPDF(fileNameBase & “.pdf”)
‘ ‘ ※PDFの詳細設定を行いたい場合はPDFParamsオブジェクトを事前に構築します
Next i
‘ 処理終了の通知
MsgBox “指定ページのエクスポートが完了しました！”, vbInformation, “完了”
CleanUp:
‘ パフォーマンス設定を元の状態に戻す（絶対に戻し忘れないこと！）
EventsEnabled = True
Optimization = False
ActiveDocument.EndCommandGroup
Exit Sub
ErrorHandler:
MsgBox “予期せぬエラーが発生しました: ” & Err.Description, vbCritical, “エラー”
Resume CleanUp
End Sub
—
コードの核心：プロが仕込んだ3つの技術的ポイント
ただ動くだけのコードと、プロが書いたコードの決定的な違いは、「パフォーマンス」「安全性」「拡張性」への配慮です。今回のコードにおける重要なポイントを解説します。
1. 描画のブラックアウト（Optimization）
CorelDRAW VBAにおいて、ページを切り替える（`targetPage.Activate`）たびに画面が再描画されていると、処理速度が何倍にも低下します。
コード冒頭の `Optimization = True` と `EventsEnabled = False` は、裏側で目に見えないサイレントモードを起動するようなものです。これにより、人間には追いつけないほどの爆速でページ処理が完了します。処理の最後で必ず元に戻す（`False`にする）のが鉄則です。
2. ゼロ埋めフォーマットによるファイル管理
ファイル名に `Format(i, “000”)` を採用しています。これをしないと、`Page_1.png`, `Page_10.png`, `Page_2.png` のようにエクスプローラー上で並び順がめちゃくちゃになってしまいます。ファイル名を綺麗に整えることは、後続の自動化（インデザインへの流し込みや印刷など）において極めて重要です。
3. ExportFilterオブジェクトの正しい寿命管理
`doc.ExportBitmap` メソッドを実行しただけでは、ファイルは完全にディスクに書き込まれません。返り値として得られる `ExportFilter` オブジェクトに対して `.Finish` メソッドを明示的に呼び出すことで、初めてファイルI/Oが完了します。この作法を忘れると、出力されたファイルが破損したり空になったりする原因になります。
—
陥りやすい罠とトラブルシューティング
実際にこのコードを運用する際、初心者が必ずと言っていいほど直面する壁がいくつかあります。
- エラー: 「指定されたパスが見つかりません」
- 原因: VBA側からフォルダを自動生成するコードを入れていない場合、指定した保存先フォルダ（例: `C:\Temp\CorelExport\`）が存在しないとエラーになります。あらかじめフォルダを手動で作成するか、VBAの `MkDir` 関数でディレクトリの存在確認と作成を行うロジックを前段に組み込みましょう。
- ページを切り替えたのに意図しないオブジェクトが書き出される
- 原因: `cdrCurrentPage` ではなく `cdrSelection` を指定している場合、ページ全体ではなく「現在選択されているオブジェクト」だけが切り抜かれてしまいます。ページ全体を出力したい場合は、必ずエクスポートフィルターの引数に注意してください。
—
さらに先へ：偶数ページや特定セクションのみを抜粋するには？
今回の `For i = startPage To endPage` という単純なループを、「ステップ実行」や「条件分岐」に書き換えるだけで、さらに高度な要件に対応できます。
例えば、偶数ページだけを抜き出したい場合は、ループをこのように改造するだけです。
For i = startPage To endPage
‘ i が偶数の場合のみ処理を実行
If i Mod 2 = 0 Then
Set targetPage = doc.Pages(i)
targetPage.Activate
‘ (ここにエクスポート処理を記述)
End If
Next i
どうですか？「CorelDRAW VBAって、意外と論理的で美しいな」と感じていただけたのではないでしょうか。
ここをクリアすれば、CorelDRAWを使ったDTP作業の自動化において、あなたに出来ないことはほとんどありません。ぜひご自身の環境でコードを試し、日々の退屈な手作業をボタン一つで終わらせる爽快感を味わってください。
それでは、次回の高度な自動化解説でお会いしましょう！
