使用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。