相信用过PPT的小伙伴们都知道，现在的PowerPoint支持直接将现有的PPT文件转换为PDF文件，方法就是 文件 – 另存为，选择保持类型为PDF文件 即可，如下图：
可如果有一大堆的PPT文件，里面甚至还掺杂着各种后缀类型，比如 .ppt, .pptx,*.pps等等，PowerPoint目前貌似还没有很好的批量转换pdf的方式。
网上关于 一键批量ppt转pdf 的软件也是有的，但是鱼龙混杂，想要找到合适的也不那么容易。
今天永恒君来分享一个直接通过Excel VBA实现一键批量ppt转pdf的方法。
假设我这边有三个ppt文件，分别对应的是 .ppt, .pptx,*.pps三种类型。
点击写好的vba按钮，就可以直接转换了。效果如下：
一键就可以快速搞定了。
核心代码如下：
基本思路就是遍历目录下所有的PPT类型文件，然后挨个实现上面另存为这个动作。
说明一下： 因为不同的office版本可能会存在差异，不一定适合于所有的系统、Office环境，永恒君这边的环境是win10、office2016，供参考。
如果你那边运行出错，可以先试试在VBE界面，工具 – 引用，勾选“Microsoft PowerPoint 16.0 Object Library”（或者类似的名字的），然后再运行。
以上就是关于这个实例的演示，感兴趣的小伙伴私信获取vba文件进行试用。
如果觉得实用，分享给更多的朋友吧~~~
你可能还会想看：
VBA 实例(34) – – 快速匹配出名称不完全相同的数据VBA 实例(33) – 一键提取word中加粗文字VBA 实例(32) – 批量替换隐藏的神秘字符VBA 实例(31) – 为VBA代码自定义快捷键VBA 实例(30) – 为多个sheets创建目录和超链接
欢迎交流！