Works with the first shape on the third slide of the presentation, moving it 100 points to the left and 200 points down, and ro
Sub shape() With ActivePresentation.Slides(3).Shapes(1) .IncrementLeft Increment:=-100 .IncrementTop Increment:=200 .IncrementRotation Increment:=-90 End With End Sub