EXCEL-VBAからPowerPointファイルを開いてPDF印刷する方法？

EXCEL-VBAからPowerPointファイルを開いてPDF印刷する方法を検討しています。
Microsoft Print to PDFを使いたいと思っていますが、
なかなかできなく。。。

引数の数が一致していません。
または不正なプロパティを指定しています
になってしまいます。



Sub ppt_PDF()

Dim objPowerPoint As Object
Set objPowerPoint = CreateObject("PowerPoint.Application")

Dim pptFileName As String
Dim pptFileNameFullPath As String

objPowerPoint.Visible = True
objPowerPoint.Presentations.Open2007 (pptFileNameFullPath)

Dim objPresentation As Object
Set objPresentation = objPowerPoint.Presentations(pptFileName)

objPowerPoint.ActivePrinter = "Microsoft Print to PDF on Ne02:"　’←ここでストップ(;^_^A


objPresentation.PrintOptions.FitToPage = msoTrue
objPresentation.PrintOptions.Ranges.ClearAll
objPresentation.PrintOptions.Ranges.Add Start:=1, End:=1
objPresentation.PrintOut From:=1, To:=1
DoEvents
objPresentation.Close


Set objPresentation = Nothing
Set objPowerPoint = Nothing


End Sub

No.1 ベストアンサー 回答者： enunokokoro 回答日時： 2020/04/20 16:04

PowerPointのプリンター指定でポート名（ポート番号）は不要では？

https://docs.microsoft.com/ja-jp/office/vba/api/ …
Excelと違った気がします。
https://docs.microsoft.com/ja-jp/office/vba/api/ …
質問のマクロについては検証していません。

この回答へのお礼

コメントをありがとうございました(>_<)☆

EXCELとは確かに違うようです！

結局、方針として
１）PDFで保存
２）PDFに印刷
と2つの方針がありましたが、１の方法でいくことにしました。

お礼日時：2020/04/30 10:32