Visio自動化の深淵：`Pages.Add`の先にある「標準化されたドキュメント」の構築術
Visioの自動化において、`Document.Pages.Add`をただの「ページ追加メソッド」と捉えているようでは、エンタープライズレベルのドキュメント生成は到底成し遂げられない。
多くの開発者が陥る罠は、ページを追加した後にプロパティを一つずつ設定する「非効率な泥縄式コード」だ。これでは、ページ数が増えるごとに描画エンジンへの負荷が蓄積され、メモリリークの温床となる。
今回は、シニアエンジニアが現場で直面する「複雑なページ構成の一括自動生成」をテーマに、Visioオブジェクトモデルの真髄を解き明かす。
—
1. オブジェクトモデルの裏側：`Add`メソッドの限界と戦略
`Pages.Add`は、単に新規ページを作るだけのメソッドではない。重要なのは、「いつ、どのタイミングでどのプロパティを適用するか」である。
ページ追加後の`Page.PageSheet`（PageSheetはページ設定を司る最深部のオブジェクト）を叩く際、安易なプロパティアクセスを繰り返すと、Visioは内部で再計算（Recalculate）を繰り返す。数百ページのレポートを生成する場合、このオーバーヘッドは致命的だ。
最適化の要諦：
1. Eventの抑制: `Application.DeferRecalc` を使用して、生成中の再計算を一時停止する。
2. PageSheetへの直接アクセス: `Page.PageSheet` セルに対する操作は `FormulaForceU` を用いることで、Visioの論理チェックをバイパスし、高速かつ確実に値を書き込む。
—
2. 実装：プロフェッショナルによる一括ページ生成コード
以下に、テンプレートからページを生成し、用紙サイズ、背景、名前を一括で制御する堅牢な実装を示す。
Option Explicit
‘ 伝説的なエンジニアは、定数一つにも意味を持たせる
Private Const PAGENAME_PREFIX As String = “System_Report_”
Public Sub GenerateStandardPages()
Dim doc As Visio.Document
Dim pg As Visio.Page
Dim i As Integer
Set doc = Application.ActiveDocument
‘ 1. 再計算を停止し、描画負荷を最小化する
Application.DeferRecalc = True
On Error GoTo Cleanup
For i = 1 To 5
Set pg = doc.Pages.Add
‘ 2. メタデータの標準化（名前、順序、背景）
pg.Name = PAGENAME_PREFIX & Format(i, “00”)
‘ 3. PageSheetに対する極限の操作
‘ 用紙方向(1:Portrait, 2:Landscape)、単位はVisio内部値
With pg.PageSheet
.Cells(“PageOrientation”).FormulaForceU = “2” ‘ 横向き
.Cells(“PageWidth”).FormulaForceU = “297mm”
.Cells(“PageHeight”).FormulaForceU = “210mm”
End With
‘ 4. 背景ページの設定（事前に存在する背景ページを適用）
‘ 例: “Background_Template”という名前のページを背景に指定
If doc.Pages.Exists(“Background_Template”) Then
pg.BackPage = doc.Pages(“Background_Template”)
End If
Next i
Cleanup:
‘ 5. 最適化の解除
Application.DeferRecalc = False
‘ 6. オブジェクトの明示的解放（VBAのメモリ管理の基本）
Set pg = Nothing
Set doc = Nothing
If Err.Number <> 0 Then
MsgBox “構築中にエラーが発生しました: ” & Err.Description, vbCritical
End If
End Sub
—
3. レガシー環境を生き抜く「知見」
メモリ管理の鉄則
VBAは参照カウンタ方式のGCであるため、循環参照や巨大なオブジェクトの開放漏れは致命的だ。特に、`Application`や`Document`をクラスモジュールで保持する場合、必ず `Class_Terminate` イベントで `Nothing` を代入する習慣を徹底すること。
Windows APIとの連携
もし、生成したドキュメントを特定のプリンタ設定で強制出力したい場合、VBA単体では力不足だ。その際は、`winspool.drv` を呼び出し、プリンタデバイスコンテキスト（hDC）を直接操作する手法を検討すべきだが、これは最終手段である。基本は「Visioの印刷設定をページシートに書き込む」ことで完結させるのが、保守性の高いアーキテクチャというものだ。
システム間連携の勘所
JSONやXMLからページ構成を読み込む際、VBAの `MSXML2.DOMDocument` を使うのは古すぎる。現代の環境であれば、外部のC#ライブラリをCOM互換で作成し、VBAから呼び出す「ハイブリッド・アーキテクチャ」こそが、堅牢なシステムを構築するための唯一の道である。
結び：技術至上主義の矜持
自動化とは、単にコードを書くことではない。「システムが何をしているのか」を完全に制御下（Control）に置くことである。
今回紹介した`FormulaForceU`を用いたPageSheetの直接操作は、Visioの内部構造に深く切り込む禁断のテクニックに近い。だが、これを知ることで、あなたはGUIでポチポチとページ設定を繰り返す「作業者」から、Visioという巨大なエンジンを自在に操る「アーキテクト」へと進化するはずだ。
コードは嘘をつかない。君が書いたコードこそが、君の技術的な品格そのものなのだから。
