Developing.ru

Код: Выделить всё

ActiveSheet.Buttons.Count

Код: Выделить всё

'Если видимость кнопок действительно нужно ограничивать экраном,
'то, возможно, нам понадобится ActiveWindow.VisibleRange

Private Sub Test()
    Dim iList As Worksheet, iButton As Button, iCount&
    
    Set iList = ActiveSheet 'ThisWorkbook.Worksheets(1)
    For Each iButton In iList.Buttons
        With iList.Range(iButton.TopLeftCell, iButton.BottomRightCell)
             If Not (.EntireRow.Hidden Or .EntireColumn.Hidden) Then
                iCount = iCount + 1
             End If
        End With
    Next
    
    MsgBox "Видимых кнопок (в т.ч. и частично) = " & iCount
End Sub