Set myDocument = ActiveDocumentWith myDocument.Shapes sh1Rotation = .Item(1).Rotation For i = 1 To .Count .Item(i).Rotation = sh1Rotation NextEnd With