ページを複数追加＆任意の名前に変更するサンプルコード

今回は、新しいページを複数追加するサンプルをご紹介します。

ページを複数追加する方法

ループを使えば、必要なページ数を一度に追加できます。

コード

次のコードでは、3つの新しいページを追加します。

Sub AddMultiplePages()
    Dim i As Integer
    Dim NewPage As Page
    
    ' 5ページ追加
    For i = 1 To 5
        Set NewPage = ThisDocument.Pages.Add
        NewPage.Name = "Page " & i
    Next i

End Sub

実行結果

コードを実行すると、「Page 1」「Page 2」・・・「Page 5」という名前の5つの新しいページが順番に追加されます。

ページを活用する方法

新しく追加したページに図形を描いたり、設定をカスタマイズしたりすることで、Visioの作図がさらに便利になります。

ぜひコピって活用してみて下さい！