【CorelDRAW VBA極限解説】SelectionManagerを制する者は、堅牢な業務自動化を制す
開発プロジェクトの現場において、マクロが予期せぬエラーで突然停止するほどユーザーの信頼を失うものはない。特にCorelDRAW VBAを用いた実務向けの自動化ツールにおいて、「ユーザーがオブジェクトを選択していない状態でマクロを実行した」というヒューマンエラーは、最も頻発し、かつ最も対策が漏れやすい地雷原である。
アマチュアのコードは、未選択のまま`ActiveSelection`や`SelectionRange`を叩き、容赦なく「オブジェクトが必要です（Run-time error ’91’）」という冷酷なダイアログをエンドユーザーに突きつける。
プロのエンジニアは違う。私たちは、ユーザーの「うっかり」を優しく包み込み、安全に処理を中断し、次に取るべき行動を導く「堅牢な防壁」をコードの入口に構築しなければならない。
今回は、CorelDRAWのオブジェクトモデルの深層に潜り、`SelectionManager`を完全に掌握するための極限の知見と、実務でそのまま使えるプロダクションコードを伝授する。
—
1. なぜ「なんとなくの判定」ではバグを防げないのか？
CorelDRAW VBAにおける選択状態の取得には、いくつかのプロパティやメソッドが存在する。しかし、それぞれの「ライフサイクル」と「内部挙動」を理解していないと、無駄なオーバーヘッドを生んだり、思わぬバグを踏み抜いたりする。
誤ったアプローチ：`ActiveSelection.Shapes.Count` の罠
多くの初学者、あるいはリファレンスをナナメ読みしただけのプログラマブルな素人は、以下のようなコードを書く。
‘ 【アンチパターン】絶対に真似してはならない実装
Sub BadExample()
‘ 未選択の状態で ActiveSelection にアクセスすると、ここでオブジェクト参照エラーが発生しうる
If ActiveSelection.Shapes.Count = 0 Then
MsgBox “オブジェクトを選択してください。”, vbExclamation
Exit Sub
End If
End Sub
なぜこれが非効率で危険なのか？
`ActiveSelection` は、現在の選択範囲を表す `ShapeRange` オブジェクトを返す。しかし、ドキュメント上に全くオブジェクトが選択されていない（あるいはドキュメント自体がアクティブでない）文脈において、このプロパティを評価する瞬間のCorelDRAW内部エンジンは、不安定なNull参照の解決を試みる。コンテキストによっては、ここでトラップ不可能なランタイムエラーへ直結するのだ。
正しいアプローチ：`ActiveDocument.SelectionManager` の神髄
CorelDRAWのオブジェクトモデルにおいて、選択状態を神の視点で完全統御しているのが `SelectionManager` である。
`ActiveDocument.SelectionManager` は、現在の選択モード（単一、複数、レンジ）や、選択されているオブジェクトの数（`Count`）を、安全かつ高速に照会するための専用インターフェースを提供する。これを通すことで、アプリケーションの状態に依存しない、極めて安定したバリデーションが可能になる。
—
2. 堅牢性・保守性を極限まで高めたプロダクションコード
実際の業務自動化ツール（例えば、選択した複数のオブジェクトを一括して特定のレイヤーに移動させ、リネームするバッチ処理など）を想定しよう。
以下のコードは、単にエラーを防ぐだけでなく、実務上のユーザビリティ（UX）を極限まで高めたテンプレートである。開発プロジェクトの標準としてそのまま採用してほしい。
Option Explicit
‘ ==============================================================================
‘ 業務自動化ツール基盤モジュール: 選択オブジェクト一括処理のテンプレート
‘ ==============================================================================
Public Sub ProcessSelectedObjects_Production()
‘ 1. 【大前提のガード】ドキュメントが開かれているか
If Application.Documents.Count = 0 Then
MsgBox “処理対象となるドキュメントが開かれていません。” & vbCrLf & _
“ドキュメントを開いてから再実行してください。”, _
vbCritical, “システムエラー – 処理中断”
Exit Sub
End If
Dim doc As Document
Set doc = Application.ActiveDocument
‘ 2. 【SelectionManagerによる厳格な未選択判定】
‘ SelectionManager.Count を使用し、安全に選択数を取得する
If doc.SelectionManager.Count = 0 Then
‘ ユーザーを責めず、次に何をすべきかを明確に指示する親切なメッセージ
MsgBox “オブジェクトが選択されていません。” & vbCrLf & vbCrLf & _
“【手順】” & vbCrLf & _
“1. 処理したいオブジェクトを画面上で選択してください。” & vbCrLf & _
“2. 再度このマクロを実行してください。”, _
vbExclamation, “操作ガイド – オブジェクト未選択”
Exit Sub
End If
‘ 3. 【パフォーマンス最適化】一括処理のための ShapeRange 取得
‘ SelectionManager.Shapes を通すことで、安全に Range オブジェクトへ昇華させる
Dim targetRange As ShapeRange
Set targetRange = doc.SelectionManager.Shapes
‘ トランザクション処理の開始（Undoのグループ化と画面描画の凍結）
doc.BeginCommandGroup “選択オブジェクトの一括処理”
Application.Optimization = True
On Error GoTo ErrorHandler
‘ ————————————————————————–
‘ 【コアビジネスロジック】
‘ 選択されているオブジェクトに対する安全なイテレーション
‘ ————————————————————————–
Dim sh As Shape
Dim processedCount As Long
processedCount = 0
For Each sh In targetRange
‘ 例：選択された全てのシェイプに対して何らかの処理を行う
‘ ここでは例として輪郭線をシアンに変更する処理を記述
sh.Outline.SetColor 0, 100, 100, 0 ‘ CMYK: Cyan
processedCount = processedCount + 1
Next sh
‘ 正常終了処理
Application.Optimization = False
doc.EndCommandGroup
Application.CorelDRAW.Refresh
MsgBox “処理が正常に完了しました。” & vbCrLf & _
“処理対象数: ” & processedCount & ” 個”, _
vbInformation, “完了”
Exit Sub
ErrorHandler:
‘ 予期せぬランタイムエラー発生時の安全装置
Application.Optimization = False
doc.EndCommandGroup
Application.CorelDRAW.Refresh
MsgBox “予期せぬエラーが発生しました。” & vbCrLf & _
“エラー番号: ” & Err.Number & vbCrLf & _
“エラー内容: ” & Err.Description, _
vbCritical, “致命的エラー”
End Sub
—
3. プロジェクトリーダーが解説する、このコードの設計思想
上記のコードには、単なる「エラー回避」にとどまらない、プロフェッショナルな設計思想が組み込まれている。
① 丁寧なユーザー誘導（UXの追求）
単に `MsgBox “エラー”` と出すだけのツールは、現場のオペレーターにストレスを与える。「オブジェクトが選択されていません」と突き放すのではなく、「1. 選択する → 2. 実行する」という具体的なアクション手順をメッセージ内に明記すること。これにより、ヘルプデスクへの無駄な問い合わせを激減させることができる。
② パフォーマンスの極限化 (`Application.Optimization = True`)
CorelDRAW VBAにおいて、大量のオブジェクト（数千個など）をループ処理する際、画面の再描画（Redraw）やUndoの記録が毎ループごとに走ると、処理速度が何十倍にも低下する。
`Optimization = True` によって画面描画を完全にロックし、処理の最後に `Refresh` を叩く。この一手間が、ツールを「実用的な速度」で動かすための絶対条件である。
③ トランザクションの保証 (`BeginCommandGroup`)
万が一、ループの途中でエラーが発生した場合や、ユーザーが処理を中断したくなった場合、中途半端にデータが書き換えられたドキュメントが残ることは最悪である。`BeginCommandGroup` と `On Error` 内での確実な復旧処理により、データベースやファイル連携と同様の「ACID特性（原子性）」をVBAのレイヤーで担保している。
—
4. まとめ：プロフェッショナルなVBA開発へ向けて
今回解説した `SelectionManager` を軸とした厳格なバリデーションと、トランザクション管理は、CorelDRAW自動化における「基本にして究極」のパターンである。
「動けばいいや」という場当たり的なコードは、データの破損や業務の停止を招き、最終的に開発者自身の首を絞めることになる。
オブジェクトのライフサイクルを理解し、あらゆる例外の可能性を先回りして潰し込む。その気概と設計力こそが、真の業務効率化エンジニアの証である。
明日からの開発現場で、ぜひこの知見を実装に反映してほしい。あなたの書くコードの堅牢性は、確実に一段上のステージへと引き上げられるはずだ。
