View Single Post
 
Old 01-16-2015, 09:10 AM
JohnWilson JohnWilson is offline Windows 7 64bit Office 2010 32bit
Programmer
 
Join Date: Nov 2008
Location: UK
Posts: 1,913
JohnWilson has a spectacular aura aboutJohnWilson has a spectacular aura about
Default

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
__________________
Microsoft PowerPoint MVP 2007-2023
Free Advanced PowerPoint Tips and Tutorials
Reply With Quote