CorelDRAW VBAの限界を超えろ：裁ち落とし外の「ゴミ」を許さない究極の自動検閲システム
CorelDRAWの自動化において、GUI操作の記録（マクロの記録）に頼るレベルは卒業したはずだ。我々が向き合うのは、数千ものオブジェクトが重なり合い、メモリを食い荒らす巨大なドキュメントである。
今回は、印刷トラブルの温床である「裁ち落とし（Bleed）エリア外へのオブジェクトはみ出し」を、メモリを最適化しつつ高速に検出するアーキテクチャを提示する。泥臭い力技ではなく、CorelDRAWのオブジェクトモデルの深淵を突く設計だ。
—
1. バウンディングボックスの「罠」を見極める
初心者は単に `Shape.GetBoundingBox` を使うが、シニアエンジニアは「何がそのバウンディングボックスを構成しているか」を理解している。
線幅（Outline）の太さ、ドロップシャドウ、あるいは回転したオブジェクトのバウンディングボックスは、見かけ上のサイズと内部の座標計算で乖離が生じやすい。
本質的な解決策は、`cdrBoundingBoxType`の使い分けと、座標系の正規化である。
2. 実装：高速かつ高精度なエリア外検出エンジン
以下のコードは、単なるループ処理ではない。`Optimization = True` による画面更新の抑制に加え、オブジェクトのメモリ参照を明示的にクリアする設計を組み込んでいる。
Option Explicit
‘ メモリ最適化と処理高速化の定石
Public Sub CheckBleedOverflow()
Dim doc As Document
Dim p As Page
Dim s As Shape
Dim left As Double, top As Double, right As Double, bottom As Double
Dim bleedVal As Double
‘ 裁ち落とし幅の設定（mm単位）
bleedVal = 3.0
Set doc = Application.ActiveDocument
‘ 画面描画とイベントを一時停止し、CPUリソースを判定に全振りする
Optimization = True
On Error GoTo Cleanup
For Each p In doc.Pages
p.Activate
‘ ページエリアの座標を取得
left = -bleedVal
top = p.SizeHeight + bleedVal
right = p.SizeWidth + bleedVal
bottom = -bleedVal
For Each s In p.ActiveLayer.Shapes
‘ 非表示レイヤーやロックされたオブジェクトを考慮する場合、適宜条件を追加
If IsOutside(s, left, top, right, bottom) Then
s.Selected = True
MsgBox “警告: 裁ち落とし外のオブジェクトを検出しました。” & vbCrLf & _
“ページ: ” & p.Name, vbCritical
Exit Sub
End If
Next s
‘ オブジェクト参照の明示的解放
Set s = Nothing
Next p
Cleanup:
Optimization = False
ActiveWindow.Refresh
Set doc = Nothing
End Sub
‘ 座標判定ロジック：極限まで軽量化
Private Function IsOutside(s As Shape, l As Double, t As Double, r As Double, b As Double) As Boolean
Dim sx As Double, sy As Double, sw As Double, sh As Double
‘ ObjectData取得のコストを最小化するため、一括でバウンディングボックスを取得
s.GetBoundingBox sx, sy, sw, sh
‘ 左下(sx, sy)から右上(sx+sw, sy+sh)が許容範囲内か判定
If sx < l Or (sx + sw) > r Or sy < b Or (sy + sh) > t Then
IsOutside = True
End If
End Function
3. チーフアーキテクトの視点：パフォーマンスの要諦
このスクリプトを運用レベルに引き上げるために、以下の3点を意識せよ。
- Optimizationの徹底: `Optimization = True` を忘れると、CorelDRAWは全オブジェクトの再描画を試み、数万個のノードを持つドキュメントではメモリリークに直結する。
- レイヤー階層の走査: `p.ActiveLayer.Shapes` は現在アクティブなレイヤーしか見ない。全てのレイヤーをチェックするには `p.Layers` コレクションを再帰的に走査するルーチンが必要だ。しかし、全てのオブジェクトをループさせると処理が重くなるため、「印刷不可設定」のレイヤーはスキップするフィルタリング処理を必ず実装すること。
- イベントドリブンへの昇華: このチェックを「ドキュメント保存時」にフックさせたいのであれば、`Application.OnDocumentSave` イベントを実装したクラスモジュールを用意すべきだ。
4. 保守性とシステム連携への備え
VBAはレガシーだが、その資産価値は計り知れない。
将来的には、この判定結果をJSON形式で書き出し、外部のPython製プリフライトチェックサーバーと連携させることも容易だ。Windows APIを利用して `GetSystemTime` でログを記録し、「誰がいつ、どのドキュメントで見逃したか」というトレーサビリティを確保するのも、管理者の腕の見せ所である。
「動く」ことは最低条件。「止まらない」「重くならない」「誤検知しない」。
この3つを極めた時、あなたの書くVBAは「自動化スクリプト」から、組織の「品質保証インフラ」へと昇華する。
健闘を祈る。
