excel - 尝试使用自定义布局时出现 ActivePresentation 问题

Question

我正在尝试制作一个宏来使用自定义布局创建 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。

知道是什么原因造成的吗？

标签： excelvbapowerpoint