This is how to modify Steve's code. I'll leave you to incorporate it as a little exercise!
Sub SuperDuper()
Dim oSh As ShapeRange
Dim x As Long
Set oSh = ActivePresentation.Slides(2).Shapes.Range
oSh.Copy
For x = 3 To ActivePresentation.Slides.Count
ActivePresentation.Slides(x).Shapes.Paste
Next
End Sub
|