Sub Test() Dim s As Shape For Each s In ActivePage.Shapes If s.RotationAngle <> 0 Then s.RotationAngle = 0 End If Next sEnd Sub