Compartilhar via

Macro de exemplo do VBA (Visio)

  • Artigo

Para cada arquivo de desenho aberto na instância do Visio, a macro de exemplo do VBA (Visual Basic for Applications) realiza as seguintes ações:

  • Registra o nome e o caminho do arquivo de desenho na janela imediata.

  • Registra o nome de cada página na janela imediata.

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

Adiante há um exemplo da saída do programa, presumindo-se que os desenhos denominados Office.vsd e Recycle.vsd estejam abertos e tenham sido salvos em locais específicos. Os locais mostrados não são aqueles nos quais o Visio salva os desenhos por padrão.

Saída de exemplo Descrição
C:\documents\drawings\Office.vsd O nome do primeiro desenho
Background-1 O nome da página 1
Background-2 O nome da página 2
C:\documents\drawings\Recycle.vsd O nome do segundo desenho
Page-1 O nome da página 1
Page-2 O nome da página 2
Page-3 O nome da página 3

Você pode obter mais informações sobre a gravação de um programa no ambiente VBA e sobre o Editor do Visual Basic na Ajuda do Visual Basic (na janela Editor do Visual Basic, no menu Ajuda, selecione Ajuda do Microsoft Visual Basic).

Nesta referência, você pode obter os detalhes sobre o uso de um objeto, uma propriedade, um método, uma enumeração ou um evento específicos do Visio.

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.