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

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

1 个答案: