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