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