Freigeben über

ShapeRange.Rotation-Eigenschaft (Publisher)

  • Artikel

Gibt einen Wert vom Typ Single zurück, der die Anzahl von Graden darstellt, die die angegebene Form um die Z-Achse gedreht wird, oder legt diesen Wert fest. Ein positiver Wert bedeutet Drehung im Uhrzeigersinn; ein negativer Wert bedeutet Drehung gegen den Uhrzeigersinn. Lese-/Schreibzugriff.

Syntax

Ausdruck. Drehung

Ausdruck Eine Variable, die ein ShapeRange-Objekt darstellt.

Hinweise

Um die Drehung einer dreidimensionalen Form um die X- oder Y-Achse festzulegen, verwenden Sie die RotationX-Eigenschaft oder die RotationY-Eigenschaft des ThreeDFormat-Objekts .

Beispiel

Das folgende Beispiel passt die Drehung aller Formen auf der ersten Seite der aktiven Publikation an die Drehung der ersten Form an. In diesem Beispiel wird davon ausgegangen, dass auf der ersten Seite der aktiven Publikation mindestens zwei Shapes vorhanden sind.

Sub SetShapeRotation() 
 Dim sngRotation As Single 
 Dim intCount As Integer 
 With ActiveDocument.Pages(1).Shapes 
 sngRotation = .Item(1).Rotation 
 For intCount = 1 To .Count 
 .Item(intCount).Rotation = sngRotation 
 Next intCount 
 End With 
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.