Set myDocument = ActiveDocumentWith myDocument.Shapes(1) .IncrementLeft -60 .IncrementTop 30 .IncrementRotation -30End With