Using VBA to locate embeded charts in powerpoint

[nikulina]

For security reasons l need to make sure that my powerpoint files do not have embeded charts in them. I.e. charts that you can click on and the excel file is displayed.

I was wondering if anyone can think of some VBA code to find embded charts, but ignoring pictures of graphs etc. All l would need is an error box if the code finds one!

I am only just learning VB and would appreciate any and all help.

Many thanks in advance

 

[ZVI]

Hi,

Try this in PowerPoint VBA:

' VBA PowerPoint
Sub FindEmbedded()
  Dim sld As Slide, sh As Shape, i As Long
  For Each sld In ActivePresentation.Slides
    For Each sh In sld.Shapes
      If sh.Type = msoEmbeddedOLEObject Then
        i = i + 1
        sh.Select
        If MsgBox("Embedded OLE Objects found: " & i & vbLf & _
               "ID = " & sh.OLEFormat.progID & vbLf & vbLf & _
               "Continue?", vbYesNo, _
               "Scan of embedded objects") <> vbOK Then Exit Sub
      End If
    Next
  Next
End Sub

Regards,
Vladimir