Visio自動化の深淵：ページ生成のオーバーヘッドを制御し、設計の「型」を自動定着させる
多くのエンジニアがVisioの自動化に着手した際、真っ先にぶつかる壁が「ページ操作の泥沼」だ。GUIで10回クリックする作業をVBAで書けば一瞬……そう考えているなら、それは甘い。Visioのオブジェクトモデルは、DOM（Document Object Model）に近い構造を持っており、特にページやレイヤーの追加・削除といった操作は、背後で重厚な再描画とイベント処理を誘発する。
今日は、単に「ページを足す」という初歩を超え、システム管理者が大規模ドキュメントを「一撃で」構築し、メモリリークを許さない堅牢なアーキテクチャへと昇華させるための極限の知見を授ける。
—
1. ページ生成の「作法」：イベント抑止によるパフォーマンス最適化
Visioの `Document.Pages.Add` は極めてコストが高い処理だ。連続してページを生成する際、デフォルトでは毎回レイアウトエンジンが走り、場合によっては `PageAdded` イベントが各ページに対して発火する。数枚なら無視できるが、100枚規模の図面を作成する場合、システムは確実に悲鳴を上げる。
これを制御するには、`Application.ScreenUpdating` を制御し、イベントを一時的に停止させるのが定石だ。
実装コード：ページ一括生成のベストプラクティス
Option Explicit
‘ ページ生成のテンプレート構造を定義
Public Sub GenerateProjectPages(ByVal projectCode As String, ByVal pageCount As Integer)
Dim vsoDoc As Document
Dim vsoPages As Pages
Dim vsoPage As Page
Dim i As Integer
‘ 1. アプリケーション状態の退避と最適化
Dim oldScreenUpdating As Boolean
oldScreenUpdating = Application.ScreenUpdating
Application.ScreenUpdating = False
Set vsoDoc = ActiveDocument
Set vsoPages = vsoDoc.Pages
On Error GoTo Cleanup ‘ 予期せぬエラー発生時にオブジェクトを解放し、設定を戻す
For i = 1 To pageCount
Set vsoPage = vsoPages.Add
‘ 命名規則: [コード]-[連番] (ゼロ埋め)
vsoPage.Name = projectCode & “-” & Format(i, “000”)
‘ ページ設定の自動化（A3横など）
SetupPageProperties vsoPage
Next i
Cleanup:
‘ 2. 状態の復旧とメモリ解放
Application.ScreenUpdating = oldScreenUpdating
Set vsoPage = Nothing
Set vsoPages = Nothing
Set vsoDoc = Nothing
If Err.Number <> 0 Then
MsgBox “エラー発生: ” & Err.Description, vbCritical
End If
End Sub
Private Sub SetupPageProperties(ByRef p As Page)
Dim vsoPageSheet As Shape
Set vsoPageSheet = p.PageSheet
‘ 用紙サイズ設定 (mm単位で指定)
vsoPageSheet.Cells(“PageWidth”).ResultIU = 420 / 25.4
vsoPageSheet.Cells(“PageHeight”).ResultIU = 297 / 25.4
Set vsoPageSheet = Nothing
End Sub
—
2. なぜ「明示的な解放」が必要なのか
VBAはガベージコレクションを搭載しているが、VisioのようなCOMオブジェクトを扱う際、`Nothing` を代入しないコードは「時限爆弾」だ。
特に `PageSheet`（ページ属性を保持する特殊なシェイプ）を操作する際、内部的に生成された参照がリークすると、マクロの実行回数が増えるにつれVisioの動作が目に見えて緩慢になる。「生成したオブジェクトは必ず破棄する」。これは、OSレベルのリソースを直接触るエンジニアとしての最低限の流儀である。
3. レガシーシステムとの連携：命名規則の「型」を外さない
大規模プロジェクトでは、命名規則が破綻することは死を意味する。`vsoPage.Name` に値を代入する際、既に存在する名前と重複すれば即座に例外が発生する。
これを防ぐための極限の防衛策は以下の通りだ。
1. 名前の正規化: `Name` プロパティを書き込む前に、`InStr` 等で既存ページとの重複チェックを行う関数を必ずラップすること。
2. PageSheetへのメタデータ埋め込み: 名前だけでなく、`User.ProjectID` などのカスタムプロパティを `PageSheet` に書き込んでおく。これにより、後からVBAで「どのプロジェクトに属するページか」をメタデータから逆引き可能になる。
—
4. チーフアーキテクトからの助言
今回紹介したコードは、あくまで「型」だ。実運用では、ここにWindows API（`GetTickCount` など）を組み込み、処理時間を計測すべきだ。ページ数に対して生成時間が指数関数的に増大するようなら、それはオブジェクトの持ち方が誤っている証拠である。
Visio VBAは、古臭い言語と見なされることが多い。しかし、その内部構造を理解し、メモリと描画エンジンをコントロールするスキルは、現代のGUI自動化においても唯一無二の武器となる。
「自動化とは、手作業を再現することではない。手作業の限界を超え、設計という名の知的作業に集中するための環境を構築することだ。」
このコードをただのテンプレートとして使うか、自らの武器として昇華させるか。それは君たちの技術への執着心次第だ。
