CorelDRAW VBAを掌握する極限の知見：マルチページCDRからの超高速PNGバッチエクスポート
CorelDRAW VBAの領域において、単なる「マクロの記録」の延長線上にあるコードは、実務の現場では使い物にならない。数千点に及ぶWeb用素材の生成、あるいは厳密なCMS連携を求められるシステム開発において、メモリリーク、描画のフリーズ、そしてファイル名の動的制御の破綻は、エンジニアが真っ直ぐ向き合わなければならない致命的な障壁である。
今回は、マルチペーパーのCDR（CorelDRAW Document）から各ページを抽出し、動的な命名規則に基づいて高解像度PNGとして一括切り出し保存する、プロダクション品質のバッチエクスポート・エンジンを解説する。
—
1. アーキテクチャ設計の要諦：なぜ標準機能や安易なVBAでは破綻するのか？
CorelDRAWのGUI上でのエクスポート操作は、人間が手動で行う分には優れているが、プログラムからこれを制御する場合、「画面の再描画（ScreenUpdating）」と「オブジェクトのライフサイクル管理」を完全に掌握していなければ、あっという間にGDIリソースが枯渇し、CorelDRAWごとプロセスがクラッシュする。
中級者から上級者へのステップアップとして、以下の3点をコードの根底に据える必要がある。
1. サイレント・エクスポートの徹底: `Application.Optimization = True` を活用し、イベントハンドラや画面描画のオーバーヘッドを完全に排除する。
2. ページ・コンテキストの正確なスイッチング: `ActiveDocument.Pages` コレクションを巡回する際、単にアクティブページを切り替えるだけでなく、レイヤーの表示状態やエクスポート範囲（Bounding Box）の整合性をプログラム側で担保する。
3. 安全なファイル名サニタイジング: ユーザーがページ名に付与した不穏当な文字（Windowsのファイルシステムで使用できない `/`, `\`, `:`, “, `?`, `”`, `<`, `>`, `|` など）を正規表現または置換関数で確実に無害化する。
—
2. 実装コード：プロダクション・グレードのPNG一括エクスポート
以下のコードは、エラーハンドリング、パフォーマンス最適化、ファイル名の動的解決を網羅した実用的なVBAモジュールである。
Option Explicit
‘ Windows API: 長いパスや日本語パスを確実に処理するためのディレクトリ存在確認（必要に応じて拡張）
Private Declare PtrSafe Function MakeSureDirectoryPathExists Lib “imagehlp.dll” (ByVal DirPath As String) As Long
Sub ExportAllPagesToWebPNG()
‘ 実行時間を計測するためのタイマー変数
Dim startTime As Double
startTime = Timer
‘ エラーハンドリングの初期化
On Error GoTo ErrorHandler
‘ 1. 最適化フラグのON（描画停止による爆速化）
Application.Optimization = True
Application.EventsEnabled = False
Dim doc As Document
Set doc = ActiveDocument
‘ ドキュメントが保存されているか確認（パスの取得のため）
If doc.Saved = False And doc.FullFileName = “” Then
MsgBox “一度ドキュメントを保存してから実行してください。”, vbCritical, “致命的なエラー”
GoTo CleanUp
End If
‘ 出力先ディレクトリの決定（CDRと同じ階層に “Exported_PNG” フォルダを作成）
Dim outputDir As String
outputDir = GetParentFolder(doc.FullFileName) & “\Exported_PNG\”
‘ ディレクトリが存在しない場合は作成
MakeSureDirectoryPathExists outputDir
Dim p As Page
Dim expFilter As ExportFilter
rysResolution = 300 ‘ 必要に応じて変更（Web用なら72～150、高解像度なら300）
Dim exportOptions As StructExportOptions
Set exportOptions = New StructExportOptions
With exportOptions
.Antialiasing = True
.Transparent = False ‘ 背景を透明にする場合はTrue
.MaintainAspect = True
End With
Dim count As Long
count = 0
‘ 2. 全ページの走査とエクスポート処理
For Each p In doc.Pages
‘ ページをアクティブにする
p.Activate
‘ ページ名を取得し、ファイル名として安全な文字列に変換
Dim safePageName As String
safePageName = SanitizeFileName(p.Name)
‘ 命名規則: [ページ番号]_[ページ名].png
Dim targetFilePath As String
targetFilePath = outputDir & Format(p.Index, “000”) & “_” & safePageName & “.png”
‘ 3. エクスポート実行 (PNGフィルターの呼び出し)
‘ ページ全体（Page Bounding Box）を対象とする
Set expFilter = doc.ExportMS(targetFilePath, cdrPNG, cdrPage, exportOptions)
expFilter.Finish
count = count + 1
Next p
CleanUp:
‘ 4. リソースの確実な解放と環境の復元
Application.EventsEnabled = True
Application.Optimization = False
ActiveDocument.Windows(1).Refresh
Dim elapsedTime As Double
elapsedTime = Timer – startTime
If Err.Number = 0 Then
MsgBox “エクスポートが完了しました。” & vbCrLf & _
“出力先: ” & outputDir & vbCrLf & _
“処理枚数: ” & count & ” ページ” & vbCrLf & _
“処理時間: ” & Format(elapsedTime, “0.00”) & ” 秒”, vbInformation, “完了”
End If
Exit Sub
ErrorHandler:
MsgBox “予期せぬエラーが発生しました: ” & Err.Description, vbCritical, “エラー”
Resume CleanUp
End Sub
‘ — ヘルパー関数群 —
‘ ファイルパスから親ディレクトリのパスを抽出
Private Function GetParentFolder(ByVal fullPath As String) As String
Dim pos As Long
pos = InStrRev(fullPath, “\”)
If pos > 0 Then
GetParentFolder = Left(fullPath, pos – 1)
Else
GetParentFolder = “C:\”
End If
End Function
‘ Windowsのファイル名として不適切な文字を除去・置換する
Private Function SanitizeFileName(ByVal inputName As String) As String
Dim invalidChars As Variant
Dim i As Integer
‘ Windowsファイル名使用禁止文字: \ / : ? ” < > |
invalidChars = Array(“\”, “/”, “:”, “”, “?”, “”””, “<", ">“, “|”, vbCr, vbLf, vbTab)
Dim result As String
result = inputName
For i = LBound(invalidChars) To UBound(invalidChars)
result = Replace(result, invalidChars(i), “_”)
Next i
‘ 前後の空白トリム
SanitizeFileName = Trim(result)
End Function
—
3. チーフアーキテクトが教える「現場の知見」とパフォーマンスチューニング
上記のコードは単に動くだけではない。大規模な自動化パイプラインに組み込むことを前提とした、いくつかの高度な配慮がなされている。
A. `Application.Optimization = True` の魔力と罠
このプロパティを `True` にすると、CorelDRAWは画面の再描画やUIの更新を一切停止する。これにより、ページ切り替えやエクスポート処理が最大で数倍〜十数倍高速化する。
ただし、例外発生時にこのフラグが `True` のまま残留すると、ユーザーの画面がフリーズしたような状態になり、極めて危険である。そのため、上記コードのように必ず `On Error GoTo` を用いたクリーンアップブロック（`CleanUp:`）を構築し、いかなる状況でも環境が復元されるよう担保しなければならない。
B. `ExportMS` と `StructExportOptions` の選定
旧来のVBAコードでは `doc.Export` メソッドが多用されてきたが、モダンなCorelDRAW（X8以降、および20xxシリーズ）では、非同期処理や詳細なオプション制御が可能な `ExportMS` メソッドと `StructExportOptions` の組み合わせがベストプラクティスである。
特にWeb用素材の切り出しにおいて、アンチエイリアスのON/OFFやカラープロファイルの維持は、生成されるPNGの品質を左右する。引数をハードコーディングせず、構造体オブジェクト経由で渡すことで、将来的な仕様変更への耐性も高めている。
C. 大規模マルチページドキュメントにおけるメモリ管理
ページ数が500を超えるようなドキュメントを処理する場合、VBAのガベージコレクションだけではメモリが追い付かないことがある。ループ内で `Set expFilter = Nothing` のようにオブジェクト変数を明示的に破棄し、VBAのヒープ領域をクリーンに保つ意識が、システム管理者としての最低限の美学である。
—
終わりに：自動化のその先へ
このスクリプト単体でも強力なツールとなるが、これをさらに発展させれば、ファイル監視システム（FileSystemWatcher）やコマンドライン経由のバッチ実行と組み合わせることで、デザイナーがCDRを保存した瞬間に、裏側でWeb用素材が自動生成され、CDNやCMSのストレージに同期されるような完全無人のアセット・パイプラインを構築できる。
レガシーとモダンが交錯するCorelDRAW VBAの世界において、コードの美しさと堅牢性は直結している。ぜひ、あなたの開発環境にこの知見を組み込み、限界を超えた自動化を実現してほしい。
