VBA从Powerpoint演示中导出嵌入式视频

Question

我正在尝试将整个演示文稿转换为HTML，从中提取所有嵌入的内容等。我有文字，音频，叙述等一切正常，但我很难找到如何导出视频内容。

循环播放演示文稿中的所有幻灯片，然后循环播放幻灯片上的所有形状，查找msoMedia类型的形状。如果我找到一个，那么我检查它是MediaType。如果它是ppMediaTypeMovie，那么我可以使用Shape.LinkFormat.SourceFullName找到外部链接视频文件的源文件，但我不能在我的生活中找到如何访问EMBEDDED内容。

如果我找到MediaType ppMediaTypeSound的形状，那么我可以使用Shape.SoundFormat.Export导出音频。有人知道VIDEO形状的等价物吗？ （没有Shape.VideoFormat）我花了好几天时间查看每个可能的数据成员，但无济于事。

Answer 1

无论如何，Microsoft似乎将媒体文件的内容提取到临时文件夹，嵌入的视频仍然为提取的视频提供了LinkFormat.SourceFullName：

?oshape.LinkFormat.SourceFullName

C:\Users\Alex\AppData\Local\Microsoft\Windows\Temporary Internet Files\Content.MSO\F26FF1D0.m4v

我需要做的就是通过ffmpeg激活这个文件，我的视频就是我想要的格式！

感谢您的帮助：）

Answer 2

注意：在最近的PPT版本中，您可能会发现.Export方法不适用于嵌入式声音。

亚历克斯的建议是我首先要研究的;否则你可以解压缩PPTX / PPSX /等，并在媒体文件夹中找到视频。或者您可以尝试保存为XML演示文稿;你或许可以从中解析视频。