「動けばいい」は素人の思考だ。CorelDRAW VBAでオブジェクト集計を極めるための堅牢な設計論
CorelDRAWの自動化に足を踏み入れたばかりのエンジニアが、最初に手にする武器は「特定のレイヤーにある図形の数を数える」という単純なタスクかもしれない。
`ActiveLayer.Shapes.Count`
この一行を書いたとき、君は「動いた」と喜ぶだろう。しかし、私はあえて言いたい。そのコードは、プロダクション（実業務）の現場では「バグの温床」でしかない。
なぜなら、実務における自動化ツールには「ユーザーの予期せぬ操作」や「ドキュメントの状態の不確実性」が常に付きまとうからだ。本記事では、単なるカウントのやり方ではなく、プロフェッショナルとして「壊れない、間違えない、保守しやすい」コードをどう設計すべきか、その極限の知見を伝授する。
1. なぜ `ActiveLayer` に頼ってはいけないのか
初心者向けのチュートリアルでは、まず `ActiveLayer`（現在選択されているレイヤー）が紹介される。しかし、業務自動化の設計思想において、「Active（現在アクティブなもの）」という概念は極めて不安定な変数である。
リスクの正体
1. ユーザーの介入: マクロの実行中にユーザーが誤って別のレイヤーをクリックしたり、別のドキュメントにフォーカスを移したりすると、プログラムは意図しない対象をカウントし始める。
2. コンテキストの喪失: 複数のレイヤーをまたぐ複雑な処理を行う際、「今、どのレイヤーがアクティブか」を常に管理するのは、ロジックを複雑化させ、バグを誘発する。
プロフェッショナルな設計指針:
「今、画面で見えているもの」ではなく、「操作対象として明示的に指定したオブジェクト」に対してのみ処理を行う。これが、堅牢な自動化ツールの鉄則だ。
2. オブジェクト・階層構造を掌握せよ
CorelDRAWのVBAモデルは、厳格な階層構造を持っている。
`Application` ➔ `Document` ➔ `Layer` ➔ `Shape`
正確なカウントを行うためには、このパスを省略せずに、あるいは変数に格納して確実に制御下に置く必要がある。
- 不適切な例: `ActiveLayer.Shapes.Count` （対象が不明確）
- 望ましい例: `doc.Layers(“Layer 1”).Shapes.Count` （対象が明確）
3. プロダクション・クオリティのコード実装
では、実際に「指定した名前のレイヤー内にあるオブジェクト数をカウントし、安全に通知する」コードを見てみよう。これは単なるコピー＆ペースト用のコードではない。エラーハンドリング、オブジェクトの存在確認、そして保守性を考慮した「設計されたコード」だ。
Option Explicit
''' <summary>
''' 指定したレイヤー内のオブジェクト数をカウントし、結果を表示する。
''' プロダクション環境を想定した堅牢な設計。
''' </summary>
Public Sub CountShapesInSpecificLayer()
' --- 1. 変数宣言 (型を明示し、メモリ効率と安全性を高める) ---
Dim doc As Document
Dim targetLayer As Layer
Dim shapeCount As Long
Dim targetLayerName As String
' 設定: カウントしたいレイヤー名を指定
targetLayerName = "Layer 1"
' --- 2. エラーハンドリングの開始 ---
On Error GoTo ErrorHandler
' --- 3. 前提条件のチェック (ガード句) ---
' ドキュメントが開いているかを確認
If Documents.Count = 0 Then
MsgBox "エラー: 操作対象のドキュメントが開かれていません。", vbCritical, "実行エラー"
Exit Sub
End If
Set doc = ActiveDocument
' --- 4. 対象オブジェクトの特定と存在確認 ---
' ActiveLayerに頼らず、名前でレイヤーを特定する
On Error Resume Next ' レイヤーが存在しない場合のエラーを一時的にトラップ
Set targetLayer = doc.Layers(targetLayerName)
On Error GoTo ErrorHandler ' エラーハンドリングを元に戻す
If targetLayer Is Nothing Then
MsgBox "エラー: レイヤー '" & targetLayerName & "' が見つかりません。" & vbCrLf & _
"レイヤー名が正しいか確認してください。", vbExclamation, "オブジェクト不在"
Exit Sub
End If
' --- 5. メインロジック (集計処理) ---
' 指定したレイヤー直下のシェイプ数を取得
shapeCount = targetLayer.Shapes.Count
' --- 6. 結果の出力 ---
' ユーザーへの通知（実務ではログ出力やDB連携に置き換えることも多い）
MsgBox "【集計完了】" & vbCrLf & _
"レイヤー名: " & targetLayer.Name & vbCrLf & _
"オブジェクト数: " & shapeCount & " 個", _
vbInformation, "カウント結果"
CleanUp:
' --- 7. 後処理 (メモリ解放) ---
Set targetLayer = Nothing
Set doc = Nothing
Exit Sub
ErrorHandler:
' --- 8. エラーハンドリングの実装 ---
MsgBox "予期せぬエラーが発生しました。" & vbCrLf & _
"番号: " & Err.Number & vbCrLf & _
"内容: " & Err.Description, vbCritical, "システムエラー"
Resume CleanUp
End Subこのコードが「プロ仕様」である理由
1. ガード句の採用: `If Documents.Count = 0` のように、処理を開始する前に「前提条件を満たしているか」をチェックしている。これにより、不正な状態で処理が進み、深刻なクラッシュを引き起こすのを防いでいる。
2. 存在確認の二段構え: `On Error Resume Next` を使い、レイヤーが存在しない場合にプログラムが強制終了するのを防ぎつつ、`If targetLayer Is Nothing` でエレガントにエラーを検知している。
3. メモリ管理 (`CleanUp`): `Set … = Nothing` を明示的に行うことで、オブジェクトのライフサイクルを制御し、メモリリークを防止している。これは大規模な自動化ツールにおいて極めて重要だ。
4. エラーハンドリングの集約: `ErrorHandler` を設けることで、どこでエラーが起きても必ずユーザーに適切な情報を伝え、かつ安全にプログラムを終了（CleanUpへ遷移）させる構造になっている。
4. 実務への応用：データベースやファイル連携への拡張
このロジックをマスターすれば、次に目指すべきは「集計結果の外部出力」だ。
- CSV/Excel連携: `shapeCount` をテキストファイルに書き出し、工程管理ログとして保存する。
- データベース連携: 集計結果をSQLを用いて、生産管理システムへ自動投入する。
これらを行う際、今回のコードのように「対象オブジェクトが確実に特定できている」状態でないと、間違ったデータがデータベースに書き込まれるという、取り返しのつかない事態を招くことになる。
まとめ：設計の規律が、自動化の価値を決める
「数えるだけ」のコードは誰でも書ける。しかし、「どんな状況下でも、正しく、安全に、正確に数え続ける」コードを書ける者こそが、真のエンジニアだ。
`ActiveLayer` という甘い誘惑を捨て、オブジェクトの階層を意識し、エラーを予測して設計する。この規律こそが、君の作成するツールを「ただのスクリプト」から「信頼される業務システム」へと昇華させるのだ。
さあ、次はもっと複雑な、レイヤーを跨いだ動的な集計に挑戦してみよう。
