Freigeben über


Selection.Rotate-Methode (Visio)

Dreht ausgewählte Formen entweder als Gruppe oder einzeln um ihre Pins.

Syntax

Ausdruck. Rotate( _Angle_ , _AngleUnitsNameOrCode_ , _BlastGuards_ , _RotationType_ , _PinX_ , _PinY_ , _PinUnitsNameOrCode_ )

Ausdruck Eine Variable, die ein Selection-Objekt darstellt.

Parameter

Name Erforderlich/Optional Datentyp Beschreibung
Winkel Erforderlich Double Gibt den Winkel an, in dem die Auswahl gedreht werden soll. Mögliche Werte finden Sie in den Hinweisen.
AngleUnitsNameOrCode Optional Variant Gibt die für Angle zu verwendenden Einheiten an. Mögliche Werte finden Sie in den Hinweisen. Standardmäßig werden Gradwerte angegeben.
BlastGuards Optional Boolescher Wert True , um Formeln im ShapeSheet einer der ausgewählten Shapes zu überschreiben, auf die die GUARD-Funktion angewendet wurde; False , um geschützte Formeln unverändert zu lassen. Der Standardwert ist False.
RotationType Optional VisRotationTypes Gibt an, wie die Auswahl gedreht werden soll. Mögliche Werte finden Sie in den Hinweisen.
PinX Optional Double Wenn RotationType gleich visRotateSelectionWithPin ist, wird die X-Position des Drehbezugspunkts angegeben, an dem die Auswahl gedreht werden soll.
PinY Optional Double Wenn RotationType gleich visRotateSelectionWithPin ist, wird die Y-Position des Drehbezugspunkts angegeben, an dem die Auswahl gedreht werden soll.
PinUnitsNameOrCode Optional Variant Gibt die für PinX und PinY zu verwendenden Einheiten an. Mögliche Werte finden Sie in den Hinweisen. Der Standardwert ist mm.

Rückgabewert

Nichts

Bemerkungen

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

Konstante Wert Beschreibung
visRotateSelectionWithPin 1 Dreht die Auswahl um einen Drehbezugspunkt.
visRotateSelection 0 Dreht die Auswahl relativ zur Auswahlmitte.
visRotateShapes 2 Dreht die ausgewählten Shapes um ihre Drehbezugspunkte relativ zum aktuellen Winkel.

Die Übergabe von True für das optionale BlastGuards-Argument überschreibt Formeln im ShapeSheet eines der ausgewählten Shapes, auf die die GUARD-Funktion angewendet wurde.

Der Standardwert für RotationType ist visRotateSelection.

Sie können AngleUnitsNameOrCode oder PinUnitsNameOrCode als ganze Zahl (ein Element von VisUnitCodes) oder als Zeichenfolgenwert angeben, wie z. B. "Bogenmaß" oder "Zoll". Wenn die Zeichenfolge ungültig oder der Einheitencode unzulässig ist (kein Text), wird ein Fehler generiert.

Eine vollständige Liste der gültigen Einheitenzeichenfolgen und der entsprechenden Automatisierungskonstanten (Werte für ganze Zahl) finden Sie unter Informationen zu Maßeinheiten.

Beispiel

Dieses VBA-Makro (Microsoft Visual Basic für Applikationen) veranschaulicht, wie Sie mit der Rotate-Methode eine Auswahl um 45 Grad relativ zur Auswahlmitte drehen.

Public Sub Rotate_Example() 
 
 Dim vsoShape1 As Visio.Shape 
 Dim vsoShape2 As Visio.Shape 
 
 Set vsoShape1 = Application.ActiveWindow.Page.DrawRectangle(1, 9, 3, 7) 
 Set vsoShape2 = Application.ActiveWindow.Page.DrawRectangle(3, 6, 5, 5) 
 
 ActiveWindow.DeselectAll 
 
 ActiveWindow.Select vsoShape1, visSelect 
 ActiveWindow.Select vsoShape2, visSelect 
 
 Application.ActiveWindow.Selection.Rotate 45, visDegrees 
 
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.