add a bent-up arrow to the upper-right corner of the penultimate slide in the active presentation: : Slide Shape « PowerPoint « VBA / Excel / Access / Word






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

add a bent-up arrow to the upper-right corner of the penultimate slide in the active presentation:

 
Sub bendUp()
    ActivePresentation.Slides(ActivePresentation.Slides.Count 1) _
        .Shapes.AddShape Type:=msoShapeBentUpArrow, Left:=575, Top:=10, _
        Width:=150, Height:=75
End Sub








Related examples in the same category

1.Deleting a Shape
2.Selecting All Shapes
3.Repositioning and Resizing a Shape
4.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:
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