Visio VBAを掌握する極限の知見：Pageオブジェクトの動的制御とコレクション操作の極意
こんにちは。開発プロジェクトの現場で幾多のVisio自動化アーキテクチャを構築してきたチーフアーキテクトの私だ。
多くの開発者が、Visio VBAの初歩的なマニュアルを見て「よし、ページを追加するコードは書けた」と満足する。しかし、実務の現場――数千インプロイeesを抱える企業標準の図面管理システムや、データベースから自動生成される数百ページのプラント図面のような過酷な環境に放り出された途端、そのコードは音を立てて崩壊する。
「ページの並び替えを行った途端にインデックスがズレて予期せぬページが消えた」
「ループ処理中にページを削除したら実行時エラーで強制終了した」
「画面の再描画（カオスな画面のチラつき）で処理が極端に遅い」
今回は、Visioの`Page`オブジェクトと`Pages`コレクションのライフサイクルを完全に掌握し、「バグが起きようがない、プロダクション品質のページ自動制御」をあなたに伝授しよう。
—
1. Visioページ操作における「3大アンチパターン」
まず、アマチュアのコードとプロのコードの決定的な違いを知ることから始めよう。以下の3つをやっているなら、今すぐコードを書き換えるべきだ。
アンチパターン①：前方に向かってインデックスで削除する
`For i = 1 To ActiveDocument.Pages.Count` のようなループで、条件に合致したページをその場で `Delete` する。これは典型的なバグの温床だ。ページが削除されると、それ以降のページのインデックス番号がすべて繰り上がるため、ループのカウンタと実際のページ位置が完全にズレ、処理対象のスキップやオーバーフローが発生する。
アンチパターン②：画面描画（ScreenUpdating）を制御していない
ページを1枚追加・削除するたびにVisioはGUIを再描画する。これが実行速度を劇的に低下させる原因だ。数ドキュメントを処理するだけで数分のロスを生む。
アンチパターン③：ページ名の重複・一意性の無視
Visioでは、同一ドキュメント内に同じ名前のページ（厳密には`Name`プロパティ）が存在すると、内部IDやUINameとの間で整合性が崩れ、思わぬ例外を引き起こす。
—
2. 堅牢なページ制御を実現する「4つの鉄則」
実務で耐えうるコードを書くための設計思想は以下の通りだ。
1. 削除は必ず「逆順ループ（カウントダウン）」で行う
インデックスのズレを防ぐ唯一にして最大の鉄則は、後ろ（末尾）から前へ処理することだ。
2. 画面描画の完全な凍結
`Application.ScreenUpdating = False` と `EventEnabled` を適切に制御し、CPUリソースをバックグラウンド処理に集中させる。
3. エラーハンドリングの徹底
存在しないページ名へのアクセスや、保護されたページへの操作に対するガードを必ず設ける。
4. オブジェクト変数の確実な解放
メモリリークを防ぐため、参照したオブジェクトは適切に破棄する。
—
3. 【実践プロダクションコード】ページの追加・並び替え・削除の完全自動化
それでは、実務の現場でそのままコピペして使える、極限まで最適化されたモジュールを公開しよう。
このコードは、指定したプレフィックスを持つ不要なページをすべて掃除し、新しい構成でページを追加し、最終的に指定順序に並び替える一連のプロセスを安全に実行する。
Option Explicit
Public Sub ExecutePageAutomation()
‘ =========================================================================
‘ 処理名: Visio ページコレクション高度制御プロシージャ
‘ 概要 : 不要ページの安全な削除、新規ページの動的追加、およびインデックス整理
‘ 備考 : パフォーマンス最適化とエラー耐性を極限まで高めたプロダクションコード
‘ =========================================================================
Dim docTarget As Visio.Document
Set docTarget = ActiveDocument ‘ 対象ドキュメント（必要に応じてWorkbooks等に変更）
‘ 1. パフォーマンス最適化とイベント抑制
Dim oldScreenState As Boolean
oldScreenState = Application.ScreenUpdating
Application.ScreenUpdating = False
Application.EventEnabled = False
On Error GoTo ErrorHandler
Debug.Print “— ページ自動処理を開始します —”
‘ ————————————————————————-
‘ フェーズ 1: 条件に合致する不要ページの安全な削除（逆順ループの鉄則）
‘ ————————————————————————-
Dim i As Long
Dim targetPage As Visio.Page
For i = docTarget.Pages.Count To 1 Step -1
Set targetPage = docTarget.Pages(i)
‘ 例: “Temp_” で始まるページ、かつマスターページではないものを削除対象とする
If Left(targetPage.Name, 5) = “Temp_” Then
Debug.Print “削除対象ページ検出: ” & targetPage.Name
targetPage.Delete
End If
Set targetPage = Nothing
Next i
‘ ————————————————————————-
‘ フェーズ 2: 新規ページの動的追加と初期設定
‘ ————————————————————————-
Dim newPageNames As Variant
newPageNames = Array(“表紙”, “システム構成図”, “ネットワーク図”, “付録”)
Dim pName As Variant
Dim addedPage As Visio.Page
For Each pName in newPageNames
‘ 同名ページが既に存在するかチェック
If Not PageExists(docTarget, CStr(pName)) Then
Set addedPage = docTarget.Pages.Add()
addedPage.Name = CStr(pName)
‘ ページごとの初期設定（例：用紙サイズをA4横に設定するなど）
Call ConfigurePageProperties(addedPage)
Debug.Print “ページ追加成功: ” & CStr(pName)
Set addedPage = Nothing
Else
Debug.Print “スキップ（既存）: ” & CStr(pName)
End If
Next pName
‘ ————————————————————————-
‘ フェーズ 3: ページの並び替え（インデックスの再配置）
‘ ————————————————————————-
‘ Visioでは Page.Index を変更することで並び替えが可能
‘ ここでは定義した配列の順序通りに左から右へ並び替える
Dim targetIndex As Long
targetIndex = 1
For Each pName in newPageNames
On Error Resume Next
Set targetPage = docTarget.Pages(CStr(pName))
On Error GoTo ErrorHandler
If Not targetPage Is Nothing Then
‘ 指定した位置へ移動
targetPage.Index = targetIndex
Debug.Print “並び替え完了: ” & targetPage.Name & ” -> インデックス ” & targetIndex
Set targetPage = Nothing
targetIndex = targetIndex + 1
End If
Next pName
Debug.Print “— ページ自動処理が正常に完了しました —”
CleanUp:
‘ 状態の復元
Application.ScreenUpdating = oldScreenState
Application.EventEnabled = True
Exit Sub
ErrorHandler:
MsgBox “予期せぬエラーが発生しました。” & vbCrLf & _
“Error No: ” & Err.Number & vbCrLf & _
“Description: ” & Err.Description, vbCritical, “Visio VBA 自動化エラー”
Resume CleanUp
End Sub
‘ ————————————————————————-
‘ 補助関数: 指定した名前のページが存在するか判定
‘ ————————————————————————-
Private Function PageExists(targetDoc As Visio.Document, pageName As String) As Boolean
Dim p As Visio.Page
PageExists = False
For Each p In targetDoc.Pages
If p.Name = pageName Then
PageExists = True
Exit For
End If
Next p
Set p = Nothing
End Function
‘ ————————————————————————-
‘ 補助プロシージャ: ページのプロパティ設定（ページサイズ等をコードで担保）
‘ ————————————————————————-
Private Sub ConfigurePageProperties(targetPage As Visio.Page)
Dim pgSheet As Visio.Shape
Set pgSheet = targetPage.PageSheet
‘ 例として、図面幅・高さをA4横(297mm x 210mm)にプログラムから強制設定
‘ ※単位はVisio内部単位(インチ)に換算するか、VisioのDeref関数を利用
‘ ここではプレースホルダーとしてコメントアウトしつつ、設定構造を示す
‘ pgSheet.CellsU(“PageWidth”).ResultIU = 297 / 25.4
‘ pgSheet.CellsU(“PageHeight”).ResultIU = 210 / 25.4
Set pgSheet = Nothing
End Sub
—
4. チーフアーキテクトからの実践的アドバイス
このコードを実務に組み込む上で、さらにワンランク上の堅牢性を手に入れるためのポイントを授けよう。
データベースや外部ファイル（Excel/CSV等）との連携時
ページ名や構成を外部から動的に読み込んで構築する場合、「外部データのトリム（空白除去）」と「Visioのページ名に使用できない文字（例: `\`, `/`, `?`, “, `[`, `]`, `:` 等）」のエスケープ処理を必ず実装すること。外部入力をそのまま `Page.Name` に代入すると、容赦なくランタイムエラーを引き起こす。
オブジェクトの「取り残し」に注意せよ
VBAにおけるオブジェクト変数の解放（`Set obj = Nothing`）を怠ると、特に長時間のバッチ処理や巨大なVisioファイルを扱う際にメモリリークを引き起こし、ExcelやVisioそのものがメモリ不足で強制終了する原因になる。ローカル変数として宣言したページやシェイプは、スコープを抜ける前、あるいはループの各イテレーションの終わりで必ず `Nothing` を代入する習慣をつけろ。
—
総括
Visio VBAにおけるPageオブジェクトの制御は、単なるメソッドの呼び出しではない。「コレクションのライフサイクルとインデックスの動的変化をいかに完全に予測し、制御し尽くすか」というアーキテクチャの戦いだ。
今回提供したコードと設計思想をあなたの開発プロジェクトに導入すれば、手動での面倒な図面整理作業から解放されるだけでなく、予期せぬエラーに怯える必要のない強靭な自動化基盤が手に入るはずだ。
プロフェッショナルとして、美しく、そして破壊されないコードを書き続けろ。健闘を祈る。
