-
Paste on current slide
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
Posting Permissions
- You may not post new threads
- You may not post replies
- You may not post attachments
- You may not edit your posts
-
Forum Rules