Propiedad Window.SelectedMasters (Visio)

Devuelve una matriz con los patrones o los accesos directos de patrón seleccionados en una ventana de galería de símbolos de Microsoft Visio. Solo lectura.

Sintaxis

expresión. SelectedMasters

expresión Variable que representa un objeto Window .

Valor devuelto

Object()

Observaciones

La propiedad SelectedMasters sólo se aplica a las ventanas de galerías de símbolos. Si intenta acceder a la propiedad SelectedMasters para otros tipos de ventana, Visio podría devolver un error.

Ejemplo

Esta macro de Microsoft Visual Basic para Aplicaciones (VBA) usa la propiedad SelectedMasters para obtener el número de maestros y accesos directos maestros seleccionados en una ventana de galería de símbolos y, a continuación, imprime el nombre de la galería de símbolos y los maestros y accesos directos maestros seleccionados en la ventana Inmediato.

Antes de ejecutar esta macro, asegúrese de que hay al menos un patrón o un acceso directo de patrón seleccionado en una galería de símbolos acoplada en la ventana de Visio activa.

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

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.