[PowerPoint] VBAでPDF変換する方法(PPT to PDF)

Dim prng As PrintRange
ActivePresentation.PrintOptions.Ranges.ClearAll
Set prng = ActivePresentation.PrintOptions.Ranges.Add(1, 3)
'1~3ページを指定(スライド数が指定よりも少ない場合はエラー)

ActivePresentation.ExportAsFixedFormat "C:hogehoge.pdf", _
ppFixedFormatTypePDF, , , , , , prng, ppPrintSlideRange, , , , , , False
twitterfacebookhatenafacebook