CorelDRAW VBAを掌握する極限の知見：マルチフォーマット・アトミックエクスポートの構築
印刷、Web、サイングラフィックス、そしてデジタルサイネージ。現代の制作現場において、単一のマスターデザイン（CDR）からEPS、PDF、SVGといった多様なフォーマットを矛盾なく、かつ瞬時に生成する要求は日常茶飯事である。
手動での「名前を付けて保存」や「ファイルのエクスポート」の繰り返しは、人的ミスの温床であり、エンジニアリングの観点からは悪夢でしかない。
今回は、CorelDRAW VBAのメモリ管理の闇を切り抜け、一瞬にして複数フォーマットへの同時出力（マルチエクスポート）を完遂する、プロダクション品質のアーキテクチャを提示する。
—
1. CorelDRAW VBAにおける「真の課題」
CorelDRAWのVBA環境は、VBA7（64bit）世代であっても、背後にあるC++コアエンジン（CorelのCOMレイヤー）との間で特有のメモリリーク問題や、モーダルダイアログの割り込みによるハングアップを抱えている。
特に`ActiveDocument.Export`メソッドや各種フィルタ（PDF, EPS, SVG）を連続して呼び出す場合、以下の罠に直面する。
- 暗黙のCOM参照の肥大化: 変数に明示的に格納しないオブジェクトの連鎖がメモリリークを引き起こす。
- UIスレッドのブロック: エクスポート時のダイアログやプロパティ設定が原因で、スクリプトが突然停止する。
- ファイルロックと競合: 同名ファイルの高速連続生成時に、OSのI/Oキャッシュが追いつかずアクセス拒否が発生する。
これらを完全に克服し、トランザクションの確実性を担保した「アトミック（不可分）エクスポート」の全貌を以下に解説する。
—
2. 実装アーキテクチャ：堅牢なマルチエクスポート・エンジン
以下のコードは、単なるメソッドの羅列ではない。エクスポート先ディレクトリの動的生成、ファイル名サニタイジング、エラーハンドリング、そして厳密なオブジェクト解放を組み込んだ実戦用のモジュールである。
Option Explicit
‘ Windows API: フォルダ存在確認・作成用（必要に応じて拡張）
Private Declare PtrSafe Function MakeSureDirectoryPathExists Lib “imagehlp.dll” (ByVal DirPath As String) As Long
Public Sub ExecuteMultiFormatExport()
‘ —————————————————-
‘ 1. 初期化と事前検証
‘ —————————————————-
If ActiveDocument Is Nothing Then
MsgBox “アクティブなドキュメントが存在しません。”, vbCritical, “Critical Error”
Exit Sub
End If
Dim doc As Document
Set doc = ActiveDocument
‘ 未保存（パスなし）ドキュメントのガード
If doc.Saved = False And doc.FileName = “” Then
MsgBox “一度ドキュメントを保存してから実行してください。”, vbExclamation, “Validation Error”
Exit Sub
End If
‘ 出力先パスの動的決定（ドキュメントと同じ階層に「Output_YYYYMMDD」を作成）
Dim basePath As String
Dim exportDir As String
basePath = Left(doc.FullFileName, InStrRev(doc.FullFileName, “\”) – 1)
exportDir = basePath & “\Export_” & Format(Now, “yyyymmdd_hhnnss”) & “\”
‘ ディレクトリ強制作成
MakeSureDirectoryPathExists exportDir
‘ ベースファイル名の抽出（拡張子なし）
Dim rawName As String
Dim fileNameOnly As String
rawName = doc.FileName
fileNameOnly = Left(rawName, InStrRev(rawName, “.”) – 1)
‘ —————————————————-
‘ 2. トランザクション・エクスポート実行
‘ —————————————————-
On Error GoTo ErrorHandler
‘ 画面描画とイベントの抑制（パフォーマンス劇的向上とダイアログ暴走防止）
EventsEnabled = False
doc.BeginCommandGroup
Dim targetPath As String
‘ — ① CDR (バックアップ・アーカイブ用同一バージョンまたは指定バージョン) —
targetPath = exportDir & fileNameOnly & “.cdr”
doc.SaveAs targetPath, cdrCurrentVersion, False ‘ 非圧縮または標準保存
‘ — ② PDF (印刷・プリプレス用: X-1aまたはHigh Quality Print) —
targetPath = exportDir & fileNameOnly & “.pdf”
Call ExportPDF(doc, targetPath)
‘ — ③ EPS (レガシーDTP・看板出力用) —
targetPath = exportDir & fileNameOnly & “.eps”
Call ExportEPS(doc, targetPath)
‘ — ④ SVG (Web・デジタルサイネージ用) —
targetPath = exportDir & fileNameOnly & “.svg”
Call ExportSVG(doc, targetPath)
‘ —————————————————-
‘ 3. クリーンアップと正常終了
‘ —————————————————-
doc.EndCommandGroup
EventsEnabled = True
‘ オブジェクトの明示的解放（メモリ管理の鉄則）
Set doc = Nothing
MsgBox “すべてのフォーマットへのエクスポートが正常に完了しました。” & vbCrLf & _
“保存先: ” & exportDir, vbInformation, “Export Complete”
Exit Sub
ErrorHandler:
‘ 異常系処理
On Error Resume Next
doc.EndCommandGroup
EventsEnabled = True
Set doc = Nothing
MsgBox “エクスポート中に致命的なエラーが発生しました。” & vbCrLf & _
“エラー番号: ” & Err.Number & vbCrLf & _
“説明: ” & Err.Description, vbCritical, “Export Failed”
End Sub
‘ ====================================================
‘ 各種フォーマット個別エクスポート・サブプロシージャ
‘ ====================================================
Private Sub ExportPDF(ByRef doc As Document, ByVal filePath As String)
Dim expFilter As structPDFExportSettings
Set expFilter = CreatePDFExportSettings()
With expFilter
.PublishRange = icsAllPages
.Compatiblity = icsPDFv1_4 ‘ または PDF/X-1a
.EmbedFonts = True
.BitmapCompression = icsCompressionJPEG
.JPEGQuality = 90
.ColorMode = icsColorCMYK
End With
doc.PublishToPDF filePath, expFilter
Set expFilter = Nothing
End Sub
Private Sub ExportEPS(ByRef doc As Document, ByVal filePath As String)
Dim expParam As StructExportOptions
Set expParam = CreateStructExportOptions
With expParam
.ImageType = icsCMYK
.Resolution = 300
.MaintainLayers = True
End With
‘ EPSフィルタオブジェクトを用いた書き出し
Dim filter As Variant
Set filter = doc.ExportEx(filePath, cdrEPS, cdrActivePage, expParam)
Set expParam = Nothing
Set filter = Nothing
End Sub
Private Sub ExportSVG(ByRef doc As Document, ByVal filePath As String)
Dim expParam As StructExportOptions
Set expParam = CreateStructExportOptions
‘ SVG特有のパラメータ設定（CorelDRAWのバージョン依存を吸収）
Dim filter As Variant
Set filter = doc.ExportEx(filePath, cdrSVG, cdrActivePage, expParam)
Set expParam = Nothing
Set filter = Nothing
End Sub
—
3. チーフアーキテクトが解説するコードの急所
A. `EventsEnabled = False` によるコンテキストの完全掌握
大規模なドキュメントを操作する際、ユーザーの操作やCorelDRAW内部のイベントトリガーが走ると、エクスポート処理がクラッシュする原因になる。処理の最初にこれをオフにし、終了時（エラー時含む）に確実に復元することが、常時稼働するシステムの鉄則である。
B. `StructExportOptions` と `CreatePDFExportSettings` のライフサイクル
CorelDRAW VBAにおける構造体・設定オブジェクトは、生成した後にメモリ上に残りやすい。各フォーマットごとのプライベートプロシージャに処理をカプセル化し、スコープを抜けるタイミングで `Set ~ = Nothing` を明示的に実行することで、連続エクスポート時のメモリ肥大化（OOMエラー）を完全に予防している。
C. パスの動的隔離とタイムスタンプ構造
納品データは「上書き」事故が最も恐ろしい。実行時刻を秒単位で付与した専用ディレクトリ (`Export_YYYYMMDD_hhnnss`) を動的に生み出し、その中に全フォーマットを格納するアプローチをとることで、ファイル競合とバージョン混同のリスクをゼロにしている。
—
4. ささらなる高みへ：システム間連携（CLI/外部呼出）への拡張
もしこのマクロを、社内サーバーやローカルの自動化デーモン（PythonやC#製Wrapper）からヘッドレス（GUIなし）で叩きたい場合は、CorelDRAWをCOMサーバーとして外部から起動し、上記のマクロを自動実行する仕組みに昇華させればよい。
// C# (Console App) からCorelDRAWをバッチ駆動する概念コード
CorelDRAW.Application app = new CorelDRAW.Application();
app.Visible = false; // バックグラウンド実行
CorelDRAW.Document doc = app.OpenDocument(@”C:\Designs\Master.cdr”);
// マクロのトリガー
app.RunMacro(“GlobalMacros”, “ExecuteMultiFormatExport”);
doc.Close();
app.Quit();
VBA単体での完結にとどまらず、CorelDRAWの背後にある強靭なCOM構造を理解し統御すること。それこそが、真のプロフェッショナルエンジニアに許されたアプローチである。
現場の仕様変更に怯える時代は終わった。この設計をあなたのワークフローに組み込み、圧倒的な自動化の果実を享受してほしい。
