Как я могу выбрать определенный c слайд PowerPoint и скопировать его?

Question

Я ищу простой код VBA, который будет выполнять следующие действия:

-> Открыть спецификацию c Презентация PowerPoint (шаблон)

-> Выбрать спецификацию c слайд, затем продублируйте его

Пока у меня есть это

Sub pres()

    Set PowerPointApp = CreateObject("PowerPoint.Application")
    PowerPointApp.Presentations.Open "C:\Users\myname\Desktop\test.pptx"
    PowerPointApp.Visible = True
    ActivePresentation.Slides(8).Duplicate

End Sub

, которое открывает презентацию, но ничего не делает и возвращает мне ошибку 429.

Кто-нибудь имел бы представление о как сделать это очень простое задание?

Answer 1

Presentations.Open возвращает Presentation объект, который вы должны захватить, например:

Sub pres()
    Dim PowerPointApp as Object
    Set PowerPointApp = CreateObject("PowerPoint.Application")

    Dim myPres as Object
    Set myPres = PowerPointApp.Presentations.Open("C:\Users\myname\Desktop\test.pptx")

    PowerPointApp.Visible = True
    myPres.Slides(8).Duplicate
End Sub