VBA 巨集範例 (Visio)

對於在 Visio 執行個體中開啟的每一個繪圖檔案，以下的 Visual Basic for Applications (VBA) 巨集範例會執行下列動作：

• 在 [立即] 視窗記錄繪圖檔案的名稱和路徑。

• 在 [立即] 視窗記錄每一個頁面的名稱。

Public Sub ShowNames()  
 
    'Declare object variables as Visio object types.  
    Dim vsoPage As Visio.Page  
    Dim vsoDocument As Visio.Document  
    Dim vsoDocuments As Visio.Documents  
    Dim vsoPages As Visio.Pages  
 
    'Iterate through all open documents.  
    Set vsoDocuments  = Application.Documents  
    For Each vsoDocument In vsoDocuments   
 
        'Print the drawing name in the Visual Basic Editor  
        'Immediate window.  
        Debug.Print vsoDocument.FullName  
 
        'Iterate through all pages in a drawing.  
        Set vsoPages = vsoDocument.Pages  
        For Each vsoPage In vsoPages 
  
            'Print the page name in the Visual Basic Editor  
            'Immediate window.  
            Debug.Print Tab(5); vsoPage.Name 
  
        Next  
 
    Next  
 
End Sub

以下是程式的輸出範例，假設名稱為 Office.vsd 和 Recycle.vsd 的繪圖已經開啟，而且儲存在指定的位置。 顯示的位置不是 Visio 預設儲存繪圖的位置。

您可以在 Visual Basic 說明找到關於在 VBA 環境編寫程式及關於 Visual Basic 編輯器的詳細資訊 (在 [Visual Basic 編輯器] 視窗的 [說明] 功能表上，選擇 [Microsoft Visual Basic 說明])。

您可以在本參考資料中找到有關使用特定 Visio 物件、屬性、方法、列舉或事件的詳細資訊。

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。