如何在不查看应用程序的情况下使用 Excel VBA 创建 PowerPoint

Question

我想知道如何从 Excel VBA（我已经有代码）创建一个新的 PPT，但在创建时看不到应用程序。我发现了一些见解，但它仅在打开现有的 PPT 文件时才有效，但我正在创建一个新文件。

Dim pptApp As PowerPoint.Application
Dim pptPres As PowerPoint.Presentation
Dim pptSlide As PowerPoint.Slide
Dim pptShape As PowerPoint.Shape
Dim excelTable As Excel.Range
Dim SlideTitle As String
Dim SlideText As String
Dim SlideObject As Object
Dim pptTextbox As PowerPoint.Shape
Dim SlideNumber As String

On Error Resume Next
Set pptApp = New PowerPoint.Application
Err.Clear

Set pptPres = pptApp.Presentations.Add
pptPres.PageSetup.SlideSize = ppSlideSizeOnScreen

Answer 1

在 PowerPoint.Application 上调用 .Active 就是这样做的 - 它会激活它，从而使窗口可见：

Dim ppt As PowerPoint.Application
Set ppt = New PowerPoint.Application
Debug.Print ppt.Visible  '<--Prints 0 (msoFalse)
ppt.Activate             '<--THIS SHOWS THE WINDOW.
Debug.Print ppt.Visible  '<--Prints -1 (msoTrue)

只需完全删除pptApp.Activate 行。

如 cmets 中所述，您还需要修复错误处理程序。在这种情况下，最好的解决方法是完全删除它。 GetObject 如果存在，则返回现有实例。我假设当您说“创建一个新的 PPT”时，您不是的意思是“附加到正在运行的 PowerPoint 实例（如果存在），否则创建一个新的”。这就是您的代码当前所做的。

同样如 cmets 中所述，如果您引用了 Microsoft PowerPoint X.X 对象库（由 Dim pptApp As PowerPoint.Application 证明），您也不应该使用 CreateObject。那是为了后期绑定。如果您有参考，请使用早期绑定。

最后，当您创建 PowerPoint.Application 时，它默认情况下是不可见的。您可以通过将代码减少到这一行来“修复”您的代码：

Set pptApp = New PowerPoint.Application