Как создать PowerPoint с Excel VBA, не видя приложения

Question

Я хочу знать, как я могу создать новый PPT из Excel VBA (у меня уже есть код), но не вижу приложение во время его создания. Я нашел некоторые идеи, но он работает только тогда, когда он открывает существующий файл 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

Вызов .Active на PowerPoint.Application делает именно это - он активирует его, что делает окно видимым:

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 линию полностью.

Как уже упоминалось в комментариях, вам также необходимо исправить ваш обработчик ошибок. В этом случае лучшим решением является его полное удаление. GetObject возвращает существующий экземпляр, если он существует. Я предполагаю, что когда вы говорите «создайте новый PPT», что вы не означает «приложить к запущенному экземпляру PowerPoint, если он существует, в противном случае создать новый». Это то, что делает ваш код в настоящее время.

Также, как указано в комментариях, если у вас есть ссылка на библиотеку объектов Microsoft PowerPoint X.X (как видно из Dim pptApp As PowerPoint.Application), вы также не должны использовать CreateObject. Это для позднего связывания. Если у вас есть ссылка, используйте раннюю привязку.

Наконец, при создании PowerPoint.Application, это по умолчанию не отображается. Вы можете «исправить» свой код, уменьшив его до одной строки:

Set pptApp = New PowerPoint.Application