Copying Formatting from One Shape to Another

 
Sub active()
    With ActivePresentation
        .Slides(2).Shapes(1).PickUp
        .Slides(4).Shapes(3).Apply
    End With
End Sub

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.	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:
6.	Finding Out Whether a Shape Has a Text Frame
7.	Setting an Animation for a Shape or a Range of Shapes

Copying Formatting from One Shape to Another : Slide Shape « PowerPoint « VBA / Excel / Access / Word