CorelDRAW VBAを掌握する：ドキュメント正規化の極致
CorelDRAWの自動化において、多くのエンジニアが「なんとなく動く」コードで満足している。だが、それは砂上の楼閣だ。数千点の案件をバッチ処理する際、メモリリークとオブジェクトの不整合は致命的なクラッシュを招く。
本稿では、バラバラな規格のドキュメントを、印刷用フォーマットへ強引かつエレガントにねじ伏せるための「アーキテクチャの要諦」を伝授する。
—
1. 破壊的なドキュメント変更の作法
ページサイズや解像度の変更は、CorelDRAWの内部エンジンにとって負荷が高い。単に`Page.SetSize`を叩くのは素人のやり方だ。真のエンジニアは、「キャンバスの再定義」と「コンテンツの再配置」を切り分けて考える。
特に、解像度（DPI）の変更は、内部のラスタライズ計算を伴うため、不意なメモリ消費を引き起こす。これを制御するために、必ず`Optimization = True`で描画更新を止め、処理後に明示的に解放する。
実装のコアロジック
‘ 伝説的なチーフアーキテクトによる、高速化と安全性を両立した変換プロシージャ
Public Sub NormalizeDocument(width As Double, height As Double, dpi As Long)
‘ 描画更新を停止し、CPUサイクルを計算へ集中させる
Optimization = True
EventsEnabled = False
On Error GoTo Cleanup
Dim doc As Document
Set doc = Application.ActiveDocument
‘ 1. 解像度の変更：メモリリークを防ぐため、一度プロパティをキャッシュする
‘ 解像度変更はドキュメント全体を再計算させるため、他の処理と混ぜてはならない
doc.Resolution = dpi
‘ 2. ページサイズの強制変更
‘ 単位を統一（インチ/ミリ）してから処理を行うのが鉄則
doc.Unit = cdrMillimeter
doc.ActivePage.SetSize width, height
‘ 3. コンテンツのセンタリング（必要に応じて）
Dim layer As Layer
For Each layer In doc.ActivePage.Layers
layer.Shapes.All.AlignToShape cdrAlignHCenter + cdrAlignVCenter, doc.ActivePage.Shapes.All
Next layer
Cleanup:
‘ 明示的なオブジェクト解放とシステム状態の復帰
Set layer = Nothing
Set doc = Nothing
EventsEnabled = True
Optimization = False
ActiveWindow.Refresh
If Err.Number <> 0 Then
MsgBox “クリティカルエラー: ” & Err.Description, vbCritical
End If
End Sub
—
2. Windows APIによるメモリとプロセスの制御
CorelDRAWのVBAは32bit/64bitの境界線上で不安定になることが多い。特に大量のファイルを連続処理する場合、VBAのガベージコレクションを信用してはならない。
`GlobalMemoryStatusEx`などのWindows APIを呼び出し、システムメモリが逼迫している場合は、一度`DoEvents`を挟み、さらには強制的にガベージコレクションを促すために処理の合間で`Application.ProcessMessages`をシミュレートする（VBAでは`DoEvents`がそれに該当するが、さらに深い制御が必要な場合はAPIでメッセージキューをクリアする）。
メモリ最適化の極意
- 変数のスコープを最小化: `Object`型は可能な限り`Set Nothing`で即座に解放する。
- コレクションのキャッシュ: `ActivePage.Shapes`のような重いプロパティをループ内で何度も参照しない。一度配列に格納するか、参照を保持して処理せよ。
—
3. レガシー環境との対話：外部システム連携
社内システムやWeb APIから送られてくるJSONデータをCorelDRAWへ流し込む際、単なるVBAでは限界がある。この場合、私はVB.NETでCOMサーバー（DLL）を作成し、それをVBAから呼び出すアーキテクチャを推奨する。
なぜか？
- 例外処理の強靭化: VBAの`On Error`ではキャッチできないメモリ破壊を、.NET側の`Try-Catch`で防御できる。
- JSON解析の高速化: VBAでJSONパースを行うのは悪夢だ。System.Text.Jsonを積んだ.NETライブラリに任せるべきだ。
‘ VB.NET側（COMインターフェース）の断片 CorelDRAW VBAは、単なるスクリプト言語ではない。それは、デザインという「非構造化データ」を、工業製品のように「構造化」するための外科手術用メスだ。 ページサイズを変更するだけ、解像度を変えるだけ、そんな単純なタスクの中に、エンジニアの美学を込めるべきだ。エラーが起きた時に何が起きたか即座にわかるログ出力、メモリが枯渇する前に自ら休止する知性。それらを備えたコードだけが、現場で生き残り続ける。 次の案件では、単に「動くコード」ではなく、「死なないコード」を書くことに挑戦してほしい。それが、世界最高峰のエンジニアへの第一歩だ。
Public Class CorelBridge
Public Sub ApplyFormat(ByVal doc As Object, ByVal width As Double, ByVal height As Double)
‘ .NETの強力な型安全性で、不正なサイズ指定を事前排除する
If width <= 0 Or height <= 0 Then Throw New ArgumentException("Invalid dimensions")
' CorelDRAWのオブジェクトモデルをCOM経由で操作
doc.ActivePage.SetSize(width, height)
End Sub
End Class
---
結論：自動化は「芸術」である
