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






  1. VBA / Excel / Access / Word
  2. PowerPoint
  3. Slide Shape

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








Related examples in the same category

1.add a bent-up arrow to the upper-right corner of the penultimate slide in the active presentation:
2.Deleting a Shape
3.Selecting All Shapes
4.Repositioning and Resizing a Shape
5.Copying Formatting from One Shape to Another
6.Finding Out Whether a Shape Has a Text Frame
7.Setting an Animation for a Shape or a Range of Shapes