Copy into active current slide

T

Tyrone

Hi Steve, here is the context, instead of pasting it into a named or
numbered slide, just want to copy it into the current slide that is
showing


Sub ThisShouldWorkBetter()

With Presentations.Open("H:\Gallery\Charts.ppt", msoFalse)
.Slides(2).Shapes("StackedCol").Copy
.Close
End With

ActivePresentation.Slides(1).Shapes.Paste

End Sub
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

VB Powerpoint Shapes 5
VBA - (re-) Set a Table Style 2
if statement for VB Powerpoint 8
Need to enable the objects to also be inserted into current slide in normal view, not just a selecte 1
If Statement 2
howto copy shapes from one slide to another during show 3
vba excel to PPT: name excel shape into PPT template with other sh 2
Showing a shape on current slide 5

Top