事情是这样的——上周我老婆突然问我能不能帮她把年终汇报的PPT转成视频，说要在公司内网展示，我第一反应是“PPT自己不是有导出视频功能吗？”结果她告诉我，365版本的PPT导出视频默认只有720p，而且她想要那种带旁白、带动画过渡的完整效果，我试了一下，确实，365的“文件→导出→创建视频”功能限制不少，于是我想：作为一个写Golang的人,能不能写个小工具自动搞定这件事？
为什么不用PPT自带功能？
你先打开365的PPT，点“文件”→“导出”→“创建视频”，你会看到它让你选分辨率，但最高只有1280×720，而且如果你的PPT里有复杂动画，飞入”“旋转”“弹跳”这种，导出后可能变形甚至丢失，最关键的是——它不会自动翻页,除非你手动录屏或者加旁白时间轴。
我查了下微软官方文档，365的PowerPoint其实底层是基于COM组件的，这意味着我们可以用Golang调用Windows的COM接口来操控PPT，既然它能手动操作,理论上代码也能替我们操作。
前期准备：让你的Golang环境能跟PPT对话
在Windows上，你得装一个叫go-ole的库,打开终端：
go get github.com/go-ole/go-ole go get github.com/go-ole/go-ole/oleutil
这个库的作用是让Golang能跟Windows的COM对象交互，PPT就是一个COM对象，我还下载了Microsoft PowerPoint 16.0 Object Library（在VBA编辑器里按F2就能看到引用）。
记得把你的Go版本升级到18以上，因为go-ole用到了泛型的一些特性。
核心代码框架：打开PPT、设置参数、导出视频
我先写了一个最基本的骨架，关键点在于：你需要创建一个PowerPoint.Application对象，然后打开你的.pptx文件，设置导出参数，最后调用ExportAsFixedFormat或CreateVideo方法。
等等——这里有个坑。CreateVideo方法在365的COM接口里叫ExportAsFixedFormat，但它的参数里有个ppFixedFormatTypeVideo枚举值，你得查一下这个值是多少，我翻了微软文档，ppFixedFormatTypeVideo的值是7，别问为什么,微软的枚举就是这么随意。
package main
import (
"fmt"
"log"
"time"
"github.com/go-ole/go-ole"
"github.com/go-ole/go-ole/oleutil"
)
func main() {
ole.CoInitialize(0)
defer ole.CoUninitialize()
unknown, err := oleutil.CreateObject("PowerPoint.Application")
if err != nil {
log.Fatal("创建PPT对象失败:", err)
}
defer unknown.Release()
pptApp, err := unknown.QueryInterface(ole.IID_IDispatch)
if err != nil {
log.Fatal("获取接口失败:", err)
}
defer pptApp.Release()
// 设置可见性，方便调试
oleutil.PutProperty(pptApp, "Visible", true)
// 打开PPT文件
pres, err := oleutil.CallMethod(pptApp, "Presentations.Open", "C:\\你的文件路径\\年终汇报.pptx")
if err != nil {
log.Fatal("打开文件失败:", err)
}
defer oleutil.CallMethod(pres.ToIDispatch(), "Close")
}
打开PPT后，你得设置一些视频参数，比如分辨率、每张幻灯片停留时间、是否包含旁白，这些都可以通过设置SlideShowSettings和ExportAsFixedFormat的参数来实现。
关于分辨率的一个发现
365的COM接口里其实支持1920×1080甚至4K，只是PPT的菜单没给你显示，你只需要在调用ExportAsFixedFormat时，把Resolution参数设成1920就行了，但要注意，如果你的PPT里文字太小，导出1080p后可能看不清，建议至少用1920×1080。
每张幻灯片的时间控制
默认情况下，每个幻灯片停留5秒，你可以在SlideShowTransition里设置AdvanceOnTime和AdvanceTime属性，比如我想让第一页停留10秒（因为开场白长）,后面每页3秒：
slides := oleutil.MustGetProperty(pres.ToIDispatch(), "Slides").ToIDispatch()
count := int(oleutil.MustGetProperty(slides, "Count").Val)
for i := 1; i <= count; i++ {
slide := oleutil.MustGetProperty(slides, "Item", i).ToIDispatch()
transition := oleutil.MustGetProperty(slide, "SlideShowTransition").ToIDispatch()
if i == 1 {
oleutil.PutProperty(transition, "AdvanceOnTime", true)
oleutil.PutProperty(transition, "AdvanceTime", 10) // 10秒
} else {
oleutil.PutProperty(transition, "AdvanceOnTime", true)
oleutil.PutProperty(transition, "AdvanceTime", 3) // 3秒
}
}
这段代码其实有优化空间——比如你可以从配置文件读时间，或者根据幻灯片里的文字数量自动分配时间，但我先硬编码了,毕竟演示用。
实际导出：最关键的一步
当我以为一切顺利时，调用ExportAsFixedFormat报错了，错误提示说参数类型不匹配，我查了半天，发现365的COM接口对参数类型要求很严格，你需要把分辨率、帧率这些参数作为uint32传进去,而且顺序不能乱。
最终调通后的核心代码长这样：
// 设置导出参数
args := []interface{}{
"C:\\输出路径\\视频.mp4", // 输出路径
uint32(7), // ppFixedFormatTypeVideo = 7
uint32(1920), // 宽度
uint32(1080), // 高度
uint32(24), // 帧率 24fps
uint32(1), // 是否包含旁白 1=是
uint32(1), // 是否包含动画 1=是
uint32(1), // 是否包含媒体控件 1=是
uint32(0), // 是否使用PPT默认过渡时间 0=使用自定义
}
_, err := oleutil.CallMethod(pres.ToIDispatch(), "ExportAsFixedFormat", args...)
这段代码跑完，你的桌面上应该出现一个MP4文件，我第一次跑的时候，等了大概7分钟（一个35页的PPT，带几个嵌入视频），时间有点长，但质量比PPT内置导出好太多了——至少是1080p全高清,动画也保留了。
遇到的那些“坑”（费曼式教训）
我必须承认，这个过程不是一帆风顺的，我把踩过的坑列出来,省得你重蹈覆辙：
坑1：COM对象没有释放导致内存泄漏
Golang的垃圾回收管不了COM对象，你必须手动调用Release()，我一开始忘了，结果PPT关不掉,任务管理器里躺了十几个PowerPoint进程。
坑2：路径中不能有空格
ExportAsFixedFormat的路径参数如果包含空格（比如我的 文档），会报错，我最后把所有路径都用下划线代替空格。
坑3：帧率不是越高越好
我试过30fps，结果导出时间翻倍，但视频实际流畅度没提升，因为PPT动画大多是基于时间轴的，24fps就够用了。如果你想省时间，选24。
坑4：嵌入视频的格式问题
如果你的PPT里插入了视频，得确保视频格式是MP4 H.264编码，如果是AVI或者MOV，导出时会丢失，我后来用ffmpeg把非MP4视频全转了一遍。
进阶技巧：添加自定义旁白和背景音乐
如果你想做得更精致，可以在Golang里调用ffmpeg合成音频，比如先让PPT导出无声视频，然后用os/exec执行ffmpeg命令把旁白混进去：
cmd := exec.Command("ffmpeg", "-i", "无声视频.mp4", "-i", "旁白.wav",
"-c:v", "copy", "-c:a", "aac", "-map", "0:v:0", "-map", "1:a:0",
"最终视频.mp4")
err := cmd.Run()
这样你就得到了一个带背景音乐或旁白的视频，不过要注意，PPT自带的旁白时间戳跟你的音轨不一定对齐,需要手动调整。
实际案例：我帮老婆做的那个演讲视频
最后说回我老婆那个项目汇报，她PPT有48页，内容包括文字、图表、一个嵌入的演示视频，我用上面的代码导出，设置每页4秒，但第一页标题页设了15秒，最终生成一个3分12秒的1080p视频，文件大小约180MB，她拿到后直接上传到公司内网,没人看得出来是自动导出的。
那天晚上她问我：“你写这个工具用了多久？”我说：“前后四个晚上吧。”她说：“那你下次能不能直接帮我导出，别写代码了？”我说：“行，但那样我就没法炫耀Golang了。”
收尾的一点感慨
其实写这个工具的过程中，我一直在想：365已经把功能做出来了，为什么不在菜单里开放更多选项？可能因为商业策略，也可能是简化用户体验的考虑，但对我们这种爱折腾的人来说，能用代码绕过去,反而更有意思。
如果你也想在365里把PPT保存为视频，试试Golang吧，虽然路上坑不少，但当你看到那个MP4文件成功生成的一刻,还是会觉得值得的。
对了，如果你遇到ole相关的bug，可以搜一下go-ole的GitHub issue，我就是在那里找到了ppFixedFormatTypeVideo的正确值。
本文来自作者[kyadmin]投稿，不代表be365立场，如若转载，请注明出处：http://www.uss1.cn/nba/596.html
评论列表（4条）
我是be365的签约作者“kyadmin”！
希望本篇文章《在365里把PPT变成视频，一个Golang程序员的实操笔记》能对你有所帮助！
本站[be365]内容主要涵盖：be365,be365网站,be365网址,ball365体育,Be365排名
本文概览：事情是这样的——上周我老婆突然问我能不能帮她把年终汇报的PPT转成视频，说要在公司内网展示，我第一反应是“PPT自己不是有导出视频功能吗...