Window.SelectedMasters-Eigenschaft (Visio)

Artikel
10/16/2024

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

Hinweise

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 master Tastenkombinationen abzurufen, und gibt dann den Namen der Schablone sowie die ausgewählten Master und master Verknü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.

Freigeben über