Works with the first shape on the third slide of the presentation, moving it 100 points to the left and 200 points down, and rotating it 90 degrees counterclockwise: : Slide Shape « PowerPoint « VBA / Excel / Access / Word
Works with the first shape on the third slide of the presentation, moving it 100 points to the left and 200 points down, and rotating it 90 degrees counterclockwise:
Sub shape()
With ActivePresentation.Slides(3).Shapes(1)
.IncrementLeft Increment:=-100
.IncrementTop Increment:=200
.IncrementRotation Increment:=-90 End With End Sub