Option Explicit

Public Sub CheckShapesOnSlides()
  Dim oSld as Slide
  Dim oShp as Shape
    For Each oSld in ActivePresentation.Slides
      For Each oShp in oSld.Shapes
        ‘ Do my checks on the shape here
      Next
  Next
End Sub

Select all