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