Shape.IncrementRotation method (Project)
Dreht die Form um die Z-Achse um die angegebene Anzahl von Graden.
Syntax
Ausdruck.
IncrementRotation
(Inkrementierung)
expression Eine Variable, die ein Shape-Objekt darstellt.
Parameter
| Name | Erforderlich/Optional | Datentyp | Beschreibung |
|---|---|---|---|
| Increment | Erforderlich | Single | Die Anzahl der Grad, die die Form gedreht werden soll. Ein positiver Wert dreht die Form im Uhrzeigersinn; ein negativer Wert gegen den Uhrzeigersinn gedreht. |
| Increment | Erforderlich | FLOAT | |
| Name | Erforderlich/Optional | Datentyp | Beschreibung |
Rückgabewert
Nothing
Hinweise
Der Parameter Increment kann ein Wert zwischen -3600 und 3600 sein.
Beispiel
Das folgende Beispiel zeigt den Unterschied zwischen dem Drehen einer Form und dem Drehen eines Formbereichs. Das Beispiel erstellt einen Formbereich, der zwei Zylinder enthält, dreht den Formbereich um 30 Grad im Uhrzeigersinn und dreht dann die zweite Form im Bereich um 30 Grad gegen den Uhrzeigersinn. Wenn Sie einen Haltepunkt für die letzte IncrementRotation-Anweisung festlegen und dann den Code schrittweise durchlaufen, können Sie sehen, wie die Drehung funktioniert.
Sub RotateShapes()
Dim theReport As Report
Dim shp1 As shape
Dim shp2 As shape
Dim shpGroup As shape
Dim reportName As String
Dim sRange1 As ShapeRange
reportName = "Rotate Report"
Set theReport = ActiveProject.Reports.Add(reportName)
Set shp1 = theReport.Shapes.AddShape(msoShapeCan, 20, 30, 100, 100)
Set shp2 = theReport.Shapes.AddShape(msoShapeCan, 140, 30, 100, 100)
Set sRange1 = theReport.Shapes.Range(Array(1, 2))
sRange1.IncrementRotation 30
sRange1(2).IncrementRotation -30
End Sub
Siehe auch
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.