Sub ShapesSequentiellAbarbeiten()
  Dim Form As Shape
  For Each Form In ActiveDocument.Shapes
    Flag = False
    Select Case Form.Type
      Case msoAutoShape
       .....
      Case msoPicture: Flag = True
    End Select
    If Flag = True Then
    ........Code........
    End If
  Next
End Sub