如何确定 PowerPoint 2010 中的音频文件路径和可用性

Question

我正在复制较小的日期更改，另一个用户创建的幻灯片，该用户经常忘记嵌入音频，而是链接它。

是否有一些简单的方法来确定音频是嵌入还是链接，以及源文件路径是什么（如果链接）？如果我可以运行一个宏来确定这一点，那将会有很大帮助。

不知道如何解决这个问题，但单独打开数十个文件来确定音频是否存在会击败本例中编写的所有其他脚本。

Answer 1

我会这样做：

Sub DetermineAudioLinks()
Dim p As Presentation: Set p = ActivePresentation
Dim s As Slide
Dim sh As Shape

For Each s In p.Slides
    For Each sh In s.Shapes
        If sh.Type = msoMedia Then
            If sh.MediaType = ppMediaTypeSound Then
                Debug.Print "Slide " & s.SlideNumber & ":" ; sh.Name
                If sh.MediaFormat.IsLinked Then
                    Debug.Print vbTab & "Is Linked: True"
                    Debug.Print vbTab & sh.LinkFormat.SourceFullName
                End If
            End If
        End If
    Next
Next
End Sub

请注意，上面的 MediaFormat 属性仅适用于 PowerPoint 2010 - 它不适用于早期版本的 PowerPoint。