CorelDRAWの「腐敗」を断つ：肥大化したCDRファイルを極限までスリム化するアーキテクチャ
CorelDRAWを長年運用していると、避けて通れないのが「ファイルの肥大化」だ。特にデザインの流用を繰り返したデータは、目に見えない未使用のスタイル、残骸となったカスタムパレット、さらには削除されたはずのオブジェクトの残滓がXML構造内に堆積し、パフォーマンスを著しく低下させる。
これは単なる容量の問題ではない。メモリリークのリスクを孕み、ファイル破損（Corruption）の導火線となる「技術的負債」そのものだ。
今日は、CorelDRAWの内部構造を熟知した者だけが辿り着ける、徹底的なクレンジング手法を伝授する。
—
1. なぜ「手動削除」では不十分なのか
CorelDRAWのUI上でパレットを削除しても、内部の`Document.Palette`コレクションや、スタイルシート内の不要な定義は、完全には開放されない場合がある。特に旧バージョンからのコンバージョンを繰り返したファイルは、VBAによる直接的なオブジェクト操作でしか、この「ゴミ」を叩き出すことはできない。
2. 実装の要諦：オブジェクトの明示的解放と最適化
VBAはガベージコレクションをOSに依存しているが、CorelDRAWのオブジェクトモデルは非常に重い。ループ処理で`Style`や`Palette`を扱う際、明示的に`Nothing`を代入し、メモリを強制的に掃き出す作法が不可欠だ。
肥大化を解消するクレンジングスクリプト
以下のコードは、ドキュメント内の未使用のカラーパレットとスタイル定義を全走査し、再構築するコア・ルーチンである。
Option Explicit
‘ メモリリークを最小化するためのクレンジング・ルーチン
Sub CleanUpDocumentStructure()
Dim doc As Document
Set doc = ActiveDocument
On Error Resume Next
‘ 1. 未使用スタイルの削除（ドキュメントの再構築を促す）
‘ CorelDRAWのスタイルシートは肥大化の最大の原因
Dim sty As Style
For Each sty In doc.StyleSheet.Styles
‘ デフォルトスタイル（Normal等）以外を判定して削除
If Not sty.IsDefault Then
sty.Delete
End If
Next sty
‘ 2. カスタムパレットの徹底排除
‘ 外部から読み込まれたパレットの残骸をクリーンアップ
Dim pal As Palette
Dim i As Integer
For i = doc.Palettes.Count To 1 Step -1
Set pal = doc.Palettes(i)
‘ システムパレット以外を安全に削除
If Not pal.IsSystemPalette Then
pal.Delete
End If
Set pal = Nothing ‘ 明示的解放
Next i
‘ 3. ファイルの最適化保存（SaveAsを通じた構造再構築）
‘ CDRは保存時にXML構造を再構成するため、一度別名保存することで断片化が解消される
Dim opt As StructSaveAsOptions
Set opt = CreateStructSaveAsOptions
opt.Version = cdrVersionCurrent
‘ メモリ最適化のための強制ガベージコレクション的な挙動を促す
doc.SaveAs doc.FilePath & “_optimized.cdr”, opt
MsgBox “クレンジング完了。ファイル構造の断片化を解消しました。”, vbInformation
Set doc = Nothing
End Sub
—
3. シニアエンジニアが意識すべき「隠れた仕様」
構造的断片化（Fragmented XML）の解消
CorelDRAWのファイル形式（CDR）は実質的にZIP圧縮されたXMLの集合体だ。単にデータを消すだけでなく、`SaveAs`による「リパッケージ」を行うことで、XML内の不要な空白ノードや削除済みポインタの残骸が物理的に除去される。これがファイルサイズが劇的に小さくなる最大の理由だ。
Windows APIによるメモリ監視
もし、数千ページに及ぶ大規模ファイルを処理する場合は、VBA単体ではメモリ不足（Out of Memory）を引き起こす可能性がある。その際は、`kernel32.dll`の`SetProcessWorkingSetSize`を呼び出し、物理メモリを強制的にOSへ戻すチューニングを検討せよ。
‘ 物理メモリを解放する際のWin32 API定義
Private Declare PtrSafe Function SetProcessWorkingSetSize Lib “kernel32” ( _
ByVal hProcess As LongPtr, ByVal dwMinimumWorkingSetSize As LongPtr, _
ByVal dwMaximumWorkingSetSize As LongPtr) As Long
Sub ForceMemoryFlush()
‘ メモリ使用量を最小化する
SetProcessWorkingSetSize -1, -1, -1
End Sub
—
4. 結び：エンジニアリングの矜持
「とりあえず動く」コードを書くのは初級者だ。我々が目指すべきは、「システムが本来持つべきパフォーマンスを最大化し、長期運用に耐えうる堅牢なデータ構造を維持すること」にある。
今回紹介したクレンジング・ルーチンを業務フローの終端に組み込むだけで、社内共有サーバーの容量圧迫は緩和され、デザイナーたちのレンダリング待ち時間は劇的に短縮されるだろう。
技術はただの道具ではない。設計思想そのものだ。CorelDRAWの内部構造の深淵を理解し、不要なものを削ぎ落とすことこそが、真の自動化エンジニアの仕事である。
