CorelDRAW VBA：その「トンボ外のはみ出し」を、エンジニアの視点で自動撲滅する
こんにちは。現場の最前線で自動化を推進するエンジニアにとって、最も恐ろしいのは「印刷事故」です。特に、デザインデータが裁ち落とし（ブリード）エリアから微妙にはみ出している事態は、目視確認では限界があります。
今回は、CorelDRAW VBAを使い、ページ内の「安全領域」から逸脱したオブジェクトを瞬時に見つけ出し、該当ページへ強制ジャンプさせる「品質管理マクロ」の作り方を解説します。これをマスターすれば、あなたの現場から人的ミスが一つ消滅します。
—
なぜ「マクロの記録」だけでは不十分なのか？
多くのユーザーが最初に触れる「マクロの記録」は、実はCorelDRAWでは限定的な機能しか持ちません。オブジェクトの座標を計算したり、条件分岐で処理を制御したりするには、VBAのコードを直接書くスキルが不可欠です。
CorelDRAWのオブジェクトモデルには「BoundingBox（バウンディングボックス）」という概念があります。これはオブジェクトを囲む最小の四角形のこと。これを利用すれば、「どこからはみ出しているか」を数学的に判定可能です。
—
今回のミッション：エリア外判定マクロ
以下のコードは、ページ上のすべてのオブジェクトを走査し、指定したエリア（例：トンボの内側）を超えているものを検出し、ログを出力してページを切り替えるものです。
Sub CheckObjectsOutsideArea()
Dim p As Page
Dim s As Shape
Dim boundaryLeft As Double, boundaryRight As Double
Dim boundaryTop As Double, boundaryBottom As Double
‘ 【設定】印刷可能領域（トンボ内側など）をインチまたはミリで指定
boundaryLeft = 0: boundaryRight = 210 ‘ A4幅を想定
boundaryTop = 297: boundaryBottom = 0
Dim hasError As Boolean
hasError = False
‘ 全ページをループ
For Each p In ActiveDocument.Pages
p.Activate ‘ ページをアクティブに
‘ ページ内の全オブジェクトを走査
For Each s In p.ActiveLayer.Shapes
‘ オブジェクトのバウンディングボックスを取得
If s.LeftX < boundaryLeft Or s.RightX > boundaryRight Or _
s.TopY > boundaryTop Or s.BottomY < boundaryBottom Then
' 警告メッセージを表示
MsgBox "警告: ページ " & p.Index & " にエリア外のオブジェクトがあります。", vbCritical
hasError = True
Exit Sub ' 発見時点で停止
End If
Next s
Next p
If Not hasError Then MsgBox "全ページチェック完了：異常なし", vbInformation
End Sub
---
コードの深掘り：ここが「プロ」のポイント
1. `.LeftX`, `.RightX` などのプロパティ
CorelDRAW VBAでは、オブジェクトの四辺の座標をダイレクトに取得できます。`LeftX` はオブジェクトの左端のX座標です。これと「基準となる境界線」を比較するだけで、位置判定は終わります。
2. `p.Activate` の重要性
ループ内でページを移動させる際、`p.Activate` を忘れると、バックグラウンドでは処理が進んでいても画面が追従しません。ユーザーに「どこでエラーが出たか」を視覚的に伝えるため、必ずアクティブ化を行いましょう。
3. 陥りやすい罠：「グループ」と「回転」
初心者がはまりがちなのが、グループ化されたオブジェクトです。グループは「一つの塊」としてバウンディングボックスを計算するため、中身の一部がはみ出していても、グループ全体がエリア内であれば「正常」と判定されることがあります。
- 解決策: 必要に応じて `s.UngroupAll` を検討するか、あるいは再帰的にオブジェクトを掘り下げる関数を組む必要があります。まずは「単一オブジェクトのチェック」から始めましょう。
—
ステップアップへのアドバイス
このコードをベースに、以下のように拡張していくのがエンジニアの成長ルートです。
- 特定レイヤーのみ対象にする: `p.Layers(“印刷レイヤー”)` のように指定することで、ガイド線やメモ書きレイヤーを除外する。
- 結果をテキストに出力: `MsgBox` ではなく、CSVファイルにエラー座標を書き出すことで、後から一括修正リストを作成する。
- 自動修正: はみ出したオブジェクトの透明度を50%にする、あるいは赤枠で囲む処理を追加する。
最後に
VBAは、あなたの作業を「労働」から「運用」へと変える魔法のツールです。今回紹介した「境界線判定」は、自動化の第一歩ですが、この考え方を応用すれば、色指定のミスやフォントの埋め込み忘れチェックなど、無限の可能性が広がります。
まずはこのコードをコピーして、手元のファイルで実行してみてください。エラーが出たら、それは「プログラムがあなたに何かを教えようとしている」証拠。そのプロセスこそが、あなたを自動化の達人へと導いてくれるはずです。
何か分からないことがあれば、いつでも聞いてくださいね。応援しています！
