リンク画像の亡霊を葬る：CorelDRAW VBAによる「全アセット自動収集」の極意
現場で最も恐ろしい瞬間、それは「入稿後にリンク切れが発覚する」という悪夢だ。CorelDRAWにおいて、外部参照されたビットマップは、ファイルの実体ではなく「ポインタ」という名の脆弱な記憶に依存している。
本記事では、この不安定な依存関係を物理的な「実体」としてローカルに強制回収する、堅牢なアーキテクチャを提示する。単なるコピーではない。メモリ管理と例外処理の極限を追求した、業務自動化のプロのための実装論だ。
—
1. リンク解析における設計思想：なぜ `ShapeRange` に依存してはならないのか
多くのエンジニアは、アクティブなページやレイヤーを舐めるように走査するが、それでは「マスターレイヤー」や「非表示レイヤー」に隠された地雷を見落とす。
真のアーキテクトは、`ActiveDocument.BitmapReferences` コレクションを直接叩く。これはCorelDRAWの内部管理テーブルを直接参照するため、レイヤー構造の深淵に潜むリンクすら漏らさない。
メモリ最適化の鉄則
VBAのガベージコレクションは非常に遅い。ループ内で `Shape` オブジェクトや `BitmapReference` を生成・破棄し続けると、CorelDRAWのCOMポインタが肥大化し、大規模データではクラッシュを引き起こす。必ず `Set obj = Nothing` をループの最後で明示的に呼び出すこと。 これは教条的な教えではなく、生存戦略である。
—
2. リンク画像一括収集スクリプト
以下に、高負荷環境でも安定稼働する実装を示す。`Scripting.FileSystemObject` を活用し、パスの衝突を回避しつつ安全に回収する設計だ。
Option Explicit
‘ 伝説的な堅牢性を備えた一括収集プロシージャ
Public Sub CollectAllLinkedImages()
Dim doc As Document
Dim bmRef As BitmapReference
Dim fso As Object
Dim targetDir As String
Dim sourcePath As String, fileName As String
Set doc = ActiveDocument
Set fso = CreateObject(“Scripting.FileSystemObject”)
‘ 保存先ディレクトリの指定（デスクトップの “Collected_Assets”）
targetDir = CreateObject(“WScript.Shell”).SpecialFolders(“Desktop”) & “\Collected_Assets\”
If Not fso.FolderExists(targetDir) Then
fso.CreateFolder targetDir
End If
‘ 内部のBitmapReferenceテーブルを走査
‘ これにより、レイヤーの深さを問わず全てのリンクを取得可能
For Each bmRef In doc.BitmapReferences
sourcePath = bmRef.FileName
‘ リンク切れや埋め込み済み(Internal)画像を除外
If fso.FileExists(sourcePath) Then
fileName = fso.GetFileName(sourcePath)
‘ ファイルコピー（上書き許可）
‘ メモリ負荷を抑えるため、バッファリングを意識したFileCopyを使用
On Error Resume Next
fso.CopyFile sourcePath, targetDir & fileName, True
If Err.Number <> 0 Then
Debug.Print “Failed to copy: ” & sourcePath
End If
On Error GoTo 0
End If
‘ 重要：ここでオブジェクトを解放しメモリを解放する
Set bmRef = Nothing
Next bmRef
Set fso = Nothing
MsgBox “アセットの収集が完了しました。”, vbInformation
End Sub
—
3. シニアエンジニアが意識すべき「隠れた仕様」
Windows APIによるファイルパスの制限
Windowsの `MAX_PATH`（260文字）制限は、外部渡しのデータではしばしば壁となる。もし収集先のパスが長大になる場合は、`\\?\` プレフィックスを付与したAPI呼び出し（`CopyFileW`）が必要になる。今回のスクリプトは汎用性を重視したが、大規模プロジェクトではこの「パスの長さ問題」を考慮した設計が必須となる。
埋め込み画像（Embedded）の判定
上記コードでは `fso.FileExists` で外部ファイルのみをフィルタリングしている。CorelDRAWの内部で「埋め込み」に変換された画像は `BitmapReference` の管理外になるケースがある。完全なバックアップが必要な場合は、`Shape.Type = cdrBitmapShape` を全検索するバックアップロジックを併用することを推奨する。
—
4. 総括：レガシーを制御下に置くために
CorelDRAW VBAは、20年以上前のアーキテクチャの上で動いている。そのため、現代的な非同期処理や高速なメモリ管理は期待できない。
しかし、「リソースを明示的に解放する」「OS側のAPIを直接叩く」「ブラックボックス（内部管理テーブル）を直接覗く」 という基本を徹底すれば、CorelDRAWは極めて強力な自動化プラットフォームへと変貌する。
次回のメンテナンス時、あなたが書いたこのコードが「なぜ動くのか」を後任が理解できないほど、シンプルで、かつ強力な設計を維持してほしい。技術とは、複雑なものを単純に動かすためにあるのだから。
