Mega Code Archive

 

Categories / VisualBasic Script / Powerpoint

 

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