Copy into active current slide

  • Thread starter Thread starter Tyrone
  • Start date Start date
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
 
Hi Tyrone,

It'd help if you could reply to previous posts instead of starting a new thread
by posting a new message. That way we can see how all this fits together.

OK. End of lecture. ;-)

Do you need to paste into the current slide while you're in normal or slide
view?

If so:

ActiveWindow.Selection.SlideRange(1).Shapes.Paste

Or if in a slide show:

SlideShowWindows(1).View.Slide.Shapes.Paste
' And to force a redraw so you can see the result:
SlideShowWindows(1).View.GoToSlide(SlideShowWindows(1).View.Slide.SlideIndex)
 
Back
Top