Excel에서 VBA를 사용하여 PowerPoint에서 SlideSize를 변경하십시오.

Question

저는 수많은 Excel 워크 시트를 PowerPoint 프레젠테이션으로 변환하는 VBA 코드 작업을하고 있습니다. 코드가 잘 작동하지만 인쇄용으로 SlideSize를 A4 형식으로 변환해야합니다. 프리젠 테이션을 만들 때 회사의 템플릿을 사용하고 있습니다. 이 템플릿으로 새 PPT를 만들면 항상 A4에 있습니다. 내 코드가 4 : 3에 생성됩니다. PageSetup에서 SlideSize가 변경되지 않습니다. 잘못된 열거 값 :

Dim oPP As Object 
Dim oPPT As Object 
Dim oPPTslide As Object 

Set oPP = CreateObject("PowerPoint.Application") 
oPP.Visible = True 
Set oPPT = oPP.Presentations.Add 
oPPT.ApplyTemplate {Template Name and Path} 
oPPT.PageSetup.SlideSize = ppSlideSizeA4Paper  

난 항상 오류 PageSetup.SlideSize를 얻을 : 여기

내 코드의 발췌 한 것입니다.

Answer 1

후기 바인딩을 사용하여 PowerPoint를 자동화하는 경우 상수를 정의해야합니다.

Const ppSlideSizeA4Paper = 3