【テクニカル・上級編】【上級プロ向け】プレビュー画像自動生成エンジン！CDRファイルのサムネイルを高速に抽出しDB化するマクロ – CorelDRAW VBA解析バイブル

序文：計算資源への畏敬を忘れた実装を排す

現場の最前線で数多のレガシーシステムを看取ってきた者として、一つ断言しよう。
「サムネイルを生成するために、CorelDRAWで500MBのCDRファイルを開く」という実装は、エンジニアリングに対する冒涜である。

CorelDRAWのオブジェクトモデル（VBA）は強力だが、`Application.OpenDocument` を呼び出した瞬間に発生するオーバーヘッド――フォントの置換チェック、カラープロファイルの読み込み、数万のベクターオブジェクトの再構築――は、数千ファイル規模の資産管理システムにおいては致命的なボトルネックとなる。

真のプロフェッショナルは、「CorelDRAW本体を（GUIとして）起動させず、バイナリの構造を直接突き、最小限のコストで目的の情報を掠め取る」。

本稿では、CDRファイルが内部に抱える「プレビュー画像」のバイナリ構造を紐解き、Windows APIとShellインターフェースを駆使して、CorelDRAWを介さずに高速にサムネイルを抽出・DB化する、極限の自動化エンジンについて解説する。

—

1. CDRファイルの正体：ZIPアーカイブとOLE構造の変遷

まず、対象とするCDRファイルのバージョンを特定せねばならない。ここが設計の分岐点だ。

1. CorelDRAW X4 (v14) 以降: 実体は「ZIP圧縮パッケージ」である。拡張子を`.zip`に変更すれば、`metadata/thumbnails/thumbnail.png` に高解像度なプレビューが格納されていることがわかる。
2. それ以前のレガシー: Microsoftの「OLE2 Structured Storage」形式である。

現代の資産管理システムであれば、X4以降を主眼に置きつつ、レガシーに対してはCorelDRAWのバックグラウンドプロセスを最小限の負荷で利用する「ハイブリッド・アーキテクチャ」を構築するのが正解だ。

—

2. Windows APIとShellを駆使した「非展開抽出」の実装

ZIP解凍ライブラリを導入するのは素人の仕事だ。Windows標準の `Shell32.Folder` インターフェース、あるいは `IShellItemImageFactory` を利用することで、OSのキャッシュ（Thumbnail Cache）を活用しながら、メモリ消費を極限まで抑えた抽出が可能になる。

以下に、X4以降のCDRファイルからプレビュー画像を抜き出す、実戦的なVBAコードを示す。

【実装例】高速サムネイル・エクスラクター

‘ Windows API: ファイルシステムの制御とパス操作
Private Declare PtrSafe Function MakeSureDirectoryPathExists Lib “imagehlp.dll” (ByVal DirPath As String) As Long

”’

Public Sub ExtractCDRThumbnail(ByVal cdrPath As String, ByVal savePath As String)
Dim shellApp As Object
Dim zipFolder As Object
Dim thumbnailFile As Object
Dim tempDir As String
Dim fso As Object

Set fso = CreateObject(“Scripting.FileSystemObject”)

‘ 出力先ディレクトリの確保
If Not fso.FolderExists(fso.GetParentFolderName(savePath)) Then
MakeSureDirectoryPathExists fso.GetParentFolderName(savePath) & “\”
End If

On Error Resume Next
Set shellApp = CreateObject(“Shell.Application”)

‘ CDRをZIPとしてマウント（内部のmetadataフォルダへ直接アクセス）
‘ X4以降のCDRファイル構造: \metadata\thumbnails\thumbnail.png
Set zipFolder = shellApp.Namespace(cdrPath & “\metadata\thumbnails”)

If Not zipFolder Is Nothing Then
Set thumbnailFile = zipFolder.ParseName(“thumbnail.png”)

If Not thumbnailFile Is Nothing Then
‘ テンポラリを介さずCopyHereで抽出
‘ vOptions:=20 (16: Yes to All + 4: No progress dialog)
shellApp.Namespace(fso.GetParentFolderName(savePath)).CopyHere thumbnailFile, 20

‘ ファイル名の正規化（thumbnail.png -> 元ファイル名.png）
If fso.FileExists(savePath) Then fso.DeleteFile savePath
fso.MoveFile fso.GetParentFolderName(savePath) & “\thumbnail.png”, savePath
End If
Else
‘ レガシー形式(v13以前)の場合は、フォールバックとしてCorelDRAW APIを
‘ 最小不可（Invisibleモード）で呼び出すロジックへ分岐させる
ExtractThumbnailLegacy cdrPath, savePath
End If

‘ オブジェクトの明示的解放（メモリリークの徹底排除）
Set thumbnailFile = Nothing
Set zipFolder = Nothing
Set shellApp = Nothing
Set fso = Nothing
End Sub

—

3. レガシー環境への敬意：CorelDRAW APIの最小負荷運用

どうしても古いバージョンのCDRを扱わなければならない場合、CorelDRAWをインスタンス化する。しかし、ここでも「普通に開く」ことはしない。`Application.CreateDocumentFromTemplate` や `OpenDocument` のオプション引数を用い、表示を抑制し、カラーマネジメントをバイパスする。

Private Sub ExtractThumbnailLegacy(ByVal cdrPath As String, ByVal savePath As String)
Dim corelApp As CorelDRAW.Application
Dim doc As CorelDRAW.Document

‘ インスタンスの再利用フラグをチェック（ループ内でのNewは避ける）
Set corelApp = New CorelDRAW.Application

‘ 最適化フラグのセット：描画更新の停止、イベントの抑制
corelApp.Optimization = True
corelApp.EventsEnabled = False

‘ 文書をInvisibleモードで開く（メモリ消費を最小化）
Set doc = corelApp.OpenDocument(cdrPath, Visible:=False)

If Not doc Is Nothing Then
‘ 高品質なPNGとしてエクスポート
‘ フィルタ設定で解像度を資産管理用に最適化(例: 300dpi)
Dim expFilter As ExportFilter
Set expFilter = doc.ExportBitmap(savePath, cdrPNG, cdrCurrentPage, cdrRGBColorImage, 300, 300)
expFilter.Finish

doc.Close
End If

corelApp.Optimization = False
corelApp.EventsEnabled = True
‘ Quitは慎重に。バッチ処理ならループ終了後に一度だけ呼ぶ。
‘ Set corelApp = Nothing
End Sub

—

4. システム間連携：DB化とバイナリデータの流儀

抽出した画像を社内資産管理システム（SQL Server / PostgreSQL等）へ格納する場合、ファイルパスのみを記録するのか、BLOBとしてバイナリを埋め込むのかの決断を迫られる。

数万点規模のベクターアセットを管理するなら、「パス管理 ＋ 高速プレビュー用のBase64エンコード済み文字列」をDBに保持する構成を推奨する。これにより、Webベースの管理画面からCorelDRAWを介さずに、瞬時にブラウザ上でプレビューが可能になる。

アーキテクトの視点：パフォーマンスの要諦

1. Garbage Collectionの代替: VBAは決定論的なデストラクタを持たない。`Set obj = Nothing` をループ内の最も深い場所で書き漏らさないことが、24時間稼働する自動エンジンの安定性を担保する。
2. 排他制御: `Shell.Application` を用いる際、ネットワークドライブ上のCDRに対しては遅延が発生する。`FileSystemObject` で一度ローカルの `%TEMP%` にコピーしてから抽出する方が、結果としてスループットは向上する。
3. エラーハンドリング: 「壊れたCDRバイナリ」は必ず存在する。`On Error Resume Next` で沈黙させるのではなく、エラーログにオフセット値を記録し、後続の処理を止めない堅牢なエラーハンドラを構築せよ。

—

結言：最適化とは「何もしないこと」への探求である

多くの開発者が、便利なライブラリや重厚なAPIを組み合わせて機能を実装しようとする。しかし、真に優れたアーキテクトは、そのファイルの「中身」が単なるZIPであることを知り、OSの基本機能だけでそれを解決する。

CorelDRAW VBAの世界は奥が深いが、VBAの枠に囚われているうちは二流だ。バイナリ構造、Windows API、そしてメモリのライフサイクル。これらを掌握して初めて、大規模な資産を支える「止まらないエンジン」を構築できるのである。

このコードが、貴殿のシステムの静寂なる高速化に寄与することを願う。