CorelDRAWを「監視」せよ：イベント駆動で実現するデザイン品質の自動防衛システム
こんにちは。CorelDRAWの深淵を覗くエンジニアの皆さん。
「マクロの記録」で生成された長大なコードを眺めて、「なぜ動くのか、なぜたまに止まるのか」と頭を抱えた経験はありませんか？
今日お話しするのは、単なる自動化ツールではありません。CorelDRAWという「生き物」に、あなたの代わりに規約を守らせる「番人（ガードドッグ）」を実装する方法です。
さあ、受動的なVBAから、CorelDRAWのイベントを支配するプロフェッショナルな領域へと足を踏み入れましょう。
—
1. なぜ「イベント」を理解すると世界が変わるのか
通常、VBAは「ボタンを押したときだけ動く」という一方通行な関係です。しかし、CorelDRAWのオブジェクトモデルには「イベント」という強力なフックが用意されています。
- DocumentOpen: ドキュメントが開かれた瞬間、環境をチェックする。
- ShapeCreate: 新しい図形が描かれた瞬間、その属性を即座に判定する。
これらを掌握できれば、デザイナーがミスをする前に「その色はCMYK値が違いますよ」と警告を出すような、リアルタイムな品質管理システムを構築できるのです。
—
2. 準備：イベントを受け取るための「クラスモジュール」
CorelDRAW VBAでイベントを監視するには、標準モジュールではなく「クラスモジュール」が必要です。ここが多くの初学者がつまずく最初の壁であり、脱却の入り口です。
手順
1. VBE（Visual Basic Editor）を開き、「挿入」→「クラスモジュール」を選択。
2. クラス名を `clsAppEvents` に変更してください。
3. 以下のコードを貼り付けます。
‘ — クラスモジュール: clsAppEvents —
‘ CorelDRAWのApplicationイベントを監視する本体
Public WithEvents App As Application
‘ 新しい図形が作成された瞬間に発火
Private Sub App_ShapeCreate(ByVal Shape As Shape)
‘ ここでルールをチェック
‘ 例：塗りつぶしなしの図形を禁止する
If Shape.Fill.Type = cdrNoFill Then
MsgBox “警告: 塗りつぶしのない図形は作成できません！”, vbCritical
Shape.Delete
End If
End Sub
—
3. 番人を召喚する：イベントの有効化
クラスを作っただけでは、CorelDRAWは無視を決め込みます。この「番人」をインスタンス化して、CorelDRAWに接続してやる必要があります。
標準モジュールを一つ作成し、以下のコードを記述してください。
‘ — 標準モジュール: modGlobal —
Dim myEvents As clsAppEvents ‘ 番人を保持するための変数
Sub StartMonitoring()
‘ イベント監視を開始
Set myEvents = New clsAppEvents
Set myEvents.App = Application
MsgBox “監視ツールを起動しました。デザイナーのミスを許しません。”
End Sub
`StartMonitoring` を実行すると、その瞬間からあなたのCorelDRAWは「監視モード」に入ります。
—
4. 陥りやすい罠：なぜ「番人」は突然消えるのか？
中級者へのステップアップとして、最も重要な知識を授けます。
「なぜかイベントが途中で反応しなくなる」
この現象は、変数のスコープ（寿命）が原因です。`myEvents` をローカル変数（Subの中だけ）で宣言してしまうと、Subが終わった瞬間にメモリから解放され、番人は消滅します。
- 解決策: 必ず`Public`または`Global`な変数として宣言するか、`UserForm`のライフサイクル内に保持させてください。
—
5. 実践：社内規程の自動検知（RGB禁止ルール）
現場で最も多いトラブルが「RGBでデータを作ってしまうこと」です。これを即座に検知するロジックを組み込みましょう。
Private Sub App_ShapeCreate(ByVal Shape As Shape)
‘ 形状の種類を確認（複雑なパスだけでなく、テキストなどもチェック）
If Shape.Fill.Type = cdrUniformFill Then
‘ 塗りつぶしの色がRGBなら警告
If Shape.Fill.UniformColor.Type = cdrColorRGB Then
MsgBox “警告: RGBカラーが検出されました。CMYKに変換してください。”
‘ 必要であれば自動修正も可能
Shape.Fill.UniformColor.ConvertToCMYK
End If
End If
End Sub
—
最後に：エンジニアとしての心構え
イベント監視を実装する際、「ユーザーの作業を止めすぎないこと」を忘れないでください。過度な警告はデザイナーのストレスになり、ツールは疎まれます。
「警告」と「自動修正（オートコレクト）」を使い分け、影でこそっと助けてくれる優秀な助手を目指す。それが、真に現場を愛する自動化エンジニアの流儀です。
ここをクリアすれば、あなたはもうマクロの記録に頼る初心者ではありません。CorelDRAWという巨大なプラットフォームを、自分のコードで支配する準備が整いました。
次のステップとして、`DocumentBeforeSave` イベントを使って、「保存時に自動でレイヤーを整理する」仕組みなどにも挑戦してみてください。
あなたの開発ライフが、より効率的で創造的なものになりますように。応援しています！
