Excel VBA Duplicating a Slide in PowerPoint

Question

I am working on exporting Contents from Excel to PowerPoint. I have a blank formatted slide in my PowerPoint presentation which I Need to duplicate everytime and write on it. The Problem is that my code adds a new slide ahead of the current slide which is posing Problems in writing the Contents to the exact slide number. I want that the new slide should be added after the current slide.

        Set pptSlide = oPPTApp.ActivePresentation.Slides(1).Duplicate.Item(1)
        oPPTFile.Slides(SlideNum).Select
        Set oPPTShape = oPPTFile.Slides(SlideNum).Shapes("Table 1")

any Suggestions ?

Try removing .Item(1) from your first line. According to the documentation of .Duplicate(), pptSlide should be the second slide already. — Verzweifler
– Verzweifler, Commented Apr 14, 2016 at 13:44
@VerzweiflerAfter removing .Item(1), it gives a Type Mismatch Error as .Duplicate Returns a range and not a slide. — Nikky
– Nikky, Commented Apr 14, 2016 at 13:47
I'm not sure I understand the problem "my code adds a new slide ahead of the current slide" versus what you want "I want that the new slide should be added after the current slide". Also, are you trying to write to the duplicate slide or a different slide identified by SlideNum? If the later, how is SlideNum being set as adding a duplicate will change the indexing of the slides collection? — Jamie Garroch - MVP
– Jamie Garroch - MVP, Commented Apr 14, 2016 at 13:54
@JamieG I have a complex procedure of writing. In short there are places where I Need to increment the slide number and then there are places where the slide number remains the same. I am adding a duplicate slide, fetching ist slide number and then writing on it. That is why I want the duplicate slide to be added after the current slide, not before it — Nikky
– Nikky, Commented Apr 14, 2016 at 14:21
You already have a reference to the relevant slide (pptSlide) so why are you referring to the count of slides? Also posted: mrexcel.com/forum/excel-questions/… — Rory
– Rory, Commented Apr 14, 2016 at 14:38

Steve Rindsberg · Accepted Answer · 2016-04-14 15:28:56Z

2

There's almost NEVER a good reason to select anything when automating PPT. Assuming a shape named Table 1 on Slide 1, this should do what you want:

Dim oSl As Slide
Dim oSh As Shape

Set oSl = ActivePresentation.Slides(1).Duplicate()(1)
Set oSh = oSl.Shapes("Table 1")

answered Apr 14, 2016 at 15:28

Steve Rindsberg

14.9k1 gold badge32 silver badges37 bronze badges

Sign up to request clarification or add additional context in comments.

Comments

scott cannon · Accepted Answer · 2020-01-24 01:19:44Z

0

ActivePresentation.Slides.Range(1).Cut

ActivePresentation.Slides.Paste -1

this function will move the first slide to the last. so it stands to reason you could figure out a formula to keep track of where you want the slide inserted. if you need to know how many slides are in the range it's ActivePresentation.Slides.Range.count

answered Jan 24, 2020 at 1:19

scott cannon

1

1 Comment

Munkhdelger Tumenbayar Over a year ago

should be better with example

Collectives™ on Stack Overflow

Excel VBA Duplicating a Slide in PowerPoint

2 Answers 2

Comments

1 Comment

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

Comments

1 Comment

Your Answer

Sign up or log in

Post as a guest

Related