Compartir a través de

Propiedad Window.SelectedMasters (Visio)

  • Artículo

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()

Comentarios

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.