Visioの「動的プレゼン」を極める：Page.IsSelectedShapesEnabledとFitToPageによる自動フォーカス制御
Visioでドキュメントを共有する際、受け手が見るべき箇所をいちいち手動でズームさせていないだろうか？それは、自動化エンジニアとしては「敗北」に近い。
Visioのオブジェクトモデルを掌握すれば、特定のデータソースやコンテキストに基づき、視線を誘導するプレゼンテーションツールは数行で実装できる。今回は、`Selection.FitToPage`を核とし、実務レベルで確実に機能する「自動ズーム・フォーカス」の設計論を伝授する。
—
1. なぜ「手動操作」を排すべきなのか
現場の担当者が陥りがちなのが、`ActiveWindow.Zoom`に固定値を代入するようなハードコーディングだ。モニタの解像度、リボンメニューの表示状態、サイドバーの有無によって、描画領域は常に変化する。
真に堅牢なツールを作るには、「どの図形を見せたいか」をロジックで選択し、「その領域を画面に合わせる（Fit）」という抽象度の高い処理へと昇華させる必要がある。
堅牢な設計のための3つの原則
1. 選択状態の完全制御: `IsSelectedShapesEnabled`を明示的に操作し、意図しない図形が選択状態に残らないようにする。
2. イベントの遮断: 大量処理時は`Application.ScreenUpdating = False`を徹底し、描画負荷を最小化する。
3. 例外ハンドリング: 選択図形が空の場合や、非表示レイヤーへのアクセスに対するエラー回避を怠らない。
—
2. プロダクションコード：プレゼン支援マクロ
以下のコードは、特定の図形群を抽出し、それらが画面いっぱいに収まるよう自動調整する汎用的なプロシージャである。
‘ —————————————————————————
‘ 概要: 指定した図形群を画面中央にFitさせるプレゼン支援ツール
‘ 備考: 複雑な図面でもパフォーマンスを落とさない設計
‘ —————————————————————————
Public Sub FocusAndZoomShapes(targetShapes As Visio.Selection)
Dim vsoWindow As Visio.Window
Set vsoWindow = Application.ActiveWindow
‘ エラーハンドリングの要：選択図形が空の場合は終了
If targetShapes.Count = 0 Then
Debug.Print “対象図形がありません。”
Exit Sub
End If
On Error GoTo Cleanup
‘ 描画更新を一時停止し、パフォーマンスを最大化
Application.ScreenUpdating = False
‘ 画面のフォーカスを制御可能に設定
vsoWindow.IsSelectedShapesEnabled = True
‘ 重要: 選択対象をFitToPageで描画領域に合わせる
‘ これにより、ウィンドウサイズに最適化されたズーム倍率が自動算出される
targetShapes.FitToPage
‘ プレゼンモード風の演出として、選択を解除して注目度を高める
targetShapes.DeselectAll
Cleanup:
Application.ScreenUpdating = True
If Err.Number <> 0 Then MsgBox “フォーカス処理中にエラーが発生しました: ” & Err.Description
End Sub
—
3. 実践：データベース・外部連携の落とし穴
このツールを業務で使う際、最も多い失敗は「図形IDの不変性」を過信することだ。
- 図形IDの不安定さ: VisioのIDは、コピー＆ペーストやグループ化の解除で変化する。データベースと連携させる際は、必ず `User.MyID` のようなカスタムプロパティ（ShapeSheetのUserセクション）にユニークなキーを持たせ、`Shape.Name`ではなくその値を検索キーにすること。
- パフォーマンスの最適化: ページ内の全図形をループで回すのは愚策だ。`Page.CreateSelection` でフィルタリングし、必要な図形だけを抽出して関数に渡す設計を徹底せよ。
—
4. チーフアーキテクトからの助言
今回紹介した`FitToPage`は、単なるズーム機能ではない。これは、「Visioを静的な図面ファイルから、動的なダッシュボードへと変貌させるインターフェース」である。
もし君が大規模なプロジェクトでこれを導入するなら、以下のアプローチを検討してほしい。
1. 状態管理: 「現在のプレゼン位置（ステップ）」を `Document.CustomProps` に保持し、次へ/前へボタンで`FocusAndZoomShapes`を呼び出す「プレゼンモード」を構築する。
2. 非同期的な視覚化: データ更新と同時にこのマクロを走らせ、特定のKPIが閾値を超えたらその図形にフォーカスが飛ぶような、「異常検知ナビゲーター」に拡張する。
VisioのAPIは、使いこなせば単なる作図ツールではなく、強力なビジネスオートメーションのプラットフォームとなる。まずはこのコードをベースに、君の現場の「見せるべき情報」を自動化することから始めてほしい。
成功を祈る。
