Window.SelectedMasters-Eigenschaft (Visio)

Gibt ein Array der Master-Shapes oder der Master-Shape-Verknüpfungen zurück, die in einem Microsoft Visio-Schablonenfenster ausgewählt wurden. Schreibgeschützt.

Syntax

Ausdruck. SelectedMasters

Ausdruck Eine Variable, die ein Window-Objekt darstellt.

Rückgabewert

Object()

HinwBemerkungeneise

Die SelectedMasters-Eigenschaft wird nur auf Schablonenfenster angewendet. Wenn Sie versuchen, auf die SelectedMasters-Eigenschaft für andere Fenstertypen zuzugreifen, gibt Visio möglicherweise einen Fehler zurück.

Beispiel

Dieses VBA-Makro (Microsoft Visual Basic for Applications) verwendet die SelectedMasters-Eigenschaft, um die Anzahl der in einem Schablonenfenster ausgewählten Master- und Masterverknüpfungen abzurufen, und gibt dann den Namen der Schablone und die ausgewählten Master- und Masterverknüpfungen im Direktfenster aus.

Stellen Sie vor Ausführung des Makros sicher, dass mindestens ein Master-Shape oder eine Master-Shape-Verknüpfung in einer angedockten Schablone eines aktiven Visio-Fensters ausgewählt wurde.

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

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.