응용 프로그램을 보지 않고 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 라인을 제거합니다.

주석에서 언급했듯이 오류 처리기도 수정해야합니다. 이 경우 가장 좋은 해결책은 완전히 제거하는 것입니다. GetObject은 기존 인스턴스가있는 경우이를 반환합니다. 나는 당신이 "새로운 PPT를 만들자"라고 말하면 을 말하지 않는다.은 "실행중인 PowerPoint 인스턴스가 있으면 첨부하고, 그렇지 않으면 새로운 인스턴스를 만듭니다"라고 가정합니다. 그것이 현재 귀하의 코드가하는 것입니다.

또한 의견에서 언급 한 것처럼 Microsoft PowerPoint X.X Object Library (Dim pptApp As PowerPoint.Application으로 입증 됨)에 대한 참조가있는 경우 CreateObject을 사용하면 안됩니다. 그것은 후기 바인딩을위한 것입니다. 참조가있는 경우 조기 바인딩을 사용하십시오.

마지막으로 PowerPoint.Application을 만들면 이 기본적으로 표시되지 않습니다.입니다. 이 한 줄로 줄여서 코드를 "수정"할 수 있습니다 :

Set pptApp = New PowerPoint.Application