【CorelDRAW VBA極限講座】リンク切れビットマップの自律監査と自動修復アーキテクチャ
CorelDRAWを用いた大規模なDTPワークフロー、あるいはECサイト用の商品画像自動生成パイプラインにおいて、最大のボトルネックとなるのが「外部参照（リンク）されたビットマップのロスト」である。
CDRファイル内部に画像を埋め込む（Embed）のではなく、外部パスとして保持（Link）する設計は、ファイル容量の肥大化を防ぐ上で不可欠な手法だ。しかし、ファイルサーバーの移行、共有フォルダのパス変更、あるいは人為的なファイル移動によって、リンク切れ（Missing Link）は突如として発生する。リンクが切れた状態で高解像度PDFの書き出しやRIP処理を行えば、出力されるのは粗いプレビュー画像か、致命的なエラーによるジョブの停止だ。
今回は、CorelDRAW VBAのオブジェクトモデルの深層に踏込み、ドキュメント内の全外部ビットマップの生存確認、ファイルシステムの低水準APIによる存在検知、そして消失したリソースの自動修復・警告を行う「プロダクション品質の監査・修復エンジン」の全貌を公開する。
—
1. CorelDRAWリンク管理の構造的罠とVBAの限界
CorelDRAWの内部において、外部画像は `Shape` オブジェクトとして存在し、その実態は `Bitmap` または `Link` プロパティ（バージョンにより抽象化層が異なる）を通じて外部ファイルパスを参照している。
ここでシニアエンジニアが直面する最大の壁は、「CorelDRAWの標準オブジェクトモデルは、リンク切れパスに対して異常に寛容である」という点だ。パスが無効であっても、ドキュメントを開いた時点ではプレビューキャッシュが表示されるため、人間が目視で気づくことは極めて困難である。また、VBAから直接ファイルシステムへのアクセスを誤ると、COMの例外処理が機能せず、CorelDRAWごと強制終了（クラッシュ）するリスクを孕んでいる。
この問題を解決するためには、以下の3つのレイヤーを完璧に制御する必要がある。
1. トラバーサル・レイヤー: ドキュメント内の全ページ・全レイヤーから、外部参照を持つシェイプを網羅的に抽出する。
2. バリデーション・レイヤー: Windows APIを活用し、高速かつ確実にファイルの存在有無を判定する。
3. サニテーション・レイヤー: リンク切れを検知した場合、フォールバック戦略（代替パスの探索・再リンク）を実行する。
—
2. 実装コード：自律監査・修復エンジン
以下のコードは、エラーハンドリング、オブジェクトの明示的解放、そしてWindows APIによる高速ファイル存在確認を統合した、実務投入可能なマスターピースである。
Option Explicit
‘ — Windows API Declarations for High-Performance File Existence Check —
If VBA7 Then
Private Declare PtrSafe Function PathFileExists Lib “shlwapi.dll” Alias “PathFileExistsA” (ByVal pszPath As String) As Long
Else
Private Declare Function PathFileExists Lib “shlwapi.dll” Alias “PathFileExistsA” (ByVal pszPath As String) As Long
End If
‘ 監査結果の統計構造体
Private Type AuditStats
TotalLinks As Integer
BrokenLinks As Integer
RepairedLinks As Integer
End Type
Public Sub ExecuteBitmapLinkAudit()
Dim doc As CDR.Document
Set doc = CorelDRAW.ActiveDocument
If doc Is Nothing Then
MsgBox “アクティブなドキュメントが存在しません。”, vbCritical, “監査エンジン異常終了”
Exit Sub
End If
Dim stats As AuditStats
stats.TotalLinks = 0
stats.BrokenLinks = 0
stats.RepairedLinks = 0
Dim startTime As Double
startTime = Timer
‘ 最適化のため画面描画とイベントを抑制
CorelDRAW.Optimization = True
EventsEnabled = False
On Error GoTo ErrorHandler
‘ 再帰的に全シェイプをスキャン
Dim page As CDR.Page
For Each page In doc.Pages
Call ScanShapesRecursive(page.Shapes, stats)
Next page
‘ 処理終了後のクリーンアップと結果報告
CorelDRAW.Optimization = False
EventsEnabled = True
Dim elapsedTime As Double
elapsedTime = Timer – startTime
Dim reportMsg As String
reportMsg = “=== リンク監査完了 ===” & vbCrLf & _
“総スキャン数: ” & stats.TotalLinks & vbCrLf & _
“リンク切れ検出: ” & stats.BrokenLinks & vbCrLf & _
“自動修復成功: ” & stats.RepairedLinks & vbCrLf & _
“処理時間: ” & Format(elapsedTime, “0.00”) & ” 秒”
MsgBox reportMsg, vbInformation, “CorelDRAW リンク監査ツール”
Exit Sub
ErrorHandler:
CorelDRAW.Optimization = True
EventsEnabled = True
MsgBox “予期せぬエラーが発生しました: ” & Err.Description, vbCritical, “致命的エラー”
End Sub
Private Sub ScanShapesRecursive(ByVal shapes As CDR.Shapes, ByRef stats As AuditStats)
Dim sh As CDR.Shape
Dim bmp As CDR.Bitmap
For Each sh In shapes
‘ グループやレイヤーコンテナの場合は再帰処理
If sh.Type = cdrGroupShape Then
Call ScanShapesRecursive(sh.Shapes, stats)
ElseIf sh.Type = cdrLayerShape Then
Call ScanShapesRecursive(sh.Shapes, stats)
ElseIf sh.Type = cdrBitmapShape Then
Set bmp = sh.Bitmap
‘ 外部参照（リンク）されているビットマップか判定
If Not bmp Is Nothing Then
If bmp.IsLinked Then
stats.TotalLinks = stats.TotalLinks + 1
Dim currentPath As String
currentPath = bmp.FileName
‘ Windows APIによる超高速存在確認
If PathFileExists(currentPath) = 0 Then
stats.BrokenLinks = stats.BrokenLinks + 1
‘ 修復試行ロジック
If TryRepairLink(bmp, currentPath) Then
stats.RepairedLinks = stats.RepairedLinks + 1
Else
‘ 修復不能な場合はドキュメント上に警告色を付与（視覚的アラート）
Call MarkBrokenShape(sh)
End If
End If
End If
End If
‘ オブジェクトの明示的解放（メモリリーク防止）
Set bmp = Nothing
End If
Set sh = Nothing
Next sh
End Sub
Private Function TryRepairLink(ByRef bmp As CDR.Bitmap, ByVal originalPath As String) As Boolean
‘ 代替パスの自動探索ロジック（例: 共有サーバーのルート変更に対応）
Dim fileNameOnly As String
fileNameOnly = Mid(originalPath, InStrRev(originalPath, “\”) + 1)
‘ 代替候補ディレクトリ（環境に合わせて変更）
Dim candidateDirs(2) As String
candidateDirs(0) = “D:\SharedImages\202X\”
candidateDirs(1) = “\\nas-server\public\resources\”
candidateDirs(2) = CorelDRAW.ActiveDocument.FilePath & “assets\”
Dim i As Integer
Dim newPath As String
For i = LBound(candidateDirs) To UBound(candidateDirs)
newPath = candidateDirs(i) & fileNameOnly
If PathFileExists(newPath) = 1 Then
‘ パスの再設定とリンク更新
bmp.UpdateLink newPath
TryRepairLink = True
Exit Function
End If
Next i
TryRepairLink = False
End Function
Private Sub MarkBrokenShape(ByRef sh As CDR.Shape)
‘ リンク切れシェイプの周囲に赤色の枠線を配置し、オペレーターに視覚的警告を与える
Dim eff As CDR.Effect
‘ 簡易的に塗りつぶしを変更、あるいはログ出力など実務に応じた処理を記述
sh.Outline.Color.RGBAAssign 255, 0, 0
sh.Outline.Width = 2 ‘ mm
End Sub
—
3. チーフアーキテクトが解説するコードの急所
A. Windows API `PathFileExists` の採用理由
VBA標準の `Dir()` 関数や `FileSystemObject` は、ネットワークパス（UNCパス）に対するアクセス時にタイムアウトを引き起こしやすく、CorelDRAW全体のフリーズを招く。`shlwapi.dll` の `PathFileExists` はOSのネイティブ層で極めて高速にパスの有効性を評価するため、数千枚の画像がリンクされた重厚長大なCDRファイルであっても実用的な速度でスキャンを完遂できる。
B. COMオブジェクトのライフサイクルとメモリ管理
VBAのガベージコレクションは非常にルーズである。特に `For Each` ループ内で `Shape` や `Bitmap` を次々と取得していくと、COM参照カウンタが肥大化し、VBAヒープ領域の断片化（メモリリーク）を引き起こす。
コード内で `Set bmp = Nothing` および `Set sh = Nothing` を明示的に記述しているのは、数千回におよぶオブジェクト生成・破棄のサイクルにおいて、CorelDRAWプロセスがメモリバーストを起こして異常終了するのを防ぐための防衛的プログラミングの極みである。
C. 最適化フラグの挟み込み
`CorelDRAW.Optimization = True` と `EventsEnabled = False` のペアリングは、VBA実行時の画面再描画イベントおよびGUIの割り込みを完全に遮断する。これにより、スクリプト実行速度が最大で10倍以上向上する。ただし、エラー発生時にフラグを戻し忘れるとCorelDRAWが操作を受け付けなくなるため、必ず `On Error GoTo` による例外時復帰経路を担保せねばならない。
—
4. 総括：システム間連携への拡張
この監査スクリプトは、単体のマクロとして機能するだけではない。COMインターフェースを介して、外部のC#アプリケーションやPythonスクリプトから自動実行（ヘッドレスモード）させることで真価を発揮する。
例えば、夜間バッチ処理で社内ストレージ内の全CDRファイルをサイレントオープンし、この監査スクリプトを走らせ、結果をJSON形式でダッシュボードに送信する――そんなCI/CDパイプラインさながらのDTP自動化インフラの根幹を、このコードは担うことができる。
レガシーとモダンが交錯するDTPの現場において、VBAは依然として最強のキッチュ・エンジニアリング・ツールである。その限界を正しく理解し、OSの深層APIと堅牢なオブジェクト管理で武装することで、VBAは単なる「お絵描きマクロ」から「エンタープライズ・オートメーション・エンジン」へと昇華する。
