CorelDRAW VBAの深淵：マルチページ・レイヤー抽出の極致とメモリ管理の鉄則
CorelDRAWのVBA環境は、一見すると枯れたレガシーに見えるかもしれない。しかし、複雑なベクターデータを扱う現場において、この「COMインターフェースの集合体」をいかに御するかは、エンジニアの腕の見せ所だ。
特に、数百ページのカタログから特定のレイヤーのみを抽出し、独立したファイルとして吐き出す処理は、単なるループ処理ではない。メモリリークとオブジェクトの生存期間（ライフサイクル）を支配しなければ、CorelDRAWは容易にクラッシュする。
本稿では、シニアエンジニアが現場で直面する「巨大なドキュメントの安全な切り出し」という難題に対する、最適解を提示する。
—
1. 勘所：なぜ「Select」や「Copy/Paste」を避けるべきか
多くの初学者は `ActiveLayer.Copy` や `Paste` を繰り返すが、これはVBAの作法としては三流だ。クリップボードを経由する操作はOS側のリソースを浪費し、処理速度を著しく低下させる。
真のエンジニアは、「オブジェクトの参照を直接操作し、新規ドキュメントへ必要なShapeのみを複製（Clone）する」アプローチをとる。
オブジェクトの明示的解放の重要性
CorelDRAWのVBAは、VBAランタイムとCorelのCOMエンジンが別々のメモリ空間で動いている。`Set obj = Nothing` を怠れば、ガベージコレクションが正しく機能せず、数百回のループでメモリは枯渇する。
—
2. 実装：レイヤー抽出の極限メソッド
以下に、特定のレイヤー名を指定して全ページから抽出・別名保存を行うプロフェッショナル向けの実装を示す。
‘ ———————————————————
‘ @brief 特定レイヤーのみを抽出して別ファイル保存
‘ @param targetLayerName 抽出対象のレイヤー名
‘ @param exportPath 保存先のディレクトリパス
‘ ———————————————————
Public Sub ExtractLayerToNewFiles(targetLayerName As String, exportPath As String)
Dim docSource As Document
Dim docNew As Document
Dim p As Page
Dim lyr As Layer
Dim shp As Shape
Set docSource = ActiveDocument
‘ プロセス中の画面更新を停止してパフォーマンスを最大化
Optimization = True
EventsEnabled = False
On Error GoTo Cleanup
For Each p In docSource.Pages
‘ 抽出対象のレイヤーを取得
Set lyr = p.Layers.Find(targetLayerName)
If Not lyr Is Nothing And lyr.Shapes.Count > 0 Then
‘ 新規ドキュメントを作成
Set docNew = CreateDocument
‘ レイヤー内の全オブジェクトを新規ドキュメントのActiveLayerへコピー
‘ Copy/Pasteではなく、範囲指定または個別クローンを行うのが定石
For Each shp In lyr.Shapes
shp.Copy
docNew.ActiveLayer.Paste
Next shp
‘ ファイル保存（パスと拡張子の結合はFileSystemObjectを推奨）
docNew.SaveAs exportPath & “\Page_” & p.Index & “.cdr”
docNew.Close
‘ 参照の明示的解放
Set docNew = Nothing
End If
Next p
Cleanup:
‘ 異常終了時も必ず設定を戻す
Optimization = False
EventsEnabled = True
If Err.Number <> 0 Then
MsgBox “エラー発生: ” & Err.Description, vbCritical
End If
End Sub
—
3. シニアエンジニアが意識すべき「隠れた地雷」
A. Windows APIによる「重い処理」の視覚化
大量のファイル生成を行う場合、進捗状況が見えないとユーザーはフリーズしたと勘違いする。`UserForm` を活用し、`DoEvents` を適切に配置するか、あるいは `Kernel32.dll` の `Sleep` を用いて、CPU負荷を一時的に解放しつつ、UIのレスポンスを維持せよ。
B. レガシー環境との互換性（Late Binding vs Early Binding）
配布先が不明な環境であれば、あえて Late Binding（CreateObject） を選ぶべきだ。参照設定の欠落によるコンパイルエラーは、社内システム管理者として最も避けたいリスクである。
C. レイヤー構造のフラット化
複雑なグループ化（Group）がレイヤー内にある場合、`shp.Copy` では階層情報が崩れることがある。その場合は、`shp.Duplicate` メソッドを用いて、プロパティを保持したまま座標をコピーする手法に切り替えるのが「CorelDRAWの流儀」だ。
—
結びに代えて
CorelDRAW VBAは、強力な武器であると同時に、手入れを怠れば牙を剥く。今回紹介した「オブジェクトのライフサイクル管理」と「非同期的な最適化処理」は、単なるテクニックではなく、堅牢なシステムを作るための哲学だ。
もし貴殿の現場が、数千ページのカタログを扱うような過酷な環境であれば、VBAからさらに一歩進み、.NET (C#) による VSTA (Visual Studio Tools for Applications) への移行を検討すべきだ。型安全な世界は、VBAの「闇」を確実に浄化してくれる。
妥協なき自動化を。健闘を祈る。
