Shape.IncrementRotation method (Project)

Dreht die Form um die Z-Achse um die angegebene Anzahl von Graden.

Syntax

Ausdruck. IncrementRotation(Inkrementierung)

Ausdruck 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

HinwBemerkungeneise

Der Parameter Increment kann ein Wert von -3600 bis 3600 sein.

Beispiel

Das folgende Beispiel zeigt den Unterschied zwischen dem Drehen einer Form und dem Drehen eines Formbereichs. Im Beispiel wird ein Formbereich erstellt, der zwei Zylinder enthält, den Formbereich um 30 Grad im Uhrzeigersinn gedreht und dann die zweite Form im Bereich um 30 Grad gegen den Uhrzeigersinn gedreht. 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

Shape-Objekt

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.