Проблема ActivePresentation при попытке использовать пользовательские макеты - PullRequest
Новая
       10

Проблема ActivePresentation при попытке использовать пользовательские макеты

1 голос
/ 25 июня 2019

Я пытаюсь создать макрос для создания презентаций Powerpoint с использованием пользовательских макетов.Вот код: 

Sub PPT_Criar()
    Dim ppApp As Object
    Dim ppPres As PowerPoint.Presentation
    Dim ppSlide As PowerPoint.Slide
    Dim ppTextBox As PowerPoint.Shape
    Set ppApp = CreateObject("PowerPoint.Application")
    Set ppPres = ppApp.Presentations.Add
    ppPres.ApplyTemplate "D:\Users\11111\Documents\Modelos Personalizados do Office\PRES.potx"
    ppApp.Visible = True
    ppApp.Activate

    Set ppSlide = ppPres.Slides.Add(1, ppLayoutBlank)
    ActivePresentation.Slides(1).CustomLayout = ActivePresentation.Designs(Theme2).SlideMaster.CustomLayouts(3)

    ppSlide.Select

    Set ppTextBox = ppSlide.Shapes.AddTextbox(msoTextOrientationHorizontal, 0, 20, 100, 30)
    With ppTextBox.TextFrame2
        .TextRange.Text = EPS
        .TextRange.ParagraphFormat.Alignment = msoAlignCenter
        .TextRange.Font.Size = 26
        .VerticalAnchor = msoAnchorMiddle
    End With
End Sub

Когда я запускаю его, я получаю сообщение об ошибке

"ошибка времени выполнения" 429 "компонент activex не может создать объект"

в строке ActivePresentation.Я пробовал другие способы сделать это, и во всех них я получаю ту же ошибку, где ActivePresentation.

Есть идеи, что вызывает это?

...