OLE objects in Powerpoint

[dragoon]

Hi everyone -

Is there a way to force PowerPoint show up embedded objects somewhere
(either in slides or in properties window)? I have a Powpoint 2003 file
that, if open it in Powerpoint, there is no OLE objects found, but if we
look into the COM objects, it shows there is an OLE objects. the code we
used to detect there is an OLE object is like this:

Dim ppt As PowerPoint.Application
// ...open powerpoint file...
Set PPTDoc = ppt.Presentations.Open(filename, True, True, False)

Dim s As PowerPoint.Shape
For Each s In PPTDoc.SlideMaster.Shapes
If s.Type = Office.MsoShapeType.msoEmbeddedOLEObject And s.Name =
"Base" Then
Debug.Print "hidden object found"
End If
Next

I have the impression that sometimes Powerpoint automatically keeps an old
copy of the original presentation. Is it true? If so, how can we show the
user that there IS an object (no matter what) embedded in it.

Thanks in advance!

 

[dragoon]

Steve -

Thanks for your input. The programid, as you expected, is powerpoint. Is
there a way to force Powerpoint to show this object somehow, or indicate
that there is such an object?