Public Sub Shapes_Example()
On Error Resume Next
    Dim intCounter As Integer
    Dim intShapeCount As Integer
    Dim nullShapeCount As Integer
    Dim vsoShapes As Visio.Shapes
    Dim vsoPage As Visio.Page
    
    Set vsoPage = ActivePage
    Set vsoShapes = vsoPage.Shapes
    
    intShapeCount = vsoShapes.Count
    nullShapeCount = 0
    If intShapeCount > 0 Then
    ActiveWindow.DeselectAll
        For intCounter = 1 To intShapeCount
            If vsoShapes.Item(intCounter).CellsSRC(visSectionObject, visRowLine, visLinePattern).FormulaU = "0" Then
                If vsoShapes.Item(intCounter).Text = "" Or vsoShapes.Item(intCounter).Text = "­" Then
                    'nullShapeCount = nullShapeCount + 1
                    vsoShapes(intCounter).Delete
                End If
            End If
        Next intCounter
    Else
        Debug.Print "No Shapes On Page"
    End If
   ' Debug.Print "Vsego obektov: " & intShapeCount
    'Debug.Print "Nulevih obektov: " & nullShapeCount
End Sub