Visio VBAを極める：Selectionオブジェクトによる「高速・堅牢・疎結合」な一括処理の真髄
Visioの自動化において、`ActiveWindow.Selection`は単なる「選択範囲の取得」ではない。これは、ユーザーの意志（操作）と、システムが実行すべきロジックを接続する最前線のインターフェースである。
多くのエンジニアは、このオブジェクトを単にループで回すだけで満足している。しかし、数千の図形が配置された巨大な図面で、その実装はパフォーマンスのボトルネックとなり、最悪の場合、メモリリークの温床となる。
今回は、シニアレベルの視点から、プロフェッショナルが現場で実装すべき「Selectionオブジェクトの真のハンドリング」を伝授する。
—
1. Selectionオブジェクトの「境界」を理解する
`Selection`オブジェクトを扱う際、最も頻発するミスは「ループ処理内での過剰なオブジェクト参照」だ。`Selection`は動的に生成されるコレクションであり、内部的にはVisioの描画エンジンと密接に紐付いている。
パフォーマンス最適化の鉄則
- イベントの無効化: 一括処理中は`Application.ScreenUpdating = False`を徹底せよ。これだけで数倍の速度向上が見込める。
- Late Bindingの回避: `Selection`の中身が確定しているなら、イテレータを適切に制御すること。
- 明示的なオブジェクト解放: VBAのガベージコレクションを信じてはならない。特にCOMオブジェクトの参照は、スコープを抜ける前に明示的に`Nothing`を代入し、メモリを解放する習慣を身につけること。
—
2. 極限の実装：堅牢なSelection一括処理コード
以下は、ユーザーが選択した図形に対して、カスタムプロパティを付与し、スタイルを一括適用する実装例だ。単なるコードではなく、エラーハンドリングとリソース管理を組み込んだ「本番環境仕様」である。
Option Explicit
”’
”’
Public Sub BatchProcessSelection()
Dim vsoSelection As Visio.Selection
Dim vsoShape As Visio.Shape
Dim i As Long
‘ 1. 描画更新の抑制 (パフォーマンスの劇的向上)
Application.ScreenUpdating = False
‘ 2. エラーハンドリングの開始
On Error GoTo Cleanup
Set vsoSelection = ActiveWindow.Selection
‘ 選択状態がない場合のガード節
If vsoSelection.Count = 0 Then
MsgBox “処理対象の図形が選択されていません。”, vbExclamation
GoTo Cleanup
End If
‘ 3. メモリと速度を意識したループ処理
For i = 1 To vsoSelection.Count
Set vsoShape = vsoSelection.Item(i)
‘ 処理対象が図形であるか確認 (グループ化等の考慮)
If vsoShape.Type = Visio.VisShapeTypes.visTypeShape Then
‘ カスタムプロパティ（ShapeSheet）へのアクセス
‘ セルが存在しない場合を考慮した例外処理が必要
If vsoShape.CellExists(“Prop.ProcessID”, Visio.visExistsAnywhere) Then
vsoShape.Cells(“Prop.ProcessID”).FormulaU = Chr(34) & “PID-” & Format(Now, “yyyymmdd”) & Chr(34)
End If
‘ スタイルの一括適用
vsoShape.Line.Weight = 2
vsoShape.Line.Color = vbRed
End If
‘ 4. オブジェクト参照の即時解放
Set vsoShape = Nothing
Next i
Cleanup:
‘ 5. リソースのクリーンアップ
Set vsoSelection = Nothing
Application.ScreenUpdating = True
If Err.Number <> 0 Then
MsgBox “エラーが発生しました: ” & Err.Description, vbCritical
End If
End Sub
—
3. レガシーシステムとの連携：Windows APIの活用
さらに踏み込むなら、大規模なVisio自動化システムでは、Visio単体で完結させない設計が求められる。外部DBやシステムとの連携を行う場合、`ActiveWindow.Selection`で取得したIDをキーに、Windows API（例: `kernel32`の`Sleep`や外部プロセス制御）を組み込むことが有用だ。
特に、図形選択状態の監視には、Visioの`SelectionChanged`イベントをフックし、必要なタイミングでログを外部ファイルやDBへ書き出す手法を推奨する。これにより、「誰が、いつ、どの図形を操作したか」というトレーサビリティを確保できる。
—
4. 伝説的アーキテクトからの忠告
1. Selectionは「生もの」である: 処理中に図形がグループ化されたり削除されたりすると、`Selection`のインデックスは即座に無効になる。複雑な操作を行う際は、対象図形のID（`UniqueID`）を一度配列に格納してから処理する「2フェーズ構成」を採用せよ。
2. ShapeSheetの直接操作: VBAのメソッドよりも、`Cells(“…”).FormulaU`を直接叩くほうが、Visioの描画ロジックに直接介入できるため、挙動が安定する。ただし、計算式（Formula）の構文ミスはランタイムエラーに直結するため、必ず定数化して管理すること。
Visio VBAは、古臭い言語ではない。正しく扱えば、数万の図形を数秒で制御できる最強の「図面オートメーションエンジン」だ。この知見を基に、貴殿のシステムをより堅牢なものへと昇華させてほしい。
