微信公众号:yhjbox(永恒君的百宝箱),获取最新文章、资源。

Excel VBA实例(35) – 一键批量ppt转pdf

Excel VBA 实例 永恒君 125℃ 0评论
相信用过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”(或者类似的名字的),然后再运行。

图片

以上就是关于这个实例的演示,感兴趣的小伙伴可以在微信公号内回复「PPT」获取vba文件进行试用。

如果觉得实用,分享给更多的朋友吧~~~

你可能还会想看:

VBA 实例(34) –  – 快速匹配出名称不完全相同的数据
VBA 实例(33) – 一键提取word中加粗文字
VBA 实例(32) – 批量替换隐藏的神秘字符
VBA 实例(31) – 为VBA代码自定义快捷键
VBA 实例(30) – 为多个sheets创建目录和超链接

欢迎交流!
anyShare分享到:

转载请注明:永恒君的百宝箱 » Excel VBA实例(35) – 一键批量ppt转pdf

喜欢 (8)
发表我的评论
取消评论

*

code

表情