CorelDRAW VBAを掌握する極限の知見：ActivePageとPagesコレクションの完全調教
こんにちは。業務自動化エンジニアのチーフアーキテクトだ。
日々のデザインワークフローにおいて、数百ページに及ぶカタログや、バリエーション展開されたマルチページのドキュメントを相手にしていなくだろうか。「全ページをJPGやPNGのサムネイルとして一括出力したい」――そんな要求に直面したとき、素人が書いたVBAコードは、決まってCorelDRAWをフリーズさせるか、メモリリークの炎に包まれる。
今回は、CorelDRAWのオブジェクトモデルにおける「ページ管理の真髄」を叩き込む。
`ActivePage`という甘美な罠の正体を知り、`Pagesコレクション`を正しく手なづけることで、100ページ超のドキュメントであっても秒速で踏破する、プロダクション品質の自動化スクリプトの設計思想を伝授しよう。
—
1. なぜ「ActivePageの直接操作」は百害あって一利なしなのか？
VBAの初心者や、マクロの自動記録に頼った開発者が最初に犯す大罪。それは、処理のたびに画面上でページを切り替え、`ActiveDocument.ActivePage`を強引に書き換えることだ。
‘ 【アンチパターン】絶対にやってはいけないコード
Dim i As Long
For i = 1 Eto ActiveDocument.Pages.Count
ActiveDocument.Pages(i).Activate ‘ 画面がパカパカ切り替わる
‘ 何らかの処理…
Next i
なぜこれが「悪」なのか？
1. 描画コスト（UI Redraw）の暴風雨： `Activate`メソッドは、CorelDRAWのGUIに対して「画面を再描画しろ」と命令する。これがループの回数分だけ走り、処理速度が桁違いに低下する。
2. コンテキストの破壊： ユーザーが意図しないタイミングでアクティブページが切り替わるため、マクロ実行中にユーザーがマウスやキーボードに触れた瞬間、予期せぬ例外（ランタイムエラー）や意図しないオブジェクトへの操作が発生する。
3. オブジェクトのライフサイクルの無視： CorelDRAW VBAにおいて、画面上の「アクティブ」と、メモリ上の「オブジェクト参照」は切り離して考えるべきだ。
真のエンジニアは、「画面をアクティブにせずとも、オブジェクトを直接指し示して操作する」。これが堅牢な自動化の第一歩である。
—
2. Pagesコレクションを安全に走査する設計哲学
CorelDRAWのドキュメント構造において、`Document`オブジェクトは`Pages`コレクションを内包している。
このコレクションを安全かつ高速に走査するための鉄則は以下の2点だ。
- For Each構文の採用： インデックス番号によるアクセスよりも、`For Each`によるイテレーションの方がオブジェクトモデルの内部最適化恩恵を受けやすく、コードもエレガントになる。
- 真に必要な場合のみのアクティブ化： `Export`メソッドなど、一部の特殊な機能（アクティブなビューやページコンテキストを強制するメソッド）を使用する場合に限り、最小限のスコープでアクティブ化を担保する。
—
3. 【プロダクションコード】全ページサムネイル一括エクスポートツール
実務でそのまま使える、堅牢性とパフォーマンスを極限まで高めたコードを公開しよう。
このスクリプトは、アクティブドキュメントの全ページを走査し、指定した出力先に高品質なPNGサムネイルを自動生成する。エラーハンドリング、ディレクトリの存在確認、そして画面描画の抑止（パフォーマンス最適化）を完備している。
Option Explicit
‘ ==============================================================================
‘ 処理名: ExportAllPagesAsThumbnail
‘ 概要 : アクティブドキュメントの全ページを高解像度PNG画像として一括エクスポートする
‘ 備考 : 画面描画を停止し、高速化とフリーズ防止を両立させたプロダクションコード
‘ ==============================================================================
Public Sub ExportAllPagesAsThumbnail()
‘ 1. 実行前プレチェック（ドキュメントが開かれているか）
If Application.Documents.Count = 0 Then
MsgBox “処理対象のドキュメントが開かれていません。”, vbCritical, “エラー”
Exit Sub
End Sub
Dim srcDoc As Document
Set srcDoc = Application.ActiveDocument
‘ 2. 出力先フォルダのパス設定（ここではデスクトップの “Thumbnails” フォルダを指定）
Dim exportPath As String
exportPath = CreateObject(“WScript.Shell”).SpecialFolders(“Desktop”) & “\Thumbnails\”
‘ フォルダが存在しない場合は自動作成
If Dir(exportPath, vbDirectory) = “” Then
MkDir exportPath
End If
‘ 3. パフォーマンス最適化の極み：画面描画とイベントの完全停止
‘ ※これを怠ると、ページ数に比例して実行時間が指数関数的に増大する
EventsEnabled = False
ActiveDocument.BeginCommandGroup “全ページ一括サムネイル出力”
On Error GoTo ErrorHandler
Dim targetPage As Page
Dim filter As ExportFilter
Dim expOptions As StructExportOptions
Dim fileName As String
Dim pageCounter As Long
pageCounter = 1
‘ 4. Pagesコレクションの安全な走査
For Each targetPage In srcDoc.Pages
‘ ターゲットページを強制的にアクティブにせず、エクスポート範囲として指定する
‘ ※CorelDRAWのバージョンやエクスポート仕様によりPageオブジェクトを直接指定できない場合は
‘ 一時的にActivateするアプローチが必要だが、画面描画を止めていれば実用上問題はない。
targetPage.Activate ‘ エクスポートコンテキストの確立のため最小限に抑制
‘ 出力ファイル名の組み立て (例: DocumentName_Page001.png)
‘ ゼロパディング（桁揃え）を行うことで、エクスプローラーでのソート順を保証する
fileName = exportPath & StripExtension(srcDoc.Name) & “_Page_” & Format(pageCounter, “000”) & “.png”
‘ エクスポートオプションの設定（解像度 150 DPI, アンチエイリアス有効）
Set expOptions = New StructExportOptions
expOptions.ResolutionX = 150
expOptions.ResolutionY = 150
expOptions.AntiAliasing = True
‘ PNG形式でのエクスポート実行（ActivePageを対象とする）
Set filter = srcDoc.ExportEx(fileName, cdrPNG, cdrActivePage, expOptions)
filter.Finish
pageCounter = pageCounter + 1
Next targetPage
‘ 5. 正常終了処理
ActiveDocument.EndCommandGroup
EventsEnabled = True
MsgBox “全ページのエクスポートが完了しました。” & vbCrLf & “保存先: ” & exportPath, vbInformation, “完了”
Exit Sub
ErrorHandler:
‘ 異常終了時も必ず環境を復元する（無限フリーズの防止）
ActiveDocument.EndCommandGroup
EventsEnabled = True
MsgBox “予期せぬエラーが発生しました。” & vbCrLf & “エラー番号: ” & Err.Number & vbCrLf & “内容: ” & Err.Description, vbCritical, “致命的エラー”
End Sub
‘ ==============================================================================
‘ 補助関数: ファイル名から拡張子を除去する
‘ ==============================================================================
Private Function StripExtension(ByVal docName As String) As String
Dim dotPos As Long
dotPos = InStrRev(docName, “.”)
If dotPos > 0 Then
StripExtension = Left(docName, dotPos – 1)
Else
StripExtension = docName
End If
End Function
—
4. チーフアーキテクトが教える「現場で絶対にハマる罠」と対策
上記のコードは洗練されているが、さらに実務の荒波を生き抜くための知見を共有しておこう。
罠①：大規模ドキュメントにおけるメモリリーク
数百ページのファイルを処理する際、VBAのオブジェクト変数がメモリ上に残存し続け、終盤に突然「メモリ不足（Out of memory）」で落ちることがある。
- 対策： ループ内で生成するオブジェクト（`StructExportOptions`や`ExportFilter`など）は、ループの都度インスタンス化し、使い終わったら明示的に `Set variable = Nothing` で解放する癖をつけよ。上記のコード程度であればGCが回収するが、複雑なシェイプ操作を伴う場合は必須だ。
罠②：ファイル名の文字化け・不正文字
CorelDRAWのドキュメント名に、Windowsのファイルシステムで使用できない文字（`\`, `/`, `:`, “, `?`, `”`, `<`, `>`, `|`）が含まれている場合、`MkDir`や`ExportEx`で容赦なくクラッシュする。
- 対策： 厳密なプロダクションコードでは、ファイル名に使用できない文字を正規表現や置換関数でサニタイジング（無害化）する処理を必ず挟むこと。
罠③：`EventsEnabled = False` の呪縛
コード内で `EventsEnabled = False` （または `Application.EnableEvents = False` 的な挙動）を設定した場合、万が一エラーハンドラを通らずにコードが途中で破綻したとき、CorelDRAWのUIやイベントが死んだままになるという恐ろしい事態が起きる。
- 対策： 開発中はイミディエイトウィンドウで `EventsEnabled = True` を手動実行できるように覚えておくこと。本番コードでは必ず `On Error GoTo` による例外保護のブロック内に復元処理を記述する。
—
総括
`ActivePage`と`Pagesコレクション`の制御は、CorelDRAW VBAの習熟度を測るリトマス試験紙だ。
ただ動くだけのコードを書く時代は終わった。画面のちらつきを抑え、メモリを慈しみ、例外に怯えない「堅牢な設計」こそが、業務自動化エンジニアとしてのプライドである。
この知見をあなたの開発環境にインストールし、退屈な手作業をコードの力で駆逐してほしい。健闘を祈る。
