Macro de VBA de ejemplo (Visio)

En cada archivo de dibujo abierto en la instancia de Visio, la siguiente macro de ejemplo de Visual Basic para Aplicaciones (VBA) hace lo siguiente:

• Registra el nombre y la ruta de acceso del archivo de dibujo en la ventana Inmediato

• Registra el nombre de cada página en la ventana Inmediato

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

El siguiente es un ejemplo del resultado del programa, donde se supone que los archivos denominados Office.vsd y Recycle.vsd están abiertos y se han guardado en las ubicaciones especificadas. Las ubicaciones que se muestran no son aquellas en las que Visio guarda los dibujos de manera predeterminada.|

Salida de ejemplo	Descripción
C:\documents\drawings\Office.vsd	Nombre del primer dibujo
Background-1	Nombre de la página 1
Background-2	Nombre de la página 2
C:\documents\drawings\Recycle.vsd	Nombre del segundo dibujo
Page-1	Nombre de la página 1
Page-2	Nombre de la página 2
Page-3	Nombre de la página 3

Puede encontrar más información sobre cómo escribir programas en el entorno VBA y sobre el Editor de Visual Basic en la Ayuda de Visual Basic (en la ventana del Editor de Visual Basic, en el menú Ayuda, elija Ayuda de Microsoft Visual Basic).

Puede encontrar información detallada acerca de cómo usar un objeto, una propiedad, un método, una enumeración o un evento específicos de Visio en esta referencia.

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.