用EXCEL VBA实现将ppt转换成pdf

肉馅小皎

求助大家
如何在excel中实现打开一个ppt，并将其转换成pdf？

打开的那一步已经实现了，可是如何转换成pdf呢？ppt 2010无法录制宏，所以求助各位大神

小的不胜感激！

Day-Day

为何需要用VBA呢，直接转化不就行了吗？

肉馅小皎

Day-Day 发表于 2015-9-2 13:27
为何需要用VBA呢，直接转化不就行了吗？

因为要批量给300多个ppt转，但是你如果有软件推荐也是很好的！

andy800529

挖坟了，但是这个问题有好的解决方案吗？

尚左

最近在做报告自动化的项目，最后一步也有这样的需求，通过查资料找到了以下解决方案：

注：需要使用前期绑定，若使用后期绑定，导出pdf的那一步会报错（类型不匹配），还请论坛高人指点解决办法----我也挖个坑。

Sub test()
Dim pptApp As PowerPoint.Application
Dim pptDoc As PowerPoint.Presentation
Dim OutputFile As String
OutputFile = "C:\Users\模版.pptx"     'ppt的路径
Set pptApp = New PowerPoint.Application
Set pptDoc = pptApp.Presentations.Open(OutputFile)
pptDoc.ExportAsFixedFormat pptDoc.Path & "\" & "导出报告名称.pdf", ppFixedFormatTypePDF, ppFixedFormatIntentPrint

pptDoc.Close
pptApp.Quit
Set pptDoc = Nothing
Set pptApp = Nothing

End Sub

minjiantailang

尚左 发表于 2018-5-25 13:58
最近在做报告自动化的项目，最后一步也有这样的需求，通过查资料找到了以下解决方案：

注：需要使用前期 ...

哈喽，童鞋，请教下问题解决了吗

尚左

minjiantailang 发表于 2018-10-10 11:02
哈喽，童鞋，请教下问题解决了吗

可以暂时使用我给出的“前期绑定”的方法（也是能实现导出pdf目标的），后期绑定的方法就需要其他有缘人帮忙解决了

weiyingde

尚左 发表于 2018-10-22 17:29
可以暂时使用我给出的“前期绑定”的方法（也是能实现导出pdf目标的），后期绑定的方法就需要其他有缘人 ...

据我所知，并非如此。
无论前期和后期绑定都行。
关键一步是：
dim pptdoc as POWERPOINT. Presentation
这一步万万不能省略。