Как определить путь к аудиофайлу и доступность в PowerPoint 2010

Question

Я дублирую с незначительными изменениями даты, слайд-шоу, созданными другим пользователем, который постоянно забывает встроить аудио, но вместо этого связывает его.

Есть ли какой-то простой способ определить, является ли звук встроенным или связанным, икаков путь к исходному файлу, если он связан?Если бы я мог запустить макрос, чтобы просто определить это, это очень помогло бы.

Не знаю, как к этому подойти, но индивидуальное открытие десятков файлов для определения звука - это повреждает все остальное, что в сценарии в этом случае *.1005 *

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.