Selection.Align-Methode (Visio)

Artikel
04/07/2023

Richtet mindestens zwei ausgewählte Shapes aus.

Syntax

Ausdruck. Align (AlignHorizontal, AlignVertical, GlueToGuide)

Ausdruck Eine Variable, die ein Selection-Objekt darstellt.

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
AlignHorizontal	Erforderlich	VisHorizontalAlignTypes	Richtet ausgewählte Shapes entlang einer horizontalen Achse aus. Mögliche Werte finden Sie in den Hinweisen.
AlignVertical	Erforderlich	VisVerticalAlignTypes	Richtet ausgewählte Shapes entlang einer vertikalen Achse aus. Mögliche Werte finden Sie in den Hinweisen.
GlueToGuide	Optional	Boolescher Wert	Bei True wird eine Führungslinie erstellt und ausgewählte Formen darauf geklebt. Wenn False, ist dies nicht der Fall. Der Standardwert ist False.

Rückgabewert

Nichts

Bemerkungen

Die folgenden möglichen Werte für AlignHorizontal werden in VisHorizontalSelectionTypes in der Visio-Typbibliothek deklariert.

Konstante	Wert	Beschreibung
visHorzAlignCenter	2	Ausrichtung an der Mitte des primären ausgewählten Shapes.
visHorzAlignLeft	1	Ausrichtung links am primären ausgewählten Shape.
visHorzAlignNone	0	Keine horizontale Ausrichtung.
visHorzAlignRight	3	Ausrichtung rechts am primären ausgewählten Shape.

Die folgenden möglichen Werte für AlignVertical werden in VisVerticalSelectionTypes in der Visio-Typbibliothek deklariert.

Konstante	Wert	Beschreibung
visVertAlignBottom	3	Ausrichtung unten am primären ausgewählten Shape.
visVertAlignMiddle	2	Ausrichtung an der Mitte des primären ausgewählten Shapes.
visVertAlignNone	0	Keine vertikale Ausrichtung.
visVertAlignTop	1	Ausrichtung oben am primären ausgewählten Shape.

Wenn Sie für AlignHorizontal und AlignVertical-Werte ungleich Null übergeben, werden die ausgewählten Shapes überlagert angezeigt. Das zuletzt erstellte Shape wird im Vordergrund der Z-Reihenfolge angezeigt.

Das Aufrufen der Align-Methode entspricht dem Klicken auf Position auf der Registerkarte Start und dem anschließenden Festlegen von Optionen unter Shapes ausrichten.

Beispiel

Dieses VBA-Makro (Microsoft Visual Basic für Applikationen) veranschaulicht, wie Sie mit der Align-Methode drei Shapes vertikal ausrichten.

Public Sub Align_Example() 
 
    Dim vsoShape1 As Visio.Shape 
    Dim vsoShape2 As Visio.Shape 
    Dim vsoShape3 As Visio.Shape 
     
    Set vsoShape1 = Application.ActiveWindow.Page.DrawRectangle(1, 9, 3, 7) 
    Set vsoShape2 = Application.ActiveWindow.Page.DrawRectangle(3, 6, 5, 5) 
    Set vsoShape3 = Application.ActiveWindow.Page.DrawRectangle(6, 4, 8, 2) 
 
    ActiveWindow.DeselectAll 
     
    ActiveWindow.Select vsoShape1, visSelect 
    ActiveWindow.Select vsoShape2, visSelect 
    ActiveWindow.Select vsoShape3, visSelect 
     
    Application.ActiveWindow.Selection.Align visHorzAlignRight, visVertAlignNone, False 
 
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.

Share via