CorelDRAW VBAを掌握する極限の知見
大規模マクロの保守性向上：Option Explicitの徹底と独自エラーログ出力クラスの設計
VBA（Visual Basic for Applications）は、その手軽さゆえにプロトタイピングの道具として軽視されがちだ。しかし、CorelDRAWの巨大なドキュメント構造、数千におよぶオブジェクトのバッチ処理、そしてレガシーな印刷・製版ワークフローの現場において、VBAは基幹システムと同等の信頼性を求められる。
「動けばいい」というアマチュアのコードは、運用フェーズに入った瞬間に牙を剥く。
本稿では、数年間にわたり現場で稼働し続ける大規模CorelDRAWマクロを構築するために不可欠な、厳格な変数管理（Option Explicit）と、ファイルI/Oのボトルネックを排除した独自エラーログ出力クラス（ClassModule）の設計思想を、チーフアーキテクトの視点から徹底解説する。
—
1. 宣言の強制（Option Explicit）を超えた「型とスコープ」の極意
大規模開発における最初の防衛線は、コンパイラへの絶対的な統制である。
暗黙の型宣言という「毒」
`Option Explicit` を記述しないことは、すべての変数を `Variant` 型として爆発的に増殖させる許可証を渡すようなものだ。Variantは4バイトの型情報オーバーヘッドと、実行時型判定のペナルティを常に伴う。数万回のループを回すCorelDRAWのオブジェクト走査において、これは致命的なパフォーマンス低下を招く。
さらに恐ろしいのは、タイポによるバグの隠蔽だ。
‘ Option Explicitがない世界
Dim targetLayer As Layer
Set targerLayer = ActivePage.Layers(“Design”) ‘ 致命的なタイポ (targEr)
‘ VBAはこれをエラーとせず、新規のVariant型変数「targerLayer」を勝手に生成する。
‘ 結果、targetLayer は Nothing のまま処理がスルーされ、後続のメソッドで91番エラー（オブジェクト変数またはWithブロック変数未設定）がランダムに発生する。
すべてのモジュールの先頭に `Option Explicit` を強制するだけでなく、IDEのオプションで「変数の宣言を強制する（Require Variable Declaration）」を必ず有効化せよ。
オブジェクトの明示的解放（Memory Lifecycle Management）
CorelDRAW VBAにおいて、COMオブジェクトの解放を怠ると、CorelDRAWプロセス内にメモリリークが蓄積し、最悪の場合クラッシュを引き起こす。
特に `ActiveDocument` や `ActivePage` などのグローバルショートカットに頼ったコードは、オブジェクトの参照カウンタを適切に制御できなくする。
Public Sub ProcessShapes()
‘ 常にルートから明示的に参照を取得する
Dim doc As CorelDRAW.Document
Set doc = Application.ActiveDocument
If doc Is Nothing Then Exit Sub
Dim sLayer As CorelDRAW.Layer
Set sLayer = doc.ActivePage.Layers.Find(“MyLayer”)
If Not sLayer Is Nothing Then
Dim sh As CorelDRAW.Shape
For Each sh in sLayer.Shapes
‘ 処理
Next sh
End If
‘ 【重要】スコープを抜ける前に必ず Nothing を代入し、COM参照を解放する
Set sh = Nothing
Set sLayer = Nothing
Set doc = Nothing
End Sub
VBAのガベージコレクションは非決定的（いつ実行されるか分からない）であるため、巨大なShapeRangeやDocumentを扱う際は、自らの手で参照を切断するのがプロの流儀だ。
—
2. 現場の現実：なぜ標準のエラーハンドリングでは不十分なのか
現場で稼働するマクロが停止した時、開発者が得られる情報は「実行時エラー ‘1004’: アプリケーション定義またはオブジェクト定義のエラーです」といった、無機質なダイアログのみである。これでは、どのドキュメントの、どのレイヤーの、どの座標にあるオブジェクトが原因で失敗したのかを特定することは不可能に近い。
必要なのは、エラーが発生した瞬間の「文脈（Context）」をキャプチャし、業務を止めることなく安全にログとして永続化する仕組みである。
—
3. 実装：FileSystemObjectを用いた堅牢な独自エラーログ出力クラス
ここでは、ディスクI/Oの競合を防ぎ、タイムスタンプ、エラー番号、エラー説明、そして独自のコールスタック情報を記録するクラスモジュール `CErrorLogger` の設計を示す。
クラスモジュール：`CErrorLogger.cls`
VERSION 1.0 CLASS
BEGIN
MultiUse = -1 ‘True
END
Attribute VB_Name = “CErrorLogger”
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = Err
‘ =================================================================
‘ Class Name: CErrorLogger
‘ Description: 堅牢なファイルI/Oによるエラーログ永続化クラス
‘ =================================================================
Option Explicit
Private m_LogFilePath As String
Private m_FSO As Object ‘ 遅延バインディングでFileSystemObjectを使用
Private Sub Class_Initialize()
‘ ログファイルの出力先をアドインフォルダ、またはドキュメントと同じパスに動的生成
On Error Resume Next
Set m_FSO = CreateObject(“Scripting.FileSystemObject”)
‘ デフォルト：Cドライブのテンポラリ、またはCorelDRAWの実行パス配下
m_LogFilePath = Environ$(“USERPROFILE”) & “\Documents\CorelDRAW_Macro_Error.log”
On Error GoTo 0
End Sub
Private Sub Class_Terminate()
Set m_FSO = Nothing
End Sub
‘ ログファイルの保存先を外部から変更するプロパティ
Public Property Let LogFilePath(ByVal pPath As String)
m_LogFilePath = pPath
End Property
Public Property Get LogFilePath() As String
LogFilePath = m_LogFilePath
End Property
‘ エラーを記録するコアメソッド
Public Sub Log(ByVal ModuleName As String, ByVal ProcedureName As String, ByVal ErrNumber As Long, ByVal ErrDescription As String)
On Error GoTo ErrorHandler
Dim fileStream As Object
Dim logMessage As String
‘ ログディレクトリが存在しない場合は作成
Dim parentDir As String
parentDir = m_FSO.GetParentFolderName(m_LogFilePath)
If Not m_FSO.FolderExists(parentDir) Then
m_FSO.CreateFolder parentDir
End If
‘ ログフォーマットの構築 [日時] [モジュール.プロシージャ] (エラー番号) 説明
logMessage = “[” & Format$(Now, “yyyy-mm-dd hh:nn:ss”) & “] ” & _
“[” & ModuleName & “.” & ProcedureName & “] ” & _
“(Err #” & CStr(ErrNumber) & “) ” & _
ErrDescription
‘ ファイルを開いて追記 (ForAppending = 8, Create = True = -1)
Set fileStream = m_FSO.OpenTextFile(m_LogFilePath, 8, True)
fileStream.WriteLine logMessage
fileStream.Close
Set fileStream = Nothing
Exit Sub
ErrorHandler:
‘ ログ書き込み自体が失敗した場合の無限ループを防ぐため、Debug.Printにフォールバック
Debug.Print “CRITICAL: ログの書き込みに失敗しました – ” & Err.Description
End Sub
標準モジュールでの使用例（実践的エラーハンドリングパターン）
実際の業務マクロでは、以下のようにインスタンスを生成し、各プロシージャの境界でエラーをトラップする。
Option Explicit
Public Sub ExecuteBatchProcess()
Dim logger As CErrorLogger
Set logger = New CErrorLogger
‘ 必要に応じてログパスをカスタマイズ
‘ logger.LogFilePath = “D:\Logs\CorelDRAW_Production.log”
On Error GoTo Catch
‘ — メイン処理のシミュレーション —
Dim doc As CorelDRAW.Document
Set doc = Application.ActiveDocument
If doc Is Nothing Then
Err.Raise 91, “ExecuteBatchProcess”, “アクティブなドキュメントが存在しません。”
End If
‘ 意図的なエラーテスト（例：存在しないレイヤーの操作）
‘ Call ProcessLayer(doc, “NonExistentLayer”, logger)
MsgBox “バッチ処理が正常に完了しました。”, vbInformation, “完了”
CleanUp:
Set doc = Nothing
Set logger = Nothing
Exit Sub
Catch:
‘ クラスへエラー情報を渡して記録
logger.Log “ModMain”, “ExecuteBatchProcess”, Err.Number, Err.Description
‘ ユーザーへの最小限の通知
MsgBox “エラーが発生しました。詳細はログを確認してください。” & vbCrLf & _
“ログパス: ” & logger.LogFilePath, vbCritical, “システムエラー”
Resume CleanUp
End Sub
—
4. チーフアーキテクトからの提言：レガシーとモダンをつなぐ設計思想
CorelDRAWのVBA環境は、長年大きな進化を遂げていないレガシーな代物だ。しかし、そこに配置される人間側の要件は、高度な自動化、外部データベース（SQL Server / Oracle）との連携、そしてクラウドストレージへの成果物の自動アップロードなど、日々高度化している。
このような環境下で保守性を担保するための鉄則を最後に記す。
1. 「魔のグローバル変数」を排除せよ: 状態をグローバル変数で保持する設計は、複数ドキュメントを同時に開くCorelDRAWのマルチドキュメント環境においてバグの温床となる。データは必ず引数経由で渡すか、専用のデータ保持クラス（インスタンス）にカプセル化せよ。
2. エラーログをインフラに昇華させろ: 今回紹介した `CErrorLogger` を発展させ、社内のファイルサーバーの共通パスや、Windowsのイベントビューア（`WScript.Shell` 経由での `LogEvent` 呼び出し）へ非同期で飛ばす構造に拡張することで、トラブルシューティングのコストは劇的に低下する。
3. 遅延バインディングと事前バインディングの使い分け: FSOや外部APIを叩く際は、バージョン依存のCOMエラー（型不一致等）を防ぐために可能な限り遅延バインディング（`CreateObject`）を使用し、CorelDRAW自身のオブジェクトモデルに対してのみ厳格な型定義（事前バインディング）を適用せよ。
コードを書く手を止めて、構造を見直せ。
真に強靭なシステムとは、コード量ではなく、例外と破綻に対する「備えの密度」によってのみ定義されるのだから。
