Hello,

I am trying to copy a group of shapes from a slide in another PPT file and paste on the slide in the current active PPT file.

Following is the code i am working on, it copies the grouped shapes but does not paste.

Sub copy_group8()
Dim objPres As Presentation
Set objPres = Presentations.Open("\\Desktop\file1.pptx")

Dim ppshape As Object
objPres.Slides.Item(1).Shapes("Group 8").Copy
Set ppshape = activewindow.Selection.SlideRange.Shapes.Paste

objPres.Close


End Sub

Please can I get some help correcting the above code to paste the copied shapes on the current slide.

Thanks