Пример макроса VBA (Visio)

Для каждого файла документа, открытого в экземпляре Visio, представленный ниже пример макроса Visual Basic для приложений (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

Дополнительные сведения о написании программы в среде VBA и редакторе Visual Basic можно найти в справке по Visual Basic (в окне редактора Visual Basic в меню Справка выберите пункт Справка по Microsoft Visual Basic).

Вы можете найти сведения об использовании определенного объекта Visio, свойства, метода, перечисления или события в этой справке.

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.