Window.Selection-Eigenschaft (Visio)

Gibt ein Selection-Objekt zurück, das die gegenwärtige Auswahl im Fenster darstellt oder eine Auswahl, die über die CreateSelection-Methode erstellt wurde, einem Selection-Objekt zuweist. Lese-/Schreibzugriff.

Syntax

Ausdruck. Auswahl

Ausdruck Eine Variable, die ein Window-Objekt darstellt.

Rückgabewert

Auswahl

HinwBemerkungeneise

Das Selection-Objekt ist unabhängig von der Auswahl im Fenster, die sich aufgrund von Benutzeraktionen ändern kann.

Bei einem Selection-Objekt handelt es sich um einen Shape-Satz in einem herkömmlichen Kontext, für den Aktionen durchgeführt werden können. Ein Selection-Objekt entspricht mehreren ausgewählten Shapes in einem Zeichnungsfenster. Nachdem Sie ein Selection-Objekt festgelegt oder abgerufen haben, können Sie den Shape-Satz, den das Objekt, darstellt unter Verwendung der Select-Methode ändern.

Nachdem Sie die CreateSelection-Methode zum Erstellen einer Auswahl verwendet haben, können Sie die Selection-Eigenschaft verwenden, um die neu erstellte Auswahl tatsächlich im Microsoft Visio-Zeichnungsfenster anzuzeigen. Sehen Sie sich dazu das zweite der beiden folgenden Beispiele an.

Beispiel

Das folgende VBA-Makro (Microsoft Visual Basic für Applikationen) zeigt, wie die Selection-Eigenschaft verwendet werden kann, um alle ausgewählten Shapes in einem Fenster abzurufen.

Public Sub Selection_Example() 
 
 Const MAX_SHAPES = 6 
 Dim vsoShapes(1 To MAX_SHAPES) As Visio.Shape 
 Dim vsoSelection As Visio.Selection 
 Dim intCounter As Integer 
 
 'Draw six rectangles. 
 For intCounter = 1 To MAX_SHAPES 
 Set vsoShapes(intCounter) = ActivePage.DrawRectangle(intCounter, intCounter + 1, intCounter + 1, intCounter) 
 Next intCounter 
 
 'Deselect all the shapes in the active window. 
 ActiveWindow.DeselectAll 
 
 'Select all the shapes in the active window. 
 ActiveWindow.SelectAll 
 
 'Get the selected shapes and assign them to a Selection object. 
 Set vsoSelection = ActiveWindow.Selection 
 
End Sub

Das folgende VBA-Makro (Microsoft Visual Basic für Applikationen) zeigt, wie die CreateSelection-Methode verwendet werden kann, um alle Shapes auf einem bestimmten Layer auszuwählen. Anschließend wird die Selection-Eigenschaft verwendet, um die Auswahl im Visio-Zeichnungsfenster anzuzeigen.

Erstellen Sie vor dem Ausführen dieses Makros zwei Ebenen in Ihrer Zeichnung, eine mit dem Namen "a" und eine mit dem Namen "b", und fügen Sie dann beiden Ebenen Formen hinzu.

Public Sub Selection_Example_2() 
 
 Dim vsoLayer As Layer 
 Dim vsoSelection As Visio.Selection 
 
 Set vsoLayer = ActivePage.Layers.ItemU("a") 
 Set vsoSelection = ActivePage.CreateSelection(visSelTypeByLayer, visSelModeSkipSuper, VsoLayer) 
 
 Application.ActiveWindow.Selection = vsoSelection 
 
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.