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