可如果有一大堆的PPT文件，里面甚至还掺杂着各种后缀类型，比如.ppt,.pptx,*.pps等等，PowerPoint目前貌似还没有很好的批量转换pdf的方式。

网上关于一键批量ppt转pdf的软件也是有的，但是鱼龙混杂，想要找到合适的也不那么容易。

今天永恒君来分享一个直接通过Excel VBA实现一键批量ppt转pdf的方法。

假设我这边有三个ppt文件，分别对应的是.ppt,.pptx,*.pps三种类型。

点击写好的vba按钮，就可以直接转换了。效果如下：

一键就可以快速搞定了。

核心代码如下：

基本思路就是遍历目录下所有的PPT类型文件，然后挨个实现上面另存为这个动作。