Compartilhar via

Propriedade Window.SelectedMasters (Visio)

  • Artigo

Retorna uma matriz dos mestres ou atalhos mestres selecionados em uma janela de estêncil do Microsoft Visio. Somente leitura.

Sintaxe

expression. SelectedMasters

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

Valor de retorno

Objeto()

Comentários

A propriedade SelectedMasters se aplica somente a janelas de estêncil. Se você tentar acessar a propriedade SelectedMasters para outros tipos de janela, o Visio poderá retornar um erro.

Exemplo

Esta macro do Microsoft Visual Basic for Applications (VBA) usa a propriedade SelectedMasters para obter o número de atalhos mestres e mestres selecionados em uma janela de estêncil e, em seguida, imprime o nome do estêncil e os atalhos mestres e mestres selecionados na janela Imediata.

Antes de executar essa macro, verifique se pelo menos um mestre ou atalho de mestre esteja selecionado em um estêncil encaixado na janela ativa do Visio.

Sub SelectedMasters_Example() 
 
 Dim vsoWindow As Visio.Window 
 Dim aobjSelectedMasters() As Object 
 Dim intNumberMasters As Integer 
 Dim intNumberMasterShortCuts As Integer 
 Dim vsoMaster As Visio.Master 
 Dim vsoMasterShortcut As Visio.MasterShortcut 
 intNumberMaster = 0 
 intNumberMasterShortCuts = 0 
 
 For Each vsoWindow In ActiveWindow.Windows 
 
 If (vsoWindow.Type = visDockedStencilBuiltIn) Then 
 aobjSelectedMasters = vsoWindow.SelectedMasters 
 
 For intCounter = LBound(aobjSelectedMasters) To UBound(aobjSelectedMasters) 
 On Error Resume Next 
 Set vsoMaster = Nothing 
 Set vsoMasterShortcut = Nothing 
 Set vsoMaster = aobjSelectedMasters(intCounter) 
 
 If Not vsoMaster Is Nothing Then 
 intNumberMasters = intNumberMasters + 1 
 Else 
 Set vsoMasterShortcut = aobjSelectedMasters(intCounter) 
 
 If Not vsoMasterShortcut Is Nothing Then 
 intNumberMasterShortCuts = intNumberMasterShortCuts + 1 
 End If 
 
 End If 
 
 Next 
 
 If (intNumberMasters > 0 Or intNumberMasterShortCuts > 0) Then 
 Debug.Print "The stencil " & vsoWindow.Document.Name 
 Debug.Print "has" & Str(intNumberMasters) & " masters selected and " 
 Debug.Print Str(intNumberMasterShortCuts) & " master shortcuts selected." 
 Exit For 
 End If 
 
 End If 
 
 Next 
 
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.