Sub test()
    lnTablesCount = Selection.Tables.Count
    Selection.Tables( 1 ).Select
    lnTableRows = Selection.Rows
    lnTableColumns = Selection.Columns
    For lnRowCount =  1  To lnTableRows
        For lnColumnCount =  1  To lnTableColumns
            Selection.Cells(lnRowCount, lnColumnCount).Select
            lnShapesCount = Selection.InlineShapes.Count
            For lnShapeCount =  1  To lnShapesCount
                If Selection.InlineShapes(lnShapeCount).IsPictureBullet = True Then
                    Selection.InlineShapes(lnShapeCount).Select
                    Selection.CopyAsPicture
                    ' Others action
                End If
            Next lnShapeCount
        Next lnColumnCount
    Next lnRowCount
End Sub