VBA中Powerpoint应用程序的运行时错误430

Question

我想通过VBA代码创建PowerPoint演示文稿，我也选择了工具中的库（早期绑定）参考。 但是我无法通过VBA创建Powerpoint应用程序。 我写了下面的代码，并由于“类不支持自动化或不支持预期的接口”而出现错误 。 您能否帮助解决问题。

Sub CreatePPT()

Dim MYPPT As PowerPoint.Application
Set MYPPT = New PowerPoint.Application

With MYPPT

    .Visible = msoTrue
    .Activate

End With

End Sub

Answer 1

您应该添加一个演示文稿：

Sub CreatePPT()

Dim MYPPT As PowerPoint.Application
Set MYPPT = New PowerPoint.Application

Dim PPTPresent as PowerPoint.Presentation

With MYPPT

    .Visible = msoTrue
     set PPTPresent = .Presentations.add
End With

End Sub