vba - 使用 VBA 从 powerpoint 导出视频

Question

我想使用 VBA 从 powerpoint 导出视频。该视频是从 PC 上传的，未使用链接。我看到使用这行代码的图像可以做到这一点：

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

但我不能对视频做同样的事情。

Answer 1

Do you simply need to extract the original video from the PPTX file? If so, rename the file to give it a .ZIP extension, open the zip file, browse for the media folder and in it, you'll find copies of any inserted (but not linked) sounds, videos and pictures.

If you have routines for working with ZIP files in VBA, you could probably work out how to do the same thing.

A possible alternative: size the video to fill the slide, then use PPT's SaveAs method to save as a WMV.