示例 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 保存绘图的默认位置不同。|

示例输出	说明
C:\documents\drawings\Office.vsd	第一个绘图的名称
Background-1	第 1 页的名称
Background-2	第 2 页的名称
C:\documents\drawings\Recycle.vsd	第二个绘图的名称
Page-1	第 1 页的名称
Page-2	第 2 页的名称
Page-3	第 3 页的名称

可以在“Visual Basic 帮助”中了解有关在 VBA 环境中编写程序以及有关 Visual Basic 编辑器的详细信息（在 Visual Basic 编辑器窗口中的“帮助”菜单上，选择“Microsoft Visual Basic 帮助”）。

您可以找到有关使用该引用中的特定的 Visio 对象、属性、方法、枚举或事件的详细信息。

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。