Powerpoint VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Powerpoint
  4. 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