Comment déterminer le chemin et la disponibilité du fichier audio dans PowerPoint 2010

Question

Je duplique avec des changements mineurs de date, des diaporamas créés par un autre utilisateur, qui oublie constamment d'intégrer de l'audio, mais le lie à la place.

Existe-t-il un moyen simple de déterminer si l'audio est incorporé ou lié, et quel est le chemin du fichier source, s'il est lié? Si je pouvais lancer une macro pour déterminer cela, cela aiderait énormément.

Vous ne savez pas comment aborder cela, mais en ouvrant individuellement des dizaines de fichiers pour déterminer l'audio, vous annulez tout ce qui est scripté dans ce cas.

Answer 1

C'est ainsi que je le ferais:

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 

Notez le bien MediaFormat ci-dessus est PowerPoint 2010 seulement - il ne fonctionnera pas avec les versions antérieures de PowerPoint.