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