使用VBA從powerpoint導出視頻

Question

我想使用VBA從powerpoint導出視頻。該視頻是從PC上傳的，並未使用鏈接。我看到，這是可能的圖像使用這行代碼：

ActivePresentation.Slides(1).Shapes(1).Export "C:\Cover.PNG", ppShapeFormatPNG 

但我不能做同樣的視頻。

Answer 1

您是否只需要從PPTX文件中提取原始視頻？如果是這樣，請重命名該文件以使其具有.ZIP擴展名，打開zip文件，瀏覽媒體文件夾並在其中找到任何插入的（但未鏈接的）聲音，視頻和圖片的副本。

如果你有在VBA中使用ZIP文件的例程，你可能會弄清楚如何做同樣的事情。

一種可能的選擇：調整視頻大小以填充幻燈片，然後使用PPT的SaveAs方法保存爲WMV。