PowerPoint 2013：如何使用 VBA 以编程方式嵌入链接视频？

Question

我有很多带有链接视频的 PowerPoint 演示文稿（存储在与演示文稿本身位于同一路径的单独的 .wmv 或 .avi 文件中）。

为了使演示文稿“可移植”（例如在 MS SharePoint 中共享它们），我需要嵌入视频以获取每个演示文稿的单个文件。

我发现了一个可以做到这一点的程序，它在文章中描述： 优化演示文稿中的媒体以实现兼容性。

一般来说，你必须：

• 断开链接
• 优化媒体兼容性
• 保存更改。

我想自动化该过程并使用 VBA 对所有打开的 PowerPoint 演示文稿文件执行该操作，但我在互联网上找不到如何使用 VBA 执行该操作的示例。

哪些是必需的命令：

• 破坏演示文稿中的所有链接
• 优化媒体兼容性？

Answer 1

尝试以下代码，对打开的演示文稿中的每个链接媒体进行重新采样。

Sub Embed()
Dim l As Slide
Dim s As Shape
Dim oDoc As Presentation

On Error Resume Next
For Each oDoc In Application.Presentations
    For Each l In oDoc.Slides
        For Each s In l.Shapes
            With s.MediaFormat
                If .IsLinked And s.MediaType = ppMediaTypeMovie Then
                    .Resample False, .SampleHeight, .SampleWidth, _
                             .VideoFrameRate, .AudioSamplingRate
                End If
            End With
        Next
    Next
oDoc.Save
Next
End Sub

对于你的第一次测试“请勿在您的原始演示文稿中使用此代码“
此代码按“原样”提供，不提供任何担保，我已在我的演示文稿上测试过并且运行良好。