Propiedad Document.Masters (Visio)

Devuelve la colección Masters de la galería de símbolos de un documento. Solo lectura.

Sintaxis

expresión. Maestros

Expresión Variable que representa un objeto Document .

Valor devuelto

Masters

Comentarios

Si la solución de Visual Studio incluye la referencia Microsoft.Office.Interop.Visio , esta propiedad se asigna a los tipos siguientes:

• Microsoft.Office.Interop.Visio.IVDocument.Masters

Ejemplo:

Este programa de Microsoft Visual Basic para Aplicaciones (VBA) muestra cómo utilizar la propiedad Masters para imprimir todos los nombres de las formas patrón del documento actual en la ventana Inmediato.

Antes de ejecutar esta macro, abra un dibujo de Microsoft Visio y arrastre al menos una forma de una galería de símbolos a la página de dibujo.

 
Public Sub Masters_Example() 
  
    Dim intCounter As Integer 
    Dim intMasterCount As Integer 
    Dim vsoApplication As Visio.Application  
    Dim vsoCurrentDocument As Visio.Document  
    Dim vsoMasters As Visio.Masters 
 
    Set vsoApplication = GetObject(, "visio.application") 
  
    If vsoApplication Is Nothing Then 
        MsgBox "Microsoft Office Visio is not loaded" 
        Exit Sub   
 
    End If   
 
    Set vsoCurrentDocument = vsoApplication.ActiveDocument  
 
    If vsoCurrentDocument Is Nothing Then 
        MsgBox "No stencil is loaded" 
        Exit Sub   
 
    End If   
 
    Set vsoMasters = vsoCurrentDocument.Masters  
    Debug.Print "Masters in document : "; vsoCurrentDocument.Name  
    intMasterCount = vsoMasters.Count  
 
    If intMasterCount > 0 Then 
        For intCounter = 1 To intMasterCount  
            Debug.Print " "; vsoMasters.Item(intCounter).Name  
        Next intCounter  
    Else 
        Debug.Print " No masters in document"  
    End If   
 
End Sub

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.