CorelDRAW VBAを掌握する極限の知見：リンク画像一括収集とパス切れ完全防止アーキテクチャ
デザイン制作の現場において、外部画像アセットのリンク切れは、入稿直前のトリアージにおける最大のボトルネックの一つである。CDRファイル内に埋め込まれた、あるいは外部参照されているビットマップやベクターリンクのパスを見失った瞬間、システムは停止し、デザイナーの認知負荷は限界に達する。
今回は、CorelDRAWの内部構造（DOM）とWindows OSのファイルシステムを直結させ、ドキュメント内の全リンク画像をスキャン、高解像度なアセットを安全に別フォルダへ一括収集・再配線する、実務直結型のバックアップ自動化エンジンを解説する。
中級者が陥る「メモリリーク」「COMオブジェクトの解放漏れ」「Win32 APIによるファイルI/Oの競合」といった罠を完全に回避し、エンタープライズ環境に耐えうる堅牢なVBAコードを提示する。
—
1. リンク画像処理におけるCorelDRAW VBAの構造的課題
CorelDRAWのVBA環境において、外部アセット（Linked Bitmap）を操作する際、開発者は以下の厳然たる物理法則に向き合わなければならない。
- Shape.LinkedFileNameの罠: リンク画像のパスは `Shape.Bitmap.LinkedFileName` または `Shape.LinkFileName` に格納されているが、ドキュメントの構造やCorelDRAWのバージョン（X7から2024以降まで）によって、参照すべきプロパティの階層が異なる。
- OLE/COMのメモリ管理: ループ処理内でShapeやLayerオブジェクトを安易に生成・破棄すると、VBAの背後にあるCOMラッパーがメモリ上に残存し、CorelDRAWの強制終了（クラッシュ）を引き起こす。
- ファイルシステムの非同期性: 大容量のTIFFやPSDを一括コピーする際、WindowsのファイルI/Oが追いつかずに「ファイルが使用中です」という致命的なエラー（Run-time error ’70’: Permission denied）が発生する。
これらをクリアするためには、「厳格なオブジェクトの明示的解放」「FileSystemObject (FSO) との堅牢な連携」「Win32 APIによる高速なディレクトリ操作」の3つを統合したアーキテクチャが不可欠となる。
—
2. 実装アーキテクチャ：リンク画像一括収集エンジン
以下のコードは、アクティブドキュメント内の全ページ・全レイヤーを再帰的に走査し、外部リンクされている画像アセットを一意のアーカイブフォルダへ収集、さらに必要に応じてリンクパスを相対パス（または新しい絶対パス）へ自動再配線する実務仕様のマクロである。
Option Explicit
‘ Windows API: フォルダ存在確認と高速化のための宣言（必要に応じて拡張）
Private Declare PtrSafe Function MakeSureDirectoryPathExists Lib “imagehlp.dll” (ByVal DirPath As String) As Long
‘ =========================================================================
‘ メインプロシージャ: リンク画像一括収集バックアップ
‘ =================5========================================================
Sub CollectAndBackupLinkedImages()
‘ 1. エラーハンドリングとパフォーマンスの最適化
On Error GoTo ErrorHandler
Dim doc As CDR.Document
Set doc = ActiveDocument
If doc Is Nothing Then
MsgBox “アクティブなドキュメントが存在しません。”, vbCritical, “致命的エラー”
Exit Sub
E
