Excel VBA에서 PowerPoint 저장

Question

엑셀 파일의 일부 이미지로 구성된 새로운 파워 포인트를 만드는 코드가 있습니다. 이름을 정의하기 위해 문자열 변수를 사용하여 파일을 저장하려고합니다. 나는 성공을위한 해결책을 찾고있는 나의 실사를 했어. 내가 완성하려고하는 기본적인 작업의 기초에 기초하여 나를 놀라게한다. 현재로서는, 나는 ...

newPowerPoint.ActivePresentations.SaveAs filenamestring, 1 
newPowerPoint.ActivePresentations.Close 

하지만 오류 메시지가 계속 발생합니다. 나는 newPowerPoint는 다른 모듈

Public newPowerPoint As powerpoint.Application 

어떤 제안에 public으로 정의?

Answer 1

실제로 Powerpoint.Application 인스턴스를 만들지 않고도 oPPTApp 변수의 크기를 조정한다고 생각합니다.

Public ppApp As PowerPoint.Application 

Sub PPTFile() 

Dim ppPres As Presentation 
Dim fileNameString As String 

fileNameString = "C:\testPPT.pptx" '<change to your file path/name 

'Create an instance of PPT to work with 
Set ppApp = CreateObject("Powerpoint.Application") 
ppApp.Visible = True 

'Create a new presentation (or you can access an existing file with ppApp.Presentations.Open 
Set ppPres = ppApp.Presentations.Add 

'Save: 
ppPres.SaveAs fileNameString, 1 

'Quit the instance of PPT that you initiated above. 
ppApp.Quit 

End Sub 

편집

당신이 AddSlide 방법을 사용하여 슬라이드를 추가하는 것처럼, 당신은 CustomLayout를 참조 할 필요가있다.

Dim sldCount As Integer 

sldCount = ppPres.Slides.count 
ppPres.Slides.AddSlide sldCount + 1, ppPres.Slides(sldCount).CustomLayout 
'Once you've added the slide, then set using Layout: 
ppPres.Slides(sldCount + 1).Layout = ppLayoutBlank 

다른 방법으로는 (A CustomLayout 필요) 이전 .AddLayout 인수를 받아들이는 방법, 대신 .AddSlide를 사용할 수 있습니다

ppPres.Slides.Add sldCount + 1, ppLayoutBlank