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.