Mega Code Archive

 

Categories / VisualBasic Script / Powerpoint

 

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