Propriedade Document.Masters (Visio)

Retorna a coleção Masters para o estêncil de um documento. Somente leitura.

Sintaxe

expressão. Mestres

Expressão Uma variável que representa um objeto Document .

Valor de retorno

Principais

Comentários

Se sua solução do Visual Studio incluir a referência Microsoft.Office.Interop.Visio , essa propriedade será mapeada para os seguintes tipos:

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

Exemplo

Este programa do Microsoft Visual Basic for Applications (VBA) mostra como usar a propriedade Masters para imprimir todos os nomes da forma mestra no documento atual, na janela Imediato.

Antes de executar a macro, abra um desenho do Microsoft Visio e arraste pelo menos uma forma de um estêncil para a página de desenho.

 
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

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.