Embedded Objects in Powerpoint Documents

Question

Hi,

Is there any way we can see the list of embedded objects in powerpoint documents? I just want to get the total number of embedded files.

regards,

Bibek Dawadi

Answer 1

Hi I have looked at the contents tab in the documents properties window but it only gives me a list of slide titles.

I know there are some large embedded Excel workbooks within my presentation as I can see them when I open the file in an archive viewer.

I have run the above macro but it doesn't seem to do anything. Breakpoints at Debug.Print don't seem to run. I also tried to extended ActivePresentation.Slides to ActivePresentation.Designs as you mentioned but then it gives me a type mismatch exception.

Is there any other way to do this?

Answer 2

Hi,

You can view the embedded servers from the Contents tab in the document properties dialog.

To get a list of shapes which are embedded objects, this should get you started.

Dim oSld As Slide

Dim oShp As Shape

For Each oSld In ActivePresentation.Slides

    For Each oShp In oSld.Shapes

        If oShp.Type = msoPlaceholder Then

            If oShp.PlaceholderFormat.ContainedType = msoEmbeddedOLEObject Then

                Debug.Print "Slide: " & oSld.SlideIndex & " Shape: " & oShp.Name & " index: " & oShp.ZOrderPosition

            End If

        End If

        If oShp.Type = msoEmbeddedOLEObject Then

            Debug.Print "Slide: " & oSld.SlideIndex & " Shape: " & oShp.Name & " index: " & oShp.ZOrderPosition

        End If

    Next

Next

Note: You will need to extend this to Designs if you wish to check the masters for embedded shapes. AlsoContainedTypeproperty****is only available PPT 2007 and later.

Regards,

Shyam Pillai