SelectedMasters Property [Visio 2003 SDK Documentation]

Returns a [SAFE-ARRAY] of the masters or master shortcuts selected in a Microsoft Office Visio stencil window.

objRet = object.SelectedMasters

objRet     An array of the selected masters in the stencil window.

object     Required. An expression that returns a Window object.

Version added

2003

Remarks

The SelectedMasters property applies only to stencil windows. If you try to access the SelectedMasters property for other types of window, Visio might return an error.

Example

This Microsoft Visual Basic for Applications (VBA) macro uses the SelectedMasters property to get the number of masters and master shortcuts selected in a stencil window, and then prints the name of the stencil and the selected masters and master shortcuts in the Immediate window.

Before running this macro, make sure that at least one master or master shortcut is selected in a docked stencil in the active Visio window.

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

Applies to | Window object

See Also | Master object | Masters collection | MasterShortcut object | MasterShortcuts collection