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