CorelDRAWの深淵を浄化せよ：肥大化したCDRファイルを極限までスリム化する「メタデータ・クレンジング」の技術
CorelDRAWを長年使い込んでいるエンジニアなら、一度は直面するはずだ。「なぜ、この単純な図形だけのデータが100MBを超えるのか？」と。
原因は明白だ。繰り返されるコピー＆ペースト、外部ドキュメントからのインポート、そして無数の編集履歴。これらがCorelDRAWの内部構造（RIFFベースのコンテナ）に「ゴースト」として蓄積され、ファイルサイズを肥大化させる。これらはUI上では見えない。しかし、システムは確実に記憶している。
今回は、CorelDRAW VBAを駆使して、ドキュメントの「腐敗」を根底からクレンジングするアーキテクチャを解説する。
—
1. 肥大化の正体を見極める：ドキュメント・メタデータの罠
ファイルサイズが膨れ上がる主因は、以下の3点に集約される。
1. 未使用のスタイル（Styles）: ドキュメント全体に伝播したゴミデータ。
2. 埋め込まれたカスタムパレット: インポート時に混入する不要な色情報。
3. ゴーストフォント情報: 既に削除されたテキストオブジェクトの痕跡。
これらは単なるデータ量だけでなく、処理負荷を増大させ、ファイル破損のリスクを劇的に高める。これを解決するには、APIレベルでの「強制削除」が必要だ。
—
2. クレンジング・エンジンの実装
以下のコードは、単なる削除ではない。`Application.Optimization`を制御し、メモリリークを最小限に抑えつつ、ドキュメント内部の不要な参照を徹底的に抹消するプロフェッショナル向けルーチンだ。
‘ CorelDRAW Document Cleanser – High-Performance Edition
Option Explicit
Public Sub CleanDocumentArchitecture()
Dim doc As Document
Set doc = ActiveDocument
‘ 最適化フラグをオン（画面更新とイベントを抑制してメモリ消費を抑える）
Optimization = True
EventsEnabled = False
On Error GoTo Cleanup
‘ 1. 未使用スタイルの全消去
‘ 全てのスタイルをイテレートし、ドキュメントのどこにも使用されていないものを排除
Dim sty As Style
For Each sty In doc.StyleSheet.Styles
‘ CorelDRAWの組み込みスタイルを除外してクリーンアップ
If Not sty.IsBuiltIn Then
On Error Resume Next
sty.Delete
On Error GoTo Cleanup
End If
Next sty
‘ 2. 未使用カラーパレットの排除
‘ パレットの参照をドキュメントから切り離す
Dim i As Long
For i = doc.PaletteList.Count To 1 Step -1
doc.PaletteList.Item(i).Delete
Next i
‘ 3. メモリ解放とガベージコレクションの強制
‘ オブジェクトへの参照を明示的に解放
Set doc = Nothing
‘ 完了後のメモリ整理
DoEvents
Cleanup:
‘ コンテキストを復元
Optimization = False
EventsEnabled = True
If Err.Number <> 0 Then
MsgBox “クレンジング中にエラーが発生しました: ” & Err.Description, vbCritical
Else
MsgBox “ドキュメントの最適化が完了しました。保存を実行してください。”, vbInformation
End If
End Sub
—
3. チーフアーキテクトの視点：なぜこれが必要か
上記のコードで特筆すべきは、`Optimization = True` の活用だ。CorelDRAW VBAは、実行中にオブジェクトモデルの再描画やイベントの監視を行う。数千のオブジェクトを操作する場合、このオーバーヘッドが無視できない遅延を生む。
- Optimizationの重要性: これを無効化することで、Windows APIへの呼び出し頻度を極限まで下げ、メモリ上のオブジェクト状態を安定させる。
- イベントの無効化 (`EventsEnabled = False`): 削除プロセス中に発生する不要なトリガーを抑制し、処理の高速化を図る。これは大規模なCDRファイルを扱う際、タイムアウトやクラッシュを回避する必須の防御策である。
—
4. さらなる最適化：ファイルフォーマットの再構築
クレンジングが終わった後、最も重要なステップがある。それは「別名保存（SaveAs）」によるデータの再構成だ。
CDRはバイナリコンテナであるため、単なる上書き保存では「空き領域（デッドスペース）」が内部に残る。マクロの最後に以下の処理を追加し、物理的なファイル圧縮を強制せよ。
‘ 物理的な再配置を伴う保存処理
doc.SaveAs “C:\Output\Cleaned_Document.cdr”, cdrCDR, cdrVersionLatest
最後に：エンジニアへの提言
CorelDRAWの自動化は、単なる「作業の効率化」ではない。それは、システムそのものの整合性を保つための「保守活動」である。
ファイルサイズが大きくなったからといって、決してパニックになってはいけない。メタデータが肥大化しているだけなら、今回の手法で元の軽量なドキュメントに復元できるはずだ。この知見をあなたの武器にし、レガシーなドキュメント環境を、堅牢でクリーンなアーキテクチャへと昇華させてほしい。
何かあれば、またコードの深淵で会おう。
