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.
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.
This example matches the rotation of all shapes on myDocument to the rotation of shape one.
Set myDocument = ActiveDocument
With myDocument.Shapes
sh1Rotation = .Item(1).Rotation
For o = 1 To .Count
.Item(o).Rotation = sh1Rotation
Next
End With