CorelDRAW VBAを掌握する極限の知見：ActivePageとPagesコレクションを駆使した全ページサムネイル一括エクスポートの全貌
デザインの現場において、複数ページに及ぶドキュメント（カタログ、プレゼン資料、多頁のチラシなど）の全ページを画像化し、クライアントへの確認用やWEBプレビュー用に書き出す作業ほど、手作業で行うと苦痛なものはない。
「ファイル」＞「エクスポート」をページ数分だけ繰り返す――そんな非効率なルーティンワークに、プロのエンジニアが時間を奪われてはならない。
今回は、CorelDRAW VBAの根幹をなす `ActivePage` と `Pages`コレクション のライフサイクルを完全に掌握し、数分かかる手作業を「1クリック・数秒」へと昇華させる、極限まで堅牢なプロダクションコードを伝授する。
—
1. なぜ「単純なループ処理」では実務で破綻するのか？
多くの初学者は、単にページ数を数えて `ActiveDocument.Pages(i).Activate` を呼び出し、エクスポート処理を回すだけのコードを書く。
しかし、大規模なドキュメントや複雑なベクターパスが入り混じった実務データにおいて、このアプローチはメモリリーク、予期せぬ描画ズレ、そして最悪の場合はCorelDRAW自体のフリーズ（クラッシュ）を引き起こす。
実務で求められる堅牢な設計とは、以下の3点に集約される。
1. 画面描画の完全な抑制 (`ScreenUpdating`)
ページを切り替えるたびにCorelDRAWがプレビューを再描画していたのでは、処理速度が何倍にも跳ね上がる。非表示化してCPUリソースをエクスポートに全振りする。
2. オブジェクトの参照切れ（Context Loss）の回避
`ActivePage` という曖昧なグローバルステートに依存せず、明示的に `Page` オブジェクトを変数に格納して操作する。
3. ファイルパスとI/Oエラーのハンドリング
出力先フォルダの存在確認や、重複ファイル名、使用できない文字（禁則文字）への対策を怠らない。
—
2. アーキテクチャ設計：安全かつ高速なエクスポートロジック
今回のスクリプトの骨子を以下に示す。
- 出力形式: JPEGまたはPNG（汎用性の高いJPEGを採用し、解像度はWEBプレビュー用に最適化）
- ファイル命名規則: `[元のファイル名]_[ページ番号].jpg`
- エラー耐性: 途中で例外が発生しても、画面描画フラグやドキュメントの状態が元に戻るクリーンアップ処理の組み込み
—
3. プロダクションコード例
以下のコードは、エラーハンドリングとパフォーマンスチューニングを極限まで高めた、そのまま現場に投入できる実戦用マクロである。適当な標準モジュールに貼り付けて実行してほしい。
Sub ExportAllPagesAsThumbnails()
‘ =========================================================================
‘ 著作権・ライセンス: 業務自動化プロフェッショナル向けプロダクションコード
‘ 概要: アクティブドキュメントの全ページを高解像度JPEG画像として一括エクスポート
‘ =========================================================================
‘ エラーハンドリングの準備
On Error GoTo ErrorHandler
‘ 1. ドキュメントが開かれているか検証
If Application.Documents.Count = 0 Then
MsgBox “処理対象となるドキュメントが開かれていません。”, vbCritical, “エラー”
Exit Sub
InfoEnd:
End If
Dim doc As Document
Set doc = Application.ActiveDocument
‘ 2. 未保存のドキュメントの場合はパスが取得できないためガード
If doc.FullFileName = “” Then
MsgBox “一度ドキュメントを名前を付けて保存してから実行してください。”, vbExclamation, “警告”
Exit Sub
End If
‘ 3. 出力先ディレクトリの決定（元ファイルと同じ階層に “Thumbnails” フォルダを作成）
Dim fso As Object
Set fso = CreateObject(“Scripting.FileSystemObject”)
Dim parentPath As String
parentPath = fso.GetParentFolderName(doc.FullFileName) & “\Thumbnails”
If Not fso.FolderExists(parentPath) Then
fso.CreateFolder (parentPath)
End If
‘ ファイル名のベースを取得（拡張子を除く）
Dim baseName As String
baseName = fso.GetBaseName(doc.Name)
‘ 4. パフォーマンス最大化のための描画・イベント抑制
EventsEnabled = False
Application.Optimization = True
doc.BeginCommandGroup “全ページサムネイル一括出力”
Dim targetPage As Page
Dim exportFilter As ExportFilter
Dim exportPath As String
Dim i As Long
Dim totalPages As Long
totalPages = doc.Pages.Count
‘ 5. Pagesコレクションを走査するメインループ
For i = 1 To totalPages
Set targetPage = doc.Pages(i)
‘ ページをアクティブにする（CorelDRAWのエクスポート仕様上、対象ページをアクティブ化するのが最も確実）
targetPage.Activate
‘ 出力パスの構築 (例: C:\Data\Thumbnails\MyDesign_p1.jpg)
exportPath = parentPath & “\” & baseName & “_p” & Format(i, “000”) & “.jpg”
‘ 選択範囲ではなく、ページ全体（Page全体）を対象にJPEGエクスポート
‘ 引数: ファイルパス, フィルター(cdrJPEG), 範囲(cdrCurrentPage), フィルタオプション
Set exportFilter = doc.ExportBitmap(exportPath, cdrJPEG, cdrCurrentPage, cdrRGBColor, 300, 300, 72, 72, cdrAntiAliasingNormal)
With exportFilter
.Compression = 15 ‘ 圧縮率（品質保持）
.Finish
End With
Next i
‘ 6. 正常終了時のクリーンアップ
doc.EndCommandGroup
Application.Optimization = False
EventsEnabled = True
ActiveWindow.Refresh
‘ 完了通知
MsgBox “全ページのサムネイル出力が完了しました！” & vbCrLf & _
“保存先: ” & parentPath, vbInformation, “処理成功”
Exit Sub
ErrorHandler:
‘ 異常終了時の安全な復旧処理
On Error Resume Next
doc.EndCommandGroup
Application.Optimization = False
EventsEnabled = True
ActiveWindow.Refresh
MsgBox “予期せぬエラーが発生しました。” & vbCrLf & _
“エラー番号: ” & Err.Number & vbCrLf & _
“内容: ” & Err.Description, vbCritical, “致命的なエラー”
End Sub
—
4. コードの急所：エンジニアが押さえるべき実装のポイント
Ⅰ. `Application.Optimization = True` の魔力
CorelDRAW VBAにおいて、画面の再描画やUIの更新はパフォーマンスを著しく低下させる最大のボトルネックだ。
`Optimization = True` を宣言することで、バックグラウンドでの描画処理を完全に凍結し、CPUパワーをファイル生成と描画エンジンに集中させることができる。処理速度が体感で3倍以上変わるため、重いデータを扱うバッチ処理では必須のイディオムである。
Ⅱ. `CommandGroup` によるトランザクション管理
`doc.BeginCommandGroup` と `doc.EndCommandGroup` で囲むことにより、一連のページ切り替えとエクスポート処理を「1つの操作」としてCorelDRAWの歴史（アンドゥスタック）に記録させることができる。
これにより、マクロ実行後に「Ctrl+Z」を1回押すだけで元のドキュメント状態へ完璧にロールバックが可能になる（※ファイル出力自体は消えませんが、ドキュメント側の選択状態や予期せぬ変更を保護します）。
Ⅲ. エラーハンドリングにおける「状態の復元」
もしループの途中でメモリ不足やディスク容量不足などの例外が発生した場合、`Optimization = True` や `EventsEnabled = False` が解除されないままになると、CorelDRAWが操作を受け付けない「ゾンビ状態」に陥る。
それを防ぐため、`ErrorHandler` ラベル内でも必ず最適化フラグを解除する防御的プログラミングを徹底している。
—
5. さらなる高みへ：データベースやクラウドストレージ連携の展望
このスクリプトを単なる「ローカルフォルダへの画像出力」で終わらせるのはもったいない。
FileSystemObjectで生成したファイル群のパスをそのまま配列に格納し、以下の拡張へとシームレスに繋げることが可能だ。
- Web API連携: 生成されたJPEGのバイナリ、あるいはパスを社内CMSやAWS S3等のクラウドストレージへ自動アップロード。
- Excel / Access連携: 進捗状況をログとしてデータベースに書き込み、進捗バー（Progress Bar）付きの統合管理ツールへと昇華させる。
CorelDRAW VBAの限界を決めつけているうちは、手作業の呪縛から逃れることはできない。オブジェクトモデルの本質を理解し、堅牢なコードを組み上げることで、あなたのデザインワークフローは完全に自動化される。
今すぐこのコードを導入し、無駄な反復作業から解放された真のクリエイティブ・タイムを手に入れてほしい。
