Visio 2010 以降、「自動サイズ設定」という機能が追加となり、大きな図面を作成する場合は便利なのですが、Visio 2003 以前のように使いたい場合はかえって邪魔な場合があります。
　とはいえ、この設定はページごとのため、ページが多い文書だと一つ一つ手動で変更するのは面倒です。よって一気に変更するマクロを以下に示す。

Sub Macro1()

    Dim x As Page

    For Each x In Application.ActiveDocument.Pages

        x.AutoSize = False

    Next

End Sub