【テクニカル・上級編】【上級プロ向け】クラスモジュールを使ったオブジェクト指向VBA開発：CorelDRAW操作をカプセル化して再利用性を高める設計論 – CorelDRAW VBA解析バイブル

【上級プロ向け】CorelDRAW VBAを掌握する極限の知見：クラスモジュールによるオブジェクト指向カプセル化設計

CorelDRAWのVBA開発において、標準モジュールに数千行のプロシージャをベタ書きし、グローバル変数を乱用する開発スタイルは、今すぐ過去のものにしなければならない。

「動けばいい」というレベルのコードは、CorelDRAWのドキュメント構造が複雑化するにつれ、メモリリーク、予期せぬ描画のちらつき、そして保守不可能なスパゲッティコードへと変貌する。

本稿では、CorelDRAW VBAのオブジェクトモデルを完全に掌握し、クラスモジュールを用いて図形操作ロジックを美しくカプセル化する「真のオブジェクト指向VBA設計論」を解説する。APIの挙動、COMのライフサイクル、そしてパフォーマンスを極限まで引き出すための設計思想をここに記す。

—

1. なぜCorelDRAW VBAに「オブジェクト指向」が必要なのか

CorelDRAWのCOM（Component Object Model）は、非常に強力である反面、ホストアプリケーション（CorelDRAWのプロセス）とVBAランタイムの間で密結合を生みやすい。

標準モジュールでの開発が抱える本質的な課題は以下の通りだ。

• コンテキストの迷子: `ActiveDocument` や `ActiveSelection` への暗黙的な依存により、マルチドキュメント環境や非同期処理（外部連携）で致命的なバグを生む。
• ライフサイクル管理の欠如: `Shape` や `Page` オブジェクトの参照がメモリ上に残り続け、CorelDRAWのプロセスがゾンビ化する（メモリリーク）。
• 変更耐性のゼロ: 描画属性の変更やログ出力の追加を行う際、全プロシージャを修正する必要が生じる。

クラスモジュールによるカプセル化は、これらの課題に対する唯一にして最強の解である。CorelDRAWのプリミティブなオブジェクトをラップし、独自のインターフェースを持つ「ドメインオブジェクト」を構築する。

—

2. 設計アーキテクチャ：ラッパー・クラスの設計

今回は実践例として、CorelDRAWの「矩形（Rectangle）」をラップし、安全な座標計算、スタイルの適用、そしてメモリの明示的管理を行うカスタムクラス `CdsRectangle` を設計する。

実装コード：クラスモジュール `CdsRectangle`

VBAのプロジェクトにクラスモジュールを追加し、名称を `CdsRectangle` とする。

‘ ==============================================================================
‘ クラス名: CdsRectangle
‘ 概要: CorelDRAWの矩形シェイプをカプセル化し、安全な操作とライフサイクルを提供する
‘ ==============================================================================
Option Explicit

‘ 内部保持するCorelDRAWの生オブジェクト
Private m_RawShape As Shape
Private m_Application As Application

‘ イニシャライザ（インスタンス生成時）
Private Sub Class_Initialize()
Set m_Application = CorelScriptTools.CorelDRAW.Application ‘ または Application オブジェクト
‘ ※実際のVBAでは単に Application またはドキュメント経由で取得
End Sub

‘ デストラクタ（インスタンス破棄時：COM参照の確実な解放）
Private Sub Class_Terminate()
Call ReleaseObject
End Sub

‘ 生のShapeオブジェクトをバインドするファクトリメソッド的プロパティ
Public Property Set TargetShape(ByVal shp As Shape)
Set m_RawShape = shp
End Property

Public Property Get TargetShape() As Shape
Set TargetShape = m_RawShape
End Property

‘ — カプセル化されたビジネスロジック・プロパティ —

‘ 座標とサイズの安全な設定（ミリメートル単位を強制）
Public Sub SetBounds(ByVal X As Double, ByVal Y As Double, ByVal Width As Double, ByVal Height As Double)
If m_RawShape Is Nothing Then Err.Raise 91, “CdsRectangle”, “Shapeがバインドされていません。”

‘ CorelDRAWの内部単位（通常はドキュメント単位）に換算して適用
m_RawShape.PositionX = X
m_RawShape.PositionY = Y
m_RawShape.SizeWidth = Width
m_RawShape.SizeHeight = Height
End Sub

‘ 塗りつぶし色の設定（RGB値によるカプセル化）
Public Sub SetFillColor(ByVal R As Long, ByVal G As Long, ByVal B As Long)
If m_RawShape Is Nothing Then Err.Raise 91, “CdsRectangle”, “Shapeがバインドされていません。”

With m_RawShape.Fill
.UniformColor.RGBAssign R, G, B
End With
End Sub

‘ 描画の最適化：画面更新の抑止を内包したメソッド
Public Sub ApplyProfessionalStyle(ByVal StrokeWidth As Double, ByVal R As Long, ByVal G As Long, ByVal B As Long)
Dim origState As Boolean

‘ 画面描画のロック（パフォーマンス劇的向上）
origState = ActiveDocument.Optimization
ActiveDocument.Optimization = True

On Error GoTo ErrorHandler

‘ 処理の実行
Me.SetFillColor R, G, B
With m_RawShape.Outline
.Width = StrokeWidth
.Color.RGBAssign 0, 0, 0
End With

ErrorHandler:
‘ 描画ロックの確実な解除
ActiveDocument.Optimization = origState
If Err.Number <> 0 Then Err.Raise Err.Number, “CdsRectangle”, Err.Description
End Sub

‘ — メモリ最適化の極意：明示的なオブジェクト解放 —
Public Sub ReleaseObject()
On Error Resume Next
If Not m_RawShape Is Nothing Then
‘ 参照の切断
Set m_RawShape = Nothing
End If
Set m_Application = Nothing
On Error GoTo 0
End Sub

—

3. 標準モジュールからの呼び出しとライフサイクル管理

クラスモジュールでカプセル化したロジックを、標準モジュールからどのように呼び出すか。ここでのポイントは、「不要になったインスタンスとCOMオブジェクトを即座に解放する」という徹底したメモリ管理である。

‘ ==============================================================================
‘ 標準モジュール: MainModule
‘ ==============================================================================
Option Explicit

Sub ExecuteAutomatedDrawing()
Dim doc As Document
Dim rectWrapper As CdsRectangle
Dim rawShp As Shape

‘ エラーハンドリングによるCOMクラッシュ防止
On Error GoTo ErrorHandler

‘ アクティブドキュメントの取得
Set doc = ActiveDocument
If doc Is Nothing Then
MsgBox “アクティブなドキュメントが存在しません。”, vbCritical
Exit Sub
End If

‘ 画面描画の完全停止（パフォーマンス最適化）
doc.Optimization = True

‘ CorelDRAWのネイティブメソッドで矩形を作成
Set rawShp = doc.ActiveLayer.CreateRectangle(10, 10, 50, 30)

‘ クラスモジュールのインスタンス化
Set rectWrapper = New CdsRectangle

‘ 生オブジェクトをクラスに委譲（バインド）
Set rectWrapper.TargetShape = rawShp

‘ カプセル化されたメソッドの呼び出し
rectWrapper.SetBounds 20, 20, 100, 50
rectWrapper.ApplyProfessionalStyle 0.5, 255, 128, 0

CleanUp:
‘ 【重要】オブジェクトの明示的解放（VBAのガベージコレクションを待たない）
If Not rectWrapper Is Nothing Then
rectWrapper.ReleaseObject
Set rectWrapper = Nothing
End If

Set rawShp = Nothing

If Not doc Is Nothing Then
doc.Optimization = False
doc.CorelDRAW.Refresh
Set doc = Nothing
End Error
Exit Sub

ErrorHandler:
MsgBox “予期せぬエラーが発生しました: ” & Err.Description, vbCritical
Resume CleanUp
End Sub

—

4. チーフアーキテクトが教える「現場の知見と罠」

長年、大規模な印刷・DTP自動化システムを構築してきた中で得た、CorelDRAW VBA特有の「罠」と回避策を共有する。

1. COM参照の解放漏れと「死んだポインタ」

VBAで `Set obj = Nothing` を実行しても、CorelDRAWの内部C++層でオブジェクトが即座に解放されるとは限らない。特に、イベントハンドラやコレクション（`Shapes` コレクションなど）に参照が残っている場合、VBAエディタが突然強制終了（クラッシュ）する。

• 対策: クラスの `Class_Terminate` イベントを過信せず、必ず明示的な `ReleaseObject` メソッドを用意し、処理の終端で確実に `Nothing` を代入すること。

2. `Optimization = True` の絶対的遵守

数千個のオブジェクトを生成・変形するスクリプトにおいて、描画を有効にしたまま実行すると、CorelDRAWのGUIスレッドが描画処理に阻害され、実行速度が100倍以上低下する。
必ずプロシージャの最初で `ActiveDocument.Optimization = True` にし、例外発生時であっても確実に `False` に戻す構造（Try-Finally構文のVBA的エミュレーション）を徹底すること。

3. Windows APIとの連携によるさらなる高み

より高度な制御が必要な場合（例えば、CorelDRAWのウィンドウを特定の外部ツールの背後に隠す、あるいは独自のモーダルダイアログを強制手前に持ってくるなど）、クラスモジュール内に `User32.dll` などのAPI宣言を内包させることができる。

‘ クラスモジュール内でのWindows API活用例（ウィンドウの強制手前化など）
If VBA7 Then
Private Declare PtrSafe Function SetWindowPos Lib “user32” (ByVal hwnd As LongPtr, ByVal hWndInsertAfter As LongPtr, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Else
‘ 32bit環境互換（レガシー環境配慮）
Private Declare Function SetWindowPos Lib “user32” (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
End If

レガシー環境（32bit/64bit混在の古いOfficeやCorelDRAWスイート）を保守する場合も、このように条件付きコンパイル（`#If VBA7 Then`）をクラス内部に隠蔽することで、呼び出し側のコードを美しく保つことが可能となる。

—

結びにかえて

標準モジュールの世界から抜け出し、クラスモジュールによるオブジェクト指向設計を手に入れた瞬間から、CorelDRAW VBAは単なる「お絵かきマクロ」ではなく、「堅牢なエンタープライズ・DTPエンジン」へと進化する。

保守性、拡張性、そしてパフォーマンス。プロフェッショナルとしての誇りをコードに宿し、真に洗練された自動化システムを構築してほしい。