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
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