I suspect that I need to enumerate all the OleObjectFrame objects in the presentation, but I'm not sure how to get down to that level. My code goes something like this:
Public Overrides Function ItemCount() As Integer
Dim Slide As Slides.Slide
Dim Ole As Slides.OleObjectFrame
Dim I As Integer = 0
For Each Slide In Presentation.Slides
For Each Ole In Slide.Shapes
I += 1
This does not work. I see that OleObjectFrame descends from Shape and Picture Frame, but I cannot access the OleObjectFrames directly from the shapes collection.
Can you recommend anything?