copy a slide of a powerpoint presentation in Excel/VBA

[scylllla]

Hi,

Im trying to copy a slide in a ppt using the following code:

Sub openppt()
    Dim PowerPointApp As PowerPoint.Application
    Set PowerPointApp = CreateObject("PowerPoint.Application")
    
    PowerPointApp.Presentations.Open ("C:\test\template.pptx")
    ActivePresentation.Slides(1).Duplicate
End Sub

the ppt opens correctly but everything I trying to do with it results in a error:

"activex component can't create object"

what is going wrong here?

 

[Domenic]

You'll need to qualify your reference...

PowerPointApp.[COLOR=#574123]ActivePresentation.Slides(1).Duplicate[/COLOR]

Also, since you're using early binding, you can use the New keyword instead of CreateObject to create an instance of the PowerPoint Application object...

Set PowerPointApp = New PowerPoint.Application

Also, your code can be re-written as follows...

Sub openppt()
    Dim PowerPointApp As PowerPoint.Application
    Set PowerPointApp = New PowerPoint.Application
    
    Dim PowerPointPres As PowerPoint.Presentation
    Set PowerPointPres = PowerPointApp.Presentations.Open("C:\test\template.pptx")
    
    PowerPointPres.Slides(1).Duplicate
End Sub

Hope this helps!

 

[scylllla]

That helps a lot. Thx! Extra question: How do I place the new slide at the right destination, I mean I want to put it at the end or just as number 7.

 

[Domenic]

To move the duplicate slide after the last slide in the presentation, try...

Sub openppt()
    Dim PowerPointApp As PowerPoint.Application
    Set PowerPointApp = New PowerPoint.Application
    
    Dim PowerPointPres As PowerPoint.Presentation
    Set PowerPointPres = PowerPointApp.Presentations.Open("C:\test\template.pptx")
    
    Dim PowerPointSlideRange As PowerPoint.SlideRange
    Set PowerPointSlideRange = PowerPointPres.Slides(1).Duplicate
    
    With PowerPointPres
        PowerPointSlideRange(1).MoveTo toPos:=.Slides.Count
    End With
    
End Sub

To move the duplicate slide to a specific location, let's say 7, replace...

    With PowerPointPres
        PowerPointSlideRange(1).MoveTo toPos:=.Slides.Count
    End With

with

PowerPointSlideRange.MoveTo toPos:=7

Alternatively, instead of using the Duplicate method, you can use copy/paste. So, for example, to copy the first slide and paste it after the last slide in the presentation...

    With PowerPointPres
        .Slides(1).Copy
        .Slides.Paste
    End With

To place it at a specific location...

    With PowerPointPres
        .Slides(1).Copy
        .Slides.Paste Index:=7
    End With

Hope this helps!

 

[scylllla]

With PowerPointPres
PowerPointSlideRange(1).MoveTo toPos:=.Slides.Count
End With
​

This moves slide 1 to the last position isn't it? this works because slide 1 and the new slide are equal. But it's not the duplicated slide. normally that would be slide 2. But we aren't sure about that.I would expect I could give the destination in the duplicate commando. But I can try the copy paste variant you gave me. Im going to give it a try

 

[Domenic]

The Duplicate method does not allow one to specify the destination. It simply creates a duplicate of the specified slide, and then places it immediately after the specified slide. Here's the Microsoft reference for the Duplicate method...

https://docs.microsoft.com/en-us/of...tFrameworkMoniker-Office.Version=v16)&rd=true

 

[Billy Bryant]

You'll need to qualify your reference...

PowerPointApp.[COLOR=#574123]ActivePresentation.Slides(1).Duplicate[/COLOR]

Also, since you're using early binding, you can use the New keyword instead of CreateObject to create an instance of the PowerPoint Application object...

Set PowerPointApp = New PowerPoint.Application

Also, your code can be re-written as follows...

Sub openppt()
    Dim PowerPointApp As PowerPoint.Application
    Set PowerPointApp = New PowerPoint.Application
   
    Dim PowerPointPres As PowerPoint.Presentation
    Set PowerPointPres = PowerPointApp.Presentations.Open("C:\test\template.pptx")
   
    PowerPointPres.Slides(1).Duplicate
End Sub

Hope this helps!

Finally, I found the solution, thanks!