工作中遇到了需要將PPT轉(zhuǎn)換成視頻的情況，查詢了資料，發(fā)現(xiàn)python的moviepy庫比較好用

#!/usr/bin/python # -*- coding: UTF-8 -*-import os from win32com.client import Dispatch, gencache from time import sleep from shutil import rmtree from re import findall from os.path import join,splitext,dirname from moviepy.editor import ImageSequenceClipdef ppt2mp4(ppt_fn):picture_dir = splitext(ppt_fn)[0]powerpoint = Dispatch("PowerPoint.Application")powerpoint.Visible = True#將PPT拆分為一張張圖片ppt1 = powerpoint.Presentations.Open(ppt_fn)gencache.EnsureDispatch('PowerPoint.Application')ppt1.SaveAs(f"{picture_dir}.jpg",17)ppt1.Close()if not powerpoint.Presentations:powerpoint.Quit()pictures = [join(picture_dir,fn)for fn in os.listdir(picture_dir)if fn.endswith(".jpg")]pictures.sort(key=lambda fn:int(findall(r'\d+',fn)[-1]))#設(shè)置視頻時(shí)長為60秒num = len(pictures)durations = [float(str(60/num)[:4])] * num(ImageSequenceClip(pictures,durations=durations).write_videofile(rf'{splitext(ppt_fn)[0]}_video.mp4',codec='libx264',fps=24))# clip = ImageSequenceClip(pictures,durations=durations,fps=24)# clip.write_videofile("test.mp4")rmtree(picture_dir)if __name__ == '__main__':ppt2mp4(“PPT路徑”)

批量處理后發(fā)現(xiàn)有一些視頻生成之后無法播放，目前還不確定是什么原因，待處理

總結(jié)

以上是生活随笔為你收集整理的Python MoviePy将PPT转为视频的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。