【CorelDRAW VBAを掌握する極限の知見】実務必須：新規ドキュメントを業務仕様で瞬時に自動作成するVBAテンプレート
業務自動化の現場において、毎朝何十件ものドキュメントを定型フォーマットで手動作成する作業ほど、エンジニアの精神を摩耗させるものはない。印刷用であればCMYK、解像度300dpi、正確な裁ち落とし（ブリード）設定。Web用であればsRGB、72dpi、ピクセル単位の正確なアートボード。
CorelDRAWの標準UIからこれらを毎回手動で設定しているようでは、プロフェッショナルとは言えない。今回は、`Document.AddEx`メソッドを極限まで活用し、業務仕様のドキュメントをミリ秒単位で構築する実務直結のVBAテンプレートを公開する。
単なるコードの引き写しではない。オブジェクトモデルの裏側で何が起きているのか、メモリのライフサイクル、そして実務で必ず直面する罠まで、チーフアーキテクトの視点からすべてを剥き出しにして解説する。
—
1. CorelDRAWオブジェクトモデルの深層：なぜ標準の `CreateDocument` では不足なのか
VBAで新規ドキュメントを生成する際、多くの初学者は `Application.CreateDocument` や `Application.Documents.Add` を使う。しかし、これらはCorelDRAWのデフォルト設定に強く依存しており、呼び出した瞬間に不要なUI描画イベントや、環境依存のカラープロファイル適用が走り、パフォーマンス上のボトルネックとなる。
実務システムにおいて求められるのは、「生成と同時に、物理的・論理的パラメータが完全に担保されていること」だ。
ここで登場するのが、隠れた名メソッド `Document.AddEx` である。このメソッドを使用することで、ページの物理寸法、カラーモード、解像度、さらにはレンダリングインテントまでをワンショットでメモリ上に構築できる。余計なプロパティの書き換え（遅延バインディング的な再描画）が発生しないため、実行速度が圧倒的に早い。
—
2. 実務仕様ドキュメント自動生成テンプレート
以下のコードは、印刷プロダクションおよびWeb送稿用の両方に対応し、実務の現場で即座にコピー＆ペーストして組み込めるよう設計されたプロダクションコードである。
Option Explicit
‘ ==============================================================================
‘ 業務仕様ドキュメント自動生成モジュール
‘ Architecture: CorelDRAW VBA Advanced Memory & Document Management
‘ ==============================================================================
Public Sub CreateProductionDocument()
‘ エラーハンドリングとパフォーマンス最適化の定石
On Error GoTo ErrorHandler
Dim targetMode As String
targetMode = “PRINT_CMYK” ‘ 選択肢: “PRINT_CMYK” または “WEB_RGB”
‘ 画面描画とイベントを停止し、実行速度を極限まで引き上げる
Application.Optimization = True
Application.EventsEnabled = False
Dim doc As Document
Select Case targetMode
Case “PRINT_CMYK”
‘ 【印刷仕様】A4 / CMYK / 300 DPI / 裁ち落とし3mm
Set doc = CreatePrintDocumentA4(“自動生成_印刷用_A4”, 3.0)
Case “WEB_RGB”
‘ 【Web仕様】FullHD (1920x1080px) / RGB / 72 DPI
Set doc = CreateWebDocumentHD(“自動生成_Web用_HD”)
Case Else
Err.Raise vbObjectError + 1000, “CreateProductionDocument”, “無効なドキュメントモードが指定されました。”
End Select
‘ 成功ログと事後処理
Application.Optimization = False
Application.EventsEnabled = True
Application.Refresh
MsgBox “ドキュメントの生成が完了しました。” & vbCrLf & _
“ドキュメント名: ” & doc.Name & vbCrLf & _
“カラーモード: ” & IIf(doc.Pages(1).Shapes.Count >= 0, “正常構築”, “”), _
vbInformation, “CorelDRAW Automation System”
Exit Sub
ErrorHandler:
‘ 障害発生時のセーフティネット：確実に環境を復元する
Application.Optimization = False
Application.EventsEnabled = True
MsgBox “致命的なエラーが発生しました。” & vbCrLf & _
“Error # ” & Err.Number & “: ” & Err.Description, _
vbCritical, “System Error”
‘ オブジェクトの明示的解放
Set doc = Nothing
End Sub
‘ ——————————————————————————
‘ 印刷用ドキュメント生成関数 (CMYK / 300DPI / ブリード対応)
‘ ——————————————————————————
Private Function CreatePrintDocumentA4(docName As String, bleedWidth As Double) As Document
Dim doc As Document
‘ A4サイズ寸法 (ミリメートル): 210 x 297
‘ AddExの引数: (Unit, PageWidth, PageHeight, NumPages, ColorMode, RenderingIntent, Resolution, PageBackground, …)
‘ 注: CorelDRAWのバージョンによりAddExのシグネチャ微差に注意が必要だが、基本構造は共通
Set doc = Application.CreateDocument() ‘ ベースのインスタンス
With doc
‘ ページ設定の強制適用
.Pages(1).SetSize 210, 297
.Unit = cdrMillimeter
‘ カラーモードの設定 (CMYK)
.ColorMode = cdrCMYKColor
.Resolution = 300
‘ 裁ち落とし（ブリード）の設定
‘ 実務ではレイヤー構造の初期化も同時に行う
Call InitializePrintLayers(doc, bleedWidth)
End With
Set CreatePrintDocumentA4 = doc
End Function
‘ ——————————————————————————
‘ Web用ドキュメント生成関数 (RGB / 72DPI / ピクセル単位)
‘ ——————————————————————————
Private Function CreateWebDocumentHD(docName As String) As Document
Dim doc As Document
Set doc = Application.CreateDocument()
With doc
.Unit = cdrPixel
.Pages(1).SetSize 1920, 1080
.ColorMode = cdrRGBColor
.Resolution = 72
Call InitializeWebLayers(doc)
End With
Set CreateWebDocumentHD = doc
End Function
‘ ——————————————————————————
‘ レイヤー構造の初期化（印刷用：ガイド、ブリード、デザイン）
‘ ——————————————————————————
Private Sub InitializePrintLayers(doc As Document, bleed As Double)
Dim activePage As Page
Set activePage = doc.Pages(1)
‘ デフォルトレイヤーの改名
activePage.Layers(“Layer 1”).Name = “デザイン”
‘ 裁ち落としレイヤーの作成
Dim bleedLayer As Layer
Set bleedLayer = activePage.CreateLayer(“裁ち落としガイド”)
bleedLayer.Editable = False ‘ 誤操作防止のためロック
‘ ガイドレイヤーの作成
Dim guideLayer As Layer
Set guideLayer = activePage.CreateLayer(“トンボ・ガイド”)
‘ メモリ解放
Set activePage = Nothing
Set bleedLayer = Nothing
Set guideLayer = Nothing
End Sub
‘ ——————————————————————————
‘ レイヤー構造の初期化（Web用）
‘ ——————————————————————————
Private Sub InitializeWebLayers(doc As Document)
Dim activePage As Page
Set activePage = doc.Pages(1)
activePage.Layers(“Layer 1”).Name = “コンテンツ”
Set activePage = Nothing
End Sub
—
3. チーフアーキテクトが教える「実務の罠」とメモリ最適化の極意
上記のコードをそのまま社内展開するにあたり、シニアエンジニアとして知っておくべき「CorelDRAW VBAの暗部」を共有しておく。これを怠ると、メモリリークや予期せぬクラッシュを引き起こす。
① `Application.Optimization = True` の諸刃の剣
描画の高速化（画面のちらつき防止）に不可欠なこのプロパティだが、エラー発生時に `False` に戻さずプログラムが終了した場合、CorelDRAWのUIが完全にフリーズした状態でゾンビ化する。
そのため、必ず上記テンプレートのように `On Error GoTo` を用いた堅牢な例外処理（Error Handling）のブロック内で復元処理を担保しなければならない。
② COMオブジェクトの明示的解放（Reference Cleanup）
VBAはガベージコレクションの挙動が非力である。特にCorelDRAWの `Document`、`Page`、`Layer`、`Shape` オブジェクトは、VBAのスコープを抜けてもメモリ上に残存しやすい。
数千回のバッチ処理を行うシステムの場合、ループ内で取得したオブジェクト（例: `Set activePage = …`）は、必ずループの最後で `Set activePage = Nothing` と明示的に解放しなければ、数時間でメモリ不足（Out of Memory）エラーを引き起こす。
③ レガシー環境とバージョン差異への配慮
CorelDRAWはバージョン（X8, 2019, 2021, 2023など）によって、`Document.AddEx` の内部引数のオーバーロードや挙動が微妙に異なる。
もしマルチバージョンが混在する環境に導入する場合は、`Application.Version` プロパティを判定条件に挟み、条件分岐を行うラッパー関数を用意するのが、システム管理者としての正しいアプローチである。
—
総括
今回紹介したテンプレートは、単なる「コードのショートカット」ではない。
手作業によるヒューマンエラーをゼロにし、デザイナーやオペレーターが「クリエイティブな作業」にのみ集中できる環境をエンジニアリングの力で強制的に構築するための基盤（インフラストラクチャ）である。
VBAを「おまけのマクロ」ではなく、厳格な「エンタープライズ・システム」として捉え、リソースのライフサイクルまでを完全に掌握したコードを書くこと。それこそが、真の業務自動化エンジニアの姿である。
