CorelDRAWの品質をその手で制御せよ：実務で確実に機能する「ビットマップ解像度チェッカー」の極意
印刷物や大判出力において、「画像の解像度不足」は、デザイナーが最も避けるべき初歩的かつ致命的なミスだ。しかし、人間が目視で一つひとつプロパティを確認するなど、非効率の極みである。
CorelDRAW VBAのポテンシャルを最大限に引き出し、ドキュメント内の全ビットマップをスキャンして品質を管理する。今回は、初心者が陥りがちな「とりあえず動くコード」ではなく、「堅牢で保守性が高く、実務に耐えうるコード」の設計思想を伝授する。
—
1. なぜ「全探索」の設計が重要なのか
CorelDRAWのオブジェクトモデルは、単なる階層構造ではない。`Layer`、`Group`、`PowerClip`といった入れ子構造の中に、ビットマップが複雑に埋もれている。
初心者が陥る罠は、`ActivePage.Shapes`のみを回すような単純なループだ。これでは、グループ化された中や、PowerClipのコンテナ内に眠る画像を見逃す。再帰（Recursion）を用いた探索こそが、この課題に対する唯一の正解である。
—
2. 【実戦コード】堅牢な解像度チェッカー
以下のコードは、ドキュメント内のあらゆる深層にあるビットマップを走査し、指定した解像度を下回るものをリストアップする。これをベースに、貴方のワークフローに合わせて拡張してほしい。
Option Explicit
‘ 判定閾値（DPI）
Const MIN_DPI As Double = 300
Sub ScanBitmapResolution()
Dim doc As Document
Set doc = ActiveDocument
Dim report As String
report = “— 解像度チェックレポート —” & vbCrLf
‘ 再帰処理で全シェイプをスキャン
ProcessShapes doc.ActivePage.Shapes, report
‘ 結果をイミディエイトウィンドウに出力（必要に応じてメッセージボックスやテキスト出力へ変更）
Debug.Print report
MsgBox “スキャン完了。詳細はイミディエイトウィンドウを確認してください。”, vbInformation
End Sub
‘ 再帰的にグループやPowerClip内部まで探索するプロシージャ
Private Sub ProcessShapes(shapes As ShapeRange, ByRef report As String)
Dim s As Shape
Dim bMap As Bitmap
Dim dpi As Double
For Each s In shapes
‘ グループやコンテナなら再帰呼び出し
If s.Type = cdrGroupShape Or s.Type = cdrPowerClipFrame Then
ProcessShapes s.Shapes, report
End If
‘ ビットマップオブジェクトか判定
If s.Type = cdrBitmapShape Then
Set bMap = s.Bitmap
dpi = bMap.ResolutionX ‘ 水平解像度を取得
If dpi < MIN_DPI Then report = report & "警告: " & s.Name & " (解像度: " & dpi & " DPI)" & vbCrLf End If End If Next s End Sub ---
3. コードの「質」を高めるための3つの掟
① 異常系を考慮した「型」の意識
`s.Bitmap`にアクセスする際、常にそのシェイプがビットマップであるという保証はない。`If s.Type = cdrBitmapShape`で厳格に型をフィルタリングしないと、コードは一瞬でクラッシュする。堅牢なシステムとは、エラーを吐く前に「ガード節」で弾くもののことだ。
② パフォーマンスの重みを知る
巨大なドキュメントで`MsgBox`をループ内で出すような愚行は厳禁だ。処理速度を維持するには、結果を文字列変数に蓄積（バッファリング）し、最後に一度だけ出力する。これが、CorelDRAWのレンダリングプロセスを阻害しないための鉄則である。
③ 保守性を見据えた定数管理
解像度の閾値（300 DPI）をコードに埋め込むな。将来的に仕様が変わった際、修正箇所を探す手間を省くため、必ず定数（`Const`）としてモジュールの冒頭で管理せよ。
—
4. プロフェッショナルへのアドバイス
今回紹介したコードは「読み取り」に特化している。もしここから一歩先へ進みたいのであれば、以下の実装を検討すべきだ。
- ログの外部書き出し: `Scripting.FileSystemObject`を使用して、チェック結果をCSVで保存する。これにより、制作進行管理ツールとの連携が可能になる。
- 非破壊的な強調表示: 低解像度画像が見つかった場合、そのシェイプの枠線色を赤に変更する、あるいはレイヤーを別にして視覚的に警告する。
VBAは古臭い技術だと言われがちだが、CorelDRAWのAPIを掌握すれば、貴方の制作現場の生産性は劇的に向上する。まずはこのコードを走らせ、貴方のドキュメントが抱える「隠れたリスク」を可視化することから始めてほしい。
自動化とは、単なる効率化ではない。クリエイターが「制作そのもの」に集中するための、最強の保険なのだ。
