CorelDRAW VBAを掌握する極限の知見：保守性向上と堅牢なエラーハンドリング基盤の構築
長年、大規模なDTP自動化パイプラインや、何世代にもわたって継ぎ接ぎされてきたレガシーなVBAコードベースの最前線に立ってきた者なら誰でも知っている事実がある。それは、「動くだけのコードは誰でも書けるが、10年生き残るコードを書ける者は一握りしかいない」ということだ。
CorelDRAWのオブジェクトモデルは強大である反面、背後にあるCOM（Component Object Model）のライフサイクルやメモリ管理のメカニズムを理解せずに関数を乱発すれば、たちまちアプリケーションの不安定化やメモリリークを引き起こす。
今回は、属人化の極みにあるVBA開発のカルチャーを根底から覆し、エンタープライズレベルの堅牢性を手に入れるための「極限の知見」を授けよう。
—
1. 開発の前提：`Option Explicit` の強制と暗黙の型定義の排除
VBAにおいて `Option Explicit` を記述しないことは、C++でポインタの生参照をノーチェックで放置するようなものだ。変数名のタイポによる意図しない `Variant` 型の生成、それに伴う暗黙の型変換のオーバーヘッド、そしてデバッグの困難さ。これらはすべてプロフェッショナルのコードベースにおいて「悪」である。
しかし、毎回モジュールの先頭に手動で記述するだけでは、人間のミスを防ぐことはできない。
対策：VBEの自動設定と厳格なスコープ管理
VBE（Visual Basic Editor）のツールオプションから「変数の宣言を強制する」に必ずチェックを入れること。さらに、CorelDRAW VBAのオブジェクト階層を扱う際は、`Variant` 型の排除を徹底し、具体的なクラス名（`Shape`, `Layer`, `Page` 等）で明示的に型をバインドする（早期バインディングの徹底）。これにより、VBEのIntelliSense（入力補完）が完全に機能し、コードの意図が明確になる。
—
2. CorelDRAWオブジェクトモデルの罠とメモリ最適化
CorelDRAW VBAで最も恐ろしいのは、「参照の解放漏れによるメモリリーク」と「Undo（アンドゥ）スタックの肥大化によるパフォーマンス急低下」である。
例えば、ループ内で以下のようなコードを書いたとしよう。
‘ 【アンチパターン】メモリリークとUndo爆弾の温床
Dim i As Long
For i = 1 to 10000
ActiveLayer.CreateRectangle 0, 0, 10, 10
Next i
このコードは、1万個の矩形を作るたびにCorelDRAWの内部Undoスタックにトランザクションを積み上げ、さらにVBAとCOM間の参照カウンタを適切に処理しないため、マクロ終了後もメモリ上にゴーストオブジェクトが残留する原因となる。
堅牢な一括処理とトランザクション制御
大量の図形を操作する場合、必ず `Optimization = True` を宣言し、Undoの記録を停止。処理完了後に一括してコミットする。
‘ 【推奨アプローチ】最適化モードの活用
Sub BatchProcessExample()
‘ 画面描画とUndoの記録を停止し、処理速度を劇的に向上させる
Optimization = True
EventsEnabled = False ‘ イベント発火も抑制
Dim doc As Document
Set doc = ActiveDocument
‘ トランザクションを明示的に開始
doc.BeginCommandGroup “Batch Create Rectangles”
On Error GoTo ErrorHandler
Dim lay As Layer
Set lay = doc.ActiveLayer
Dim i As Long
For i = 1 To 10000
‘ 処理本体
lay.CreateRectangle i, 0, i + 5, 5
Next i
doc.EndCommandGroup
CleanUp:
‘ 状態の復元
EventsEnabled = True
Optimization = False
ActiveDocument.Windows(0.Refresh)
Exit Sub
ErrorHandler:
doc.AbortCommandGroup
MsgBox “致命的なエラーが発生しました: ” & Err.Description, vbCritical
GoTo CleanUp
End Sub
—
3. 実践：独自エラーログ出力クラス（`Logger`）の構築
現場でマクロがクラッシュした際、「エラー番号: 438 – オブジェクトは、このプロパティまたはメソッドをサポートしていません」というダイアログだけが表示されても、システム管理者や開発者は何の役にも立たない。どのドキュメントの、どのレイヤーの、どの行で、何が起きたのか。それを自動的にテキストログ（あるいはネットワーク共有フォルダ）に吐き出す仕組みが必要だ。
VBAには標準でクラスモジュールを作成する機能がある。これを利用して、「インスタンス化して使う堅牢なロギング機構」を構築する。
クラスモジュール: `CLogger.cls`
以下のコードを `CLogger` という名前のクラスモジュールとして保存してほしい。
VERSION 1.0 CLASS
BEGIN
MultiUse = -1 ‘True
Persistable = 0 ‘NotPersistable
DataBindingBehavior = 0 ‘Anonymous
DataSourceBehavior = 0 ‘False
LoggingBehavior = 0 ‘False
VB_Name = “CLogger”
END
Option Explicit
Private m_LogPath As String
Private m_FSO As Object
Private m_FileNum As Integer
‘ 初期化：ログファイルのパスを動的に生成
Private Sub Class_Initialize()
‘ ユーザーのドキュメントフォルダ、またはアドインフォルダに出力
m_LogPath = Environ$(“USERPROFILE”) & “\Documents\CorelDRAW_Macro_Error.log”
End Sub
‘ ログファイルのパスを変更する場合のセッター
Public Property Let LogFilePath(ByVal Value As String)
m_LogPath = Value
End Property
‘ エラーログ書き込みメインメソッド
Public Sub WriteLog(ByVal ModuleName As String, ByVal ProcedureName As String, ByVal ErrNumber As Long, ByVal ErrDescription As String)
Dim fileNo As Integer
fileNo = FreeFile
On Error GoTo LogErrorFailed
‘ 追記モードでログファイルを開く（存在しない場合は自動作成）
Open m_LogPath For Append As #fileNo
Print #fileNo, “————————————————–”
Print #fileNo, “Timestamp : ” & Now()
Print #fileNo, “Application : CorelDRAW ” & Application.Version
Print #fileNo, “Module : ” & ModuleName
Print #fileNo, “Procedure : ” & ProcedureName
Print #fileNo, “Error Number: ” & ErrNumber
Print #fileNo, “Description : ” & ErrDescription
Print #fileNo, “————————————————–”
Close #fileNo
Exit Sub
LogErrorFailed:
‘ ログ書き込み自体が失敗した場合のフォールバック（無限ループ防止）
MsgBox “ログの書き込みに失敗しました: ” & Err.Description, vbCritical
On Error Resume Next
Close #fileNo
End Sub
—
4. 標準モジュールでの実装例：例外処理の標準化
作成した `CLogger` クラスを、実際の業務マクロ（標準モジュール）からどのように呼び出すべきか。すべてのプロシージャでエラーハンドリングのボイラープレートを統一する。
Option Explicit
Sub MainProcess()
‘ 宣言セクション
Dim logger As CLogger
Set logger = New CLogger
Const ModuleName As String = “ModMain”
Const ProcName As String = “MainProcess”
‘ 最適化の有効化
Optimization = True
On Error GoTo ErrorHandler
‘ ————————————————–
‘ 業務ロジックの記述
‘ ————————————————–
Dim doc As Document
Set doc = ActiveDocument
If doc Is Nothing Then
Err.Raise 9999, , “アクティブなドキュメントが存在しません。”
End If
‘ わざとエラーを発生させるテスト（コメントアウト解除して検証可能）
‘ Err.Raise 11, , “ゼロ除算エラーのテスト”
‘ 正常終了時の処理
GoTo CleanUp
ErrorHandler:
‘ 1. 独自ロガーによるファイル出力
logger.WriteLog ModuleName, ProcName, Err.Number, Err.Description
‘ 2. ユーザーへの最低限の通知
MsgBox “エラーが発生しました。” & vbCrLf & _
“詳細なログが以下のパスに保存されました:” & vbCrLf & _
Environ$(“USERPROFILE”) & “\Documents\CorelDRAW_Macro_Error.log”, _
vbCritical, “CorelDRAW 自動化システム”
CleanUp:
‘ 3. オブジェクトの明示的解放（メモリ管理の鉄則）
Set doc = Nothing
Set logger = Nothing
Optimization = False
ActiveDocument.Windows(0.Refresh)
End Sub
—
5. チーフアーキテクトからの最終提言
VBAは、しばしば「おもちゃの言語」と揶揄される。しかし、それはコードを書く人間がアーキテクチャを放棄している場合に限る。
CorelDRAW VBAの裏側で稼働しているCOMのライフサイクルを理解し、`Option Explicit` による型の厳格化、`Optimization` によるパフォーマンスの制御、そして今回紹介したような構造化されたエラーロギング基盤を導入することで、VBAはエンタープライズの現場に耐えうる「堅牢な自動化システム基盤」へと変貌を遂げる。
属人化の呪縛を断ち切り、保守性に優れたコードベースを構築すること。それこそが、真のエンジニアリングである。
