【テクニカル・上級編】【中級者向け】ページ内のシェイプ数に応じてページサイズを動的に拡張する「オートフィット」機能 – Visio VBA解析バイブル

Visio VBAの深淵：動的ページ拡張における座標計算の数学的真実とメモリ管理の極意

多くの開発者が「Visioのオートサイズ機能」を使い、その表面的な挙動に満足してプロジェクトを終える。しかし、数千のシェイプを動的に生成し、複雑な階層構造を持つエンタープライズ規模のシステムを構築する際、標準機能の限界に直面するのは時間の問題だ。

標準の「ページに合わせる」機能は、あくまで「見た目」を整えるためのものに過ぎない。我々アーキテクトが求めるのは、シェイプの幾何学的境界（Bounding Box）を厳密に計算し、余白（Margin）を数学的に定義した上で、物理的な印刷制約やメモリ効率を考慮した「動的なキャンバス拡張」である。

本稿では、単なるコードの書き方ではなく、オブジェクトのライフサイクルと座標系の制御、そして大規模処理におけるパフォーマンスの最適化について、その真髄を解説する。

1. 幾何学的境界（Bounding Box）の厳密な算出

Visioにおけるページサイズ拡張の核心は、全シェイプの集合体としての「最小・最大座標」を特定することにある。`Shape.CellsU(“PinX”)` や `Shape.CellsU(“PinY”)` を単に参照するだけでは不十分だ。シェイプの回転（Rotation）や、複雑な結合（Group）が絡む場合、計算モデルはより堅牢である必要がある。

基本となるのは、各シェイプの `CellsU(“PinX.Min”)`, `CellsU(“PinY.Min”)`, `CellsU(“PinX.Max”)`, `CellsU(“PinY.Max”)` を走査することだ。

座標計算のアルゴリズム

1. 初期化: 最初のシェイプの境界を初期値として設定する。
2. 走査: `Page.Shapes` コレクションをループし、現在の最小・最大値を更新する。
3. マージンの加算: 計算された境界に対し、設計仕様に基づいた定数（Margin）を加算する。
4. ページシートへの反映: `Page.PageSheet` の `PageWidth` および `PageHeight` プロパティを書き換える。

2. 実装：プロフェッショナル・グレードのオートフィット・ロジック

以下に、単なるスクリプトではなく、例外処理とメモリ管理を組み込んだ、実戦投入可能なクラスモジュール級のコードを示す。

Option Explicit

''' <summary>
''' ページ内の全シェイプを解析し、ページサイズを動的に拡張する。
''' </summary>
''' <param name="pg">対象となるVisioページオブジェクト</param>
''' <param name="marginPoints">拡張する余白（ポイント単位）</param>
Public Sub DynamicPageAutofit(ByRef pg As Visio.Page, Optional ByVal marginPoints As Double = 36#)
    On Error GoTo ErrorHandler

    Dim shp As Visio.Shape
    Dim minX As Double, minY As Double, maxX As Double, maxY As Double
    Dim hasShapes As Boolean
    
    ' パフォーマンス最適化: 描画更新と計算の停止
    ' 大規模な図面では、これが処理速度に数倍の差を生む
    Application.ScreenUpdating = False
    Application.Calculation = visCalculationManual

    hasShapes = False

    ' 1. 全シェイプのバウンディングボックスを走査
    For Each shp In pg.Shapes
        ' 非表示シェイプや、計算対象外のレイヤーをスキップする制御が必要な場合はここで判定
        If shp.DeleteHandle = 0 Then ' 削除不可のシステムシェイプを除外する等のロジック
            If Not hasShapes Then
                ' 初回シェイプで初期値をセット
                minX = shp.CellsU("PinX.Min").ResultIU
                minY = shp.CellsU("PinY.Min").ResultIU
                maxX = shp.CellsU("PinX.Max").ResultIU
                maxY = shp.CellsU("PinY.Max").ResultIU
                hasShapes = True
            Else
                ' 最小・最大値の更新（数学的極限の追及）
                If shp.CellsU("PinX.Min").ResultIU < minX Then minX = shp.CellsU("PinX.Min").ResultIU
                If shp.CellsU("PinY.Min").ResultIU < minY Then minY = shp.CellsU("PinY.Min").ResultIU
                If shp.CellsU("PinX.Max").ResultIU > maxX Then maxX = shp.CellsU("PinX.Max").ResultIU
                If shp.CellsU("PinY.Max").ResultIU > maxY Then maxY = shp.CellsU("PinY.Max").ResultIU
            End If
        End If
    Next shp

    ' 2. シェイプが存在する場合のみページサイズを変更
    If hasShapes Then
        Dim newWidth As Double
        Dim newHeight As Double

        newWidth = (maxX - minX) + (marginPoints * 2)
        newHeight = (maxY - minY) + (marginPoints * 2)

        ' VisioのPageSheetプロパティを直接操作
        ' PageWidth/Heightはポイント単位
        With pg.PageSheet
            .CellsU("PageWidth").FormulaU = newWidth
            .CellsU("PageHeight").FormulaU = newHeight
            
            ' ページ原点の調整（図面を左下に合わせる等の要件に応じて）
            ' ここでは拡張した領域をカバーするように設定
            .CellsU("PrintX").FormulaU = minX - marginPoints
            .CellsU("PrintY").FormulaU = minY - marginPoints
        End With
    End If

CleanUp:
    ' リソースの解放と環境の復元
    Application.ScreenUpdating = True
    Application.Calculation = visCalculationAutomatic
    Exit Sub

ErrorHandler:
    MsgBox "Critical Error in DynamicPageAutofit: " & Err.Description, vbCritical, "Architect Error"
    Resume CleanUp
End Sub

3. アーキテクトの視点：パフォーマンスとメモリの最適化

`Application.ScreenUpdating` の真の重み

中級者は「画面がチラつくから」という理由で `ScreenUpdating = False` を使う。しかし、シニアエンジニアは「再描画に要する計算コスト（CPU/GPUリソース）を削減するため」に使用する。数千のシェイプをループする際、一回ごとに描画更新が走ると、計算量は $O(n)$ ではなく、描画オーバーヘッドを含めた指数関数的な増大を招く。

メモリリークの防止とオブジェクトのライフサイクル

VBAはガベージコレクションが強力ではない。特に外部アプリケーション（ExcelやWeb API）からVisioをCOM参照して操作する場合、オブジェクトの参照が残っていると、Visioプロセス（`visio.exe`）がバックグラウンドでゾンビ化し、メモリを食いつぶす。

• 明示的解放: ループ内でオブジェクトを生成する場合は、必ず `Set obj = Nothing` を実行すること。
• レガシー環境への配慮: Windows Server 2012/2016などの古い環境で、VisioのCOMインターフェースを介して大量のプロセスを立ち上げる場合、`Set` による解放漏れは致命的なシステムダウンを招く。

Windows API との連携（高度な知見）

もし、印刷機の物理的な解像度（DPI）に基づいた、より厳密な「用紙サイズへの適合」が必要であれば、VBAの限界を超える必要がある。その場合は、Windows APIの `GetDeviceCaps` を呼び出し、プリンタドライバの物理的な限界値を取得し、計算ロジックに組み込む設計が求められる。

4. 結論：システム間連携を見据えた設計

この「オートフィット」ロジックは、単体で完結させるべきではない。
例えば、WebアプリケーションからJSON形式で構造データを送り、サーバーサイドのVisioエンジン（あるいはクライアント側のVBA）がそれを受け取り、図面を自動生成してPDF化する、といったパイプラインの一部として設計されるべきだ。

その際、ページサイズが不定であることは、後続の「PDF変換プロセス」や「画像圧縮プロセス」に影響を与える。したがって、「ページサイズを決定するロジック」は、常に決定論的（Deterministic）であり、入力データに対して一意の、数学的に正しい出力を返すことが、アーキテクトとしての責務である。

エンジニアリングとは、単に動くものを作ることではない。予測可能で、堅牢で、スケーラブルな構造を構築することなのだ。