Rotation Property
Returns or sets the number of degrees the specified shape is rotated around the z-axis. A positive value indicates clockwise rotation; a negative value indicates counterclockwise rotation. Read/write Single
Remarks
To set the rotation of a three-dimensional shape around the x-axis or the y-axis, use the RotationX property or the RotationY property of the ThreeDFormat object.
Example
This example matches the rotation of all shapes on myDocument
to the rotation of shape one.
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes
sh1Rotation = .Item(1).Rotation
For o = 1 To .Count
.Item(o).Rotation = sh1Rotation
Next
End With
Applies to | Shape Object | ShapeRange Collection Object