【CorelDRAW VBA】標準モジュールの呪縛から脱却せよ：クラスモジュールによるオブジェクト指向設計の極意
開発現場を見渡すと、いまだに数千行の標準モジュールに`ActiveDocument`や`ActiveSelection`が乱れ飛ぶスパゲッティコードが放置されている。
「動けば正義」のプロトタイプ段階ならまだしも、複数人のチーム開発や、数年間にわたる保守運用フェーズにおいて、このレガシーなアプローチは必ず破綻する。
特にCorelDRAWのCOMオブジェクトモデルは、背後にあるC++ネイティブのライフサイクルとVBAのランタイムが複雑に絡み合う。コンテキスト（`ActivePage`や`ActiveLayer`など）に依存した手続き型コードは、ちょっとした描画順序の変更や非同期処理の混入で簡単に不正メモリアクセスやサイレントバグを引き起こす。
今回は、CorelDRAW VBA開発を「おもちゃのスクリプト」から「堅牢なエンタープライズ・ソリューション」へと昇華させるための、クラスモジュールを活用したカプセル化とオブジェクト指向設計の極意を伝授しよう。
—
1. なぜ標準モジュールのベタ書きは破綻するのか？
多くのVBAエンジニアが犯す最大の過ちは、CorelDRAWのグローバルステート（現在の選択範囲、アクティブページ、アクティブレイヤー）に直接依存したコードを書くことだ。
‘ 【アンチパターン】絶対にやってはいけないベタ書きコード
Sub ProcessShapes()
ActiveDocument.Unit = cdrMillimeter
Dim s As Shape
For Each s In ActiveSelection.Shapes
s.Outline.Width = 0.5
s.Fill.UniformColor.CmykAssign 0, 100, 100, 0
Next s
End Sub
このコードの問題点は以下の通りだ：
1. 暗黙のコンテキスト依存: ユーザーが意図しないレイヤーを選択しているだけで、予期せぬ図形が破壊される。
2. ライフサイクル管理の欠如: 参照の解放（`Set s = Nothing`）が不十分な場合、CorelDRAWのプロセス内にメモリリークが蓄積し、COM例外の原因となる。
3. 拡張性の皆無: 「特定の条件を満たす図形だけをフィルタリングして処理する」といったビジネスロジックを追加しようとした途端、コードが破綻する。
我々が目指すべきは、「CorelDRAWの生々しいAPIを安全なラッパー（クラス）で包み込み、ビジネスロジックと描画エンジンを完全に分離すること」である。
—
2. 設計思想：CorelDRAWオブジェクトをカプセル化する
オブジェクト指向設計の基本原則（SOLID原則）に基づき、CorelDRAWの図形操作を抽象化する。
今回は実務で最も需要が高い「安全な矩形（Rectangle）の生成とプロパティ管理」を例に、クラスモジュールを用いた設計を構築する。
プロジェクト内に以下の2つのモジュールを用意してほしい。
1. 標準モジュール: エントリーポイント（`Main`）
2. クラスモジュール (`CManagedRectangle`): 図形をカプセル化するカスタムクラス
—
3. プロダクションコード実装
以下のコードは、エラーハンドリング、参照の適切なライフサイクル管理、そしてメソッドチェーンを考慮した実務レベルの設計だ。
クラスモジュール: `CManagedRectangle`
Option Explicit
‘ プライベートフィールド（CorelDRAWのShapeオブジェクトを直接外部に露出させない）
Private m_TargetShape As Shape
Private m_ParentLayer As Layer
‘ イベントや内部状態の初期化
Private Sub Class_Initialize()
Set m_TargetShape = Nothing
Set m_ParentLayer = Nothing
End Sub
‘ オブジェクト破棄時の確実な参照解放（メモリリーク防止の要）
Private Sub Class_Terminate()
Set m_TargetShape = Nothing
Set m_ParentLayer = Nothing
End Sub
‘ — ファクトリーメソッド / イニシャライザ —
Public Function Create(ByVal targetLayer As Layer, ByVal x As Double, ByVal y As Double, ByVal w As Double, ByVal h As Double) As Boolean
On Error GoTo ErrorHandler
Set m_ParentLayer = targetLayer
‘ アクティブコンテキストに依存せず、指定レイヤーに対して明示的に図形を生成
Set m_TargetShape = m_ParentLayer.CreateRectangle(x, y, x + w, y – h)
Create = True
Exit Function
ErrorHandler:
‘ ログ出力やカスタムエラーハンドリングをここに記述
Create = False
End Function
‘ — カプセル化されたプロパティ（Getter / Setter） —
‘ 塗りつぶしカラーの設定（CMYKを引数にとるカプセル化ロジック）
Public Sub SetFillColor(ByVal c As Byte, ByVal m As Byte, ByVal y As Byte, ByVal k As Byte)
If m_TargetShape Is Nothing Then Exit Sub
m_TargetShape.Fill.ApplyUniformFill
m_TargetShape.Fill.UniformColor.CmykAssign c, m, y, k
End Sub
‘ 線の太さの設定
Public Sub SetOutlineWidth(ByVal widthMM As Double)
If m_TargetShape Is Nothing Then Exit Sub
m_TargetShape.Outline.Width = widthMM
m_TargetShape.Outline.Type = cdrOutlineCustom
End Sub
‘ 形状のメタデータを付与する（外部データベースやJSON連携のキーとして活用）
Public Sub SetMetaData(ByVal key As String, ByVal value As String)
If m_TargetShape Is Nothing Then Exit Sub
‘ CorelDRAWのShape.UserDataを活用した内部データ永続化
m_TargetShape.Properties(key) = value
End Sub
‘ 外部への生オブジェクト露出を最小限にするための安全なラップメソッド
Public Sub Rotate(ByVal angle As Double, ByVal centerX As Double, ByVal centerY As Double)
If m_TargetShape Is Nothing Then Exit Sub
m_TargetShape.RotateEx angle, centerX, centerY
End Sub
標準モジュール: `MainModule`
Option Explicit
Sub ExecuteEnterpriseAutomation()
‘ パフォーマンス向上のための定石（画面描画とイベントを抑制）
EventsEnabled = False
ActiveDocument.BeginCommandGroup “Enterprise Rectangle Generation”
On Error GoTo ErrorHandler
‘ 1. ドキュメントとターゲットレイヤーの取得（アクティブに依存しない設計）
Dim doc As Document
Set doc = ActiveDocument
doc.Unit = cdrMillimeter
Dim targetLayer As Layer
Set targetLayer = doc.Pages(1).Layers(“AutomationLayer”)
‘ レイヤーが存在しない場合は新規作成
If targetLayer Is Nothing Then
Set targetLayer = doc.Pages(1).CreateLayer(“AutomationLayer”)
End If
‘ 2. クラスモジュールを利用したオブジェクト指向的な図形生成
Dim rectWrapper As CManagedRectangle
Dim i As Long
For i = 0 To 4
‘ インスタンスの生成
Set rectWrapper = New CManagedRectangle
‘ カプセル化されたメソッドを通じた安全な操作
If rectWrapper.Create(targetLayer, 10 + (i 25), 100, 20, 15) Then
Call rectWrapper.SetFillColor(0, 50, 100, 0) ‘ 独自のブランドカラー
Call rectWrapper.SetOutlineWidth(0.2)
Call rectWrapper.SetMetaData(“BatchID”, “BATCH_2023_10”)
Call rectWrapper.Rotate(i 15, 10 + (i 25) + 10, 100 – 7.5)
End If
‘ 次のループのためにインスタンス参照をクリア
Set rectWrapper = Nothing
Next i
‘ 正常終了処理
doc.EndCommandGroup
EventsEnabled = True
MsgBox “バッチ処理が正常に完了しました。”, vbInformation
Exit Sub
ErrorHandler:
‘ 異常終了時のリカバリ
If Not doc Is Nothing Then doc.EndCommandGroup
EventsEnabled = True
MsgBox “エラーが発生しました: ” & Err.Description, vbCritical
Set rectWrapper = Nothing
End Sub
—
4. プロジェクトアーキテクチャの極意：データベース・外部連携の注意点
実務において、CorelDRAWの自動化は単体で完結しない。基幹システムからのCSV、あるいは外部SQLデータベースからのJSONデータを元に、数千個のバリエーション図形を自動生成する要件が頻発する。
ここでクラスモジュール設計が圧倒的なアドバンテージを発揮する。
1. データモデルと描画モデルの分離:
外部DBから取得したレコード構造体（あるいはDictionary）をそのままクラスのコンストラクタ（あるいは専用のインジェクションメソッド）に渡し、図形生成ロジックをクラス内部に閉じ込めることで、DBの仕様変更がCorelDRAWの描画コードに波及するのを防ぐ。
2. トランザクション管理（Undoの保証）:
CorelDRAW VBAでは `BeginCommandGroup` と `EndCommandGroup` のペアが崩れると、Ctrl+Zによるロールバックが不可能になるか、最悪の場合アプリケーションがクラッシュする。クラスモジュール側で例外が発生した際にも確実にトランザクションが閉じられるよう、標準モジュール側でエラーハンドリングを厳格に行うこと。
3. `EventsEnabled = False` の鉄則:
大量の図形を生成・操作する際、CorelDRAWはデフォルトで画面の再描画とUIイベントのリスニングを行う。これを放置すると処理速度が数十倍〜数百倍に落ちる。必ず処理の冒頭で無効化し、エラー時も含めて確実に復元させること。
—
5. チーフアーキテクトからの提言
VBAだからといって、場当たり的なコードを書く時代は終わった。CorelDRAW VBAは、適切にオブジェクト指向設計を取り入れることで、C#やVB.NET製の外部アドインに匹敵する堅牢性と保守性を手に入れることができる。
「動けばいいコード」を書くプログラマから、「保守され続けるシステムを設計するエンジニア」へ。
今日からあなたのプロジェクトにクラスモジュールを導入し、美しく、そして強靭なCorelDRAW自動化基盤を築き上げてほしい。
