Type Mismatch Error While Duplicating a Powerpoint Slide in VBA

[aakash_sehgal]

Hello,

I Need to duplicate a slide and then write onto that slide. My code duplicates the slide but just after gives a type mismatch error. Any help ?

Set pptSlide = oPPTApp.ActivePresentation.Slides(1).Duplicate

where dim pptSlide as PowerPoint.Slide, dim oPPTApp as Powepoint.Application

 

[RoryA]

Duplicate returns a SlideRange object, not a Slide. Try:

Set pptSlide = oPPTApp.ActivePresentation.Slides(1).Duplicate.Item(1)

 

[aakash_sehgal]

thanks alot. It works

 

[aakash_sehgal]

HI,

This command works for me but it adds a slide before the current slide. I want the duplicated slide to be added after the current slide. Any suggestions ?

 

[RoryA]

Duplicate doesn't take any arguments so you need to use the MoveTo method on your returned Slide object to determine where it goes.