CorelDRAW VBAを掌握する：マクロの記録という「まやかし」を捨て、真のオブジェクト階層へ
CorelDRAWの「マクロの記録」機能。初心者が最初に触れるこの機能は、学習の入り口であると同時に、脱却すべき最大の足枷でもある。
自動生成されたコードは、冗長なプロパティの列挙と、不必要な`ActiveLayer`への依存に満ちている。これらは、小規模なスクリプトなら動くが、数千のオブジェクトを扱う自動化タスクでは、メモリリークとパフォーマンス低下の元凶となる。
本稿では、レガシーを蹂躙し、CorelDRAWの内部構造を掌握するための最適化手法を伝授する。
—
1. 「マクロの記録」から読み解くべき真実
マクロを記録して出力されたコードを見ると、多くの者が`ActiveDocument`や`ActiveLayer`を乱用する。これらは極めて直感的だが、エンジニアの視点から言えば「コンテキスト依存の副作用」の塊だ。
‘ 記録されたコードの典型的な悪癖
Sub BadCode()
ActiveLayer.CreateRectangle 0, 0, 5, 5
ActiveLayer.Shapes.All.Fill.ApplyUniformFill CreateRGBColor(255, 0, 0)
End Sub
このコードは、現在の選択状態に依存する。もしユーザーが意図しないレイヤーを選択していれば、処理は破綻する。真のアーキテクトは、オブジェクトを「参照」として保持し、名前空間を明示する。
—
2. オブジェクト階層の完全理解とメモリ管理
CorelDRAWのVBAにおいて、メモリリークは「オブジェクトの解放忘れ」よりも「参照の保持しすぎ」によって引き起こされる。特にCOM経由のオブジェクトは、スコープを抜けてもメモリ上のポインタが即座に解放されないケースがある。
推奨される設計パターン
`Document`を明示的に変数に格納し、必要な操作をそのインスタンス経由で行うことが、安定した自動化の第一歩だ。
‘ 最適化された新規作成スクリプト
Sub CreateOptimizedShape()
Dim doc As Document
Dim layer As Layer
Dim rect As Shape
‘ Application直下のDocumentインスタンスを明示的に取得
Set doc = Application.CreateDocument
‘ レイヤーの参照を固定（ActiveLayerへの依存を回避）
Set layer = doc.ActiveLayer
‘ オブジェクトの作成と参照の保持
Set rect = layer.CreateRectangle(0, 0, 100, 100)
‘ プロパティの更新は極力一括で行う
With rect
.Fill.ApplyUniformFill CreateRGBColor(0, 128, 255)
.Outline.SetProperties 2, , CreateRGBColor(0, 0, 0)
End With
‘ 明示的なメモリ解放（VBAの作法）
Set rect = Nothing
Set layer = Nothing
Set doc = Nothing
End Sub
—
3. フォーマット変換における「落とし穴」
外部システムとの連携において、PDFやEPSへの書き出しは頻出する。ここで重要なのは、`Export`メソッドの引数に渡す設定（`ExportFilter`）の最適化だ。
シニアエンジニアの知見：
デフォルトのダイアログを表示させることは、自動化の観点から最大の悪手である。`StructExportOptions`を用いて、全ての設定をコード内で完結させろ。
Public Sub ExportToPDF_Silent(docPath As String, outputPath As String)
Dim doc As Document
Dim expOptions As StructExportOptions
Dim pdfFilter As ExportFilter
Set doc = Application.OpenDocument(docPath)
‘ ExportOptionsの設定を構築
Set expOptions = New StructExportOptions
expOptions.AntiAliasingType = cdrNormalAntiAliasing
‘ フィルターを直接指定し、ユーザー介入を排除
Set pdfFilter = doc.ExportEx(outputPath, cdrPDF, cdrCurrentPage, expOptions)
With pdfFilter
.BeginExport
.FinishExport
End With
doc.Close
‘ 明示的解放
Set pdfFilter = Nothing
Set expOptions = Nothing
Set doc = Nothing
End Sub
—
4. 極限環境のためのヒント：Windows API連携
CorelDRAWのVBAだけでは力不足な場面（OSレベルのファイル監視や高度なマルチスレッド制御）では、`Declare PtrSafe`を使用してWindows APIを叩く。
ただし、CorelDRAWはシングルスレッドモデルであるという事実を忘れてはならない。VB.NET等の外部アプリケーションと連携する場合は、COMオートメーションを介した「疎結合」な設計を心がけろ。`.NET`側から`CorelDRAW.Application`を起動し、タスクキューを管理するのが、レガシーシステムを延命させるための唯一の回答だ。
最後に
VBAは「書き捨て」のツールではない。正しく設計されたオブジェクト階層は、どんなに巨大なプロジェクトであっても、あなたの生産性を守る盾となる。
「マクロの記録」はあくまでチュートリアルだ。今日から、`Active`という接頭辞を捨て、インスタンスを自ら制御するエンジニアたれ。それが、CorelDRAWの奥底に潜む真のパワーを解き放つ唯一の方法である。
