Thanks for the heads up on the creation date thing!
I also use this pptfaq macro.
http://www.pptfaq.com/FAQ00780_Copy_...esentation.htm
Can these lines be incorporated into your code?
Code:
Sub SuperDuper())
Dim oSh as Shape
Dim x as Long
Set oSh=ActiveWindow.Selection.ShapeRange(1)
oSh.Copy
For x = 2 to ActivePresentation.Slides.Count
ActivePresentation.Slides(x).Shapes.Paste
Next
End Sub
The shape I want to copy is on slide 2. It's multiple shapes, actually and they are the only thing on slide 2. So I want to copy everything on slide 2 on top of each pic that was just imported.
Any chance I can get you to make this last change for me?
DJ