Hello,

I am using PPT 2010 and I am searching for a code which can copy only the content of a particular slides in a different presentation (an autoshape or group of shapes). Currently I am able to insert the whole slide into an active presentation with the below code, but I am not getting correct set of codes to copy just the content of that slide.

Sub slidecontent()
Dim objPresentation As Presentation
Dim i As Integer
Set objPresentation = Presentations.Open("C:\Desktop\repository 1.pptx")
For i = 1 To objPresentation.Slides.Count
objPresentation.Slides.Item(i).Copy
Presentations.Item(1).Slides.Paste
Presentations.Item(1).Slides.Item(Presentations.Item(1).Slides.Count).Desig n = objPresentation.Slides.Item(i).Design
Next i
objPresentation.Close
End Sub


Please can someone me with the correct set of codes.