Visio VBAを掌握する極限の知見：Page.CenterDrawingで実現する図面レイアウトの完全自動調律
こんにちは。チーフアーキテクトの私だ。
これまで数々の巨大なプラント図、ネットワーク構成図、そして業務プロセスフローの自動生成システムを構築してきた。その中で、開発者が最も頭を悩ませ、そして最終的に放置しがちな問題が何か知っているか？
「図形の動的生成・追加を行った結果、レイアウトがキャンバスの片隅に寄り、見るに堪えない状態で出力される」 という問題だ。
プログラムでシェイプを計算・配置していくと、基準座標（通常は左下や中心）のズレや、想定外のテキスト量によって、描画領域全体の重心が大きく偏る。これを手動で「デザイン」タブの「図面を中央に配置 (Center Drawing)」ボタンを押して修正しているようでは、業務自動化エンジニアの名が廃るというものだ。
今回は、Visioのオブジェクトモデルの深淵を覗き、`Page.CenterDrawing` メソッドを完全に手なずけて、「一瞬で図面全体を美しく中央寄せし、適切な余白を担保するプロダクションコード」を授けよう。
—
1. なぜ「力技の座標計算」は破綻するのか？
素人がやりがちな失敗はこうだ。
「すべてのシェイプのBoundingBox（バウンディングボックス：外接矩形）をループで走査し、最小X・最大X・最小Y・最大Yを求めて、ページ全体の中心を計算し、全シェイプを一括移動（`Move` または `LocPinX` の変更）させる」
今すぐそのコードを捨てなさい。非効率の極みだ。
Visioのグループ化されたシェイプ、コネクタ、マスターシェイプの持つ特殊なピン位置、そしてページ自体の物理サイズ（Page.PageSheet）とプリンターの用紙設定の整合性を、自前の子細な算術コードで完璧にハンドリングしようとすると、必ず「端っこが切れる」「コネクタが暴走する」「巨大な不可視シェイプに引っ張られてあらぬ方向に飛んでいく」というバグを踏む。
Visioには、アプリケーションのネイティブエンジンが最適化し尽くした幾何学計算ロジックが組み込まれている。それこそが、今回焦点を当てる `Page.CenterDrawing` メソッドだ。
—
2. Page.CenterDrawing の本質とプロの罠
`Page.CenterDrawing` は、指定したページの図面領域（Drawing Extents）の重心を計算し、ページキャンバスの物理的中心に自動的にアライメントしてくれる強力なメソッドだ。
だが、プロの現場で使うには、以下の「仕様の罠」を理解しておかなければならない。
1. 画面描画の負荷（ScreenUpdating）: 大規模図面でこれを実行すると、シェイプの再描画が走り、画面がチラつき、パフォーマンスが著しく低下する。
2. 不可視シェイプの存在: ガイドライン、非表示のレイヤー、あるいは過去のゴミデータ（BoundingBoxを狂わせる極小のドット等）が残っていると、意図した中心にならない。
3. エラーハンドリング: シェイプが1つもない（空の）ページに対して実行すると、当然ランタイムエラー（または無視できない挙動）を引き起こす。
これらを完全に封じ込め、「実務でそのまま使える堅牢性（ロバストネス）」を持たせたコードを提示しよう。
—
3. 【プロダクションコード】実務仕様・図面自動中央寄せモジュール
以下のVBAコードは、実務の現場で耐えうるエラーハンドリング、画面描画のロック（パフォーマンス最適化）、そして処理前の事前検証を組み込んだ模範的な実装だ。
Option Explicit
‘ ==============================================================================
‘ 処理名 : AutoCenterActivePageDrawing
‘ 概要 : アクティブページの全図形を解析し、Page.CenterDrawingを用いて
‘ キャンバスの中心へ美しく自動配置する。
‘ 備考 : 描画のブラックアウト（ScreenUpdating制御）による高速化と、
‘ 空ページに対するガード節を完備したプロダクションコード。
‘ ==============================================================================
Public Sub AutoCenterActivePageDrawing()
Dim targetPage As Visio.Page
Dim shapeCount As Long
‘ エラーハンドリングの有効化
On Error GoTo ErrorHandler
‘ 1. アクティブページの取得とバリデーション
Set targetPage = ActivePage
If targetPage Is Nothing Then
MsgBox “アクティブなページが見つかりません。”, vbCritical, “レイアウト調整エラー”
Exit Sub
End If
‘ 2. ページ内のシェイプ存在確認（空ページでのエラー回避）
‘ ※LayerやGuideを除外した実シェイプ数をカウントするのが理想だが、
‘ 簡易的にShapes.Countを用いる。
shapeCount = targetPage.Shapes.Count
If shapeCount = 0 Then
MsgBox “対象ページにシェイプが存在しません。”, vbExclamation, “レイアウト調整”
Exit Sub
End If
‘ 3. パフォーマンス最適化：画面描画とイベントの停止
‘ 巨大な図面を扱う際、この処理がないと描画コストでフリーズのように重くなる。
Visio.Application.ScreenUpdating = False
Visio.Application.EventEnabled = False
‘ 4. コア処理：Visioネイティブエンジンによる図面の中央寄せ
‘ Page.CenterDrawing は図面全体のバウンディングボックスを検出し、
‘ ページの中央に配置をアライメントします。
targetPage.CenterDrawing
‘ 5. ログ出力（イミディエイトウィンドウ）
Debug.Print “[” & Now & “] ページ ‘” & targetPage.Name & “‘ の中央寄せが完了しました。 (シェイプ数: ” & shapeCount & “)”
CleanUp:
‘ 6. 確実な環境復元（エラーが発生しても必ず描画を戻す）
Visio.Application.ScreenUpdating = True
Visio.Application.EventEnabled = True
Exit Sub
ErrorHandler:
MsgBox “予期せぬエラーが発生しました。” & vbCrLf & _
“エラー番号: ” & Err.Number & vbCrLf & _
“エラー内容: ” & Err.Description, vbCritical, “致命的エラー”
Resume CleanUp
End Sub
—
4. 現場で活きる！アーキテクトからの実践的アドバイス
このコードをただコピペして終わるのではなく、実際のシステム開発（外部データベースからの自動図面生成や、Excel連携ツールなど）に組み込む際のポイントを授けよう。
① データベース・外部ファイル連携時のタイミング
外部データ（SQL ServerやCSVなど）からVisioシェイプを動的生成するバッチ処理を組む場合、「すべてのシェイプとコネクタの結線が完了し、最終的なレイアウト計算が終わった最後の瞬間」に、この `AutoCenterActivePageDrawing` を呼び出すこと。
途中で何度もこれを呼ぶと、処理速度が低下する原因になる。全処理の「トリガー（仕上げ）」として使うのが鉄則だ。
② 複数ページ（Document全体）への展開
もしドキュメント内の全ページを一括で整えたい場合は、以下のように `ActiveDocument.Pages` を回すラッパープロシージャを書けばいい。
Public Sub BatchCenterAllPages()
Dim vPag As Visio.Page
Visio.Application.ScreenUpdating = False
For Each vPag In ActiveDocument.Pages
‘ バックグラウンドページ（背景）は中央寄せの対象外とする
If Not vPag.Background Then
vPag.CenterDrawing
End If
Next vPag
Visio.Application.ScreenUpdating = True
MsgBox “全ページのレイアウト調整が一括完了しました。”, vbInformation
End Sub
—
5. おわりに
「動けばいい」という妥協の産物であるスパゲッティコードは、保守フェーズに入った瞬間に開発者を地獄に突き落とす。しかし、Visioのオブジェクトモデルの本質（イベント制御、描画の最適化、ネイティブ機能の適切な活用）を理解していれば、わずか数十行の洗練されたコードで、プロフェッショナルクオリティの自動化ツールを構築できる。
今回の `Page.CenterDrawing` を活用したアライメント手法は、君が作るすべてのVisio自動化ソリューションの「仕上げの美学」となるはずだ。
妥協なきコードで、美しい自動化ライフを。
