Sub findole()
Dim osld As Slide
Dim oshp As Shape
For Each osld In ActivePresentation.Slides
For Each oshp In osld.Shapes
If oshp.Type = msoEmbeddedOLEObject Or oshp.Type = msoLinkedOLEObject Then
MsgBox ("OLE object on slide " _
& osld.SlideNumber)
End If
Next oshp
Next osld
End Sub
Hmmm, you just knew I was gonna chime in. <g> You could have the media
player (OLE) embedded, and then have it linked to the media. Ok, not the
same thing but I just had ta...