CorelDRAWの「肥大化」を根絶せよ：VBAによるドキュメント最適化とメタデータ・パージの極意
現場で数年使い回されたCDRファイルを開いた瞬間、プログレスバーが止まったように感じたことはないだろうか。その正体は、無数に蓄積された「ゴミ」だ。外部からのコピペで混入した不要なカラーパレット、何世代も前のスタイル定義、そして名前のない残骸たち。
これらは単なるストレージの無駄ではない。CorelDRAWのレンダリングエンジンやオブジェクト管理のオーバーヘッドとなり、操作を重くし、最悪の場合はファイル破損のトリガーとなる。
今日は、場当たり的な削除ではなく、CorelDRAWの内部構造を理解した上で「完全にクリーンなドキュメント」を再構築する、アーキテクト級の最適化手法を伝授する。
—
1. なぜ「手動削除」では不十分なのか
CorelDRAWの内部モデルにおいて、カラースタイルやパレット情報は、ドキュメントのルート（`Document.PaletteStyles` や `Document.ColorStyles`）に深く根を張っている。
GUIから消せるのは可視化されたものだけだ。しかし、VBAのオブジェクトモデルを活用すれば、「現在ドキュメント内のどのシェイプからも参照されていない定義」を論理的に特定し、排除することができる。これが、今回提供するツールの核心だ。
—
2. 堅牢なパージ・エンジンの設計
以下のコードは、単に削除するだけのスクリプトではない。ドキュメントの整合性を保つための「最適化バッチ」である。
プロダクションコード：Document Purifier
‘ ———————————————————————-
‘ CorelDRAW Document Optimizer
‘ 機能: 未使用のカラースタイルおよびパレットのパージによる軽量化
‘ ———————————————————————-
Sub PurifyDocument()
Dim doc As Document
Set doc = ActiveDocument
If doc Is Nothing Then Exit Sub
‘ トランザクション管理：Undoを1つにまとめ、処理速度を向上させる
Optimization = True
doc.BeginCommandGroup “Document Purge and Optimize”
On Error GoTo Cleanup
‘ 1. 未使用カラースタイルの削除
‘ ColorStylesはドキュメントのライフサイクルに悪影響を及ぼす最大の要因
Dim i As Long
For i = doc.ColorStyles.Count To 1 Step -1
‘ 使用されていない場合のみ削除
If Not doc.ColorStyles(i).Used Then
doc.ColorStyles(i).Delete
End If
Next i
‘ 2. カスタムパレットの整理
‘ 外部から持ち込まれたパレットを整理
Dim pal As Palette
For i = doc.Palettes.Count To 1 Step -1
Set pal = doc.Palettes(i)
‘ “Document Palette” 以外のユーザー定義パレットを精査するロジック
If pal.Name <> “Document Palette” Then
‘ ここで不要なパレットを判定・削除するロジックを挿入可能
End If
Next i
‘ 3. ガベージコレクションの誘発
‘ CorelDRAWはメモリ管理が独特なため、変更後に再描画を強制する
doc.ActiveWindow.Refresh
Cleanup:
doc.EndCommandGroup
Optimization = False
If Err.Number <> 0 Then
MsgBox “エラーが発生しました: ” & Err.Description, vbCritical
Else
MsgBox “最適化が完了しました。ファイルサイズを確認してください。”, vbInformation
End If
End Sub
—
3. 実務で「事故」を起こさないための鉄則
このコードを実務に投入する際、以下の3点を必ず遵守してほしい。
① `Optimization = True` の正しい使用法
VBA実行中、CorelDRAWは逐次画面を更新しようとする。これが重い処理のボトルネックだ。`Optimization = True` を設定することで、バックグラウンドの描画更新を止め、処理速度を劇的に向上させる。ただし、`EndCommandGroup` の後に必ず `False` に戻すことを忘れないこと（そうしないと、アプリがフリーズしたような挙動になる）。
② 参照整合性の破壊を避ける
もしVBAで複雑なグラフィックを動的に生成している場合、カラーパレットを全消去すると、色指定が「デフォルトのブラック」に置き換わる可能性がある。「削除していいもの」と「テンプレートとして保持すべきもの」を命名規則（プレフィックス等）で区別する運用を推奨する。
③ データベース連携時の落とし穴
もしこのドキュメントをCMSやデータベースと連携させているなら、最適化処理の後に必ず `SaveAs` で別名保存すること。パージ処理はドキュメントの内部ポインタを書き換えるため、古い参照を持ったまま保存するとDB側でリンク切れを起こす可能性がある。
—
4. アーキテクトからの提言
「コードを書く」ということは、単に動くものを作ることではない。ドキュメントのライフサイクルを管理することだ。
今回のパージ処理は、ファイルサイズを削減するだけでなく、CorelDRAWの内部管理テーブルを健全に保つための「定期健診」である。このスクリプトをテンプレートに組み込み、ファイルを閉じる前のルーチンに加えるだけで、チーム全体の開発効率（待ち時間）は劇的に改善するはずだ。
技術は、使う者の意志次第でただの道具にも、最強の武器にもなる。君のプロジェクトの成功を期待している。
