количество кнопок на екране

[jaroslav]

Добрый день. Можно ли посчитать количество кнопок, которые видны на екране (не скрытые)? Сейчас их 8, а после скрытия строк 1-3 должно быть 6. Файл прилагаю

[jaroslav]

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

ActiveSheet.Buttons.Count

считает количество кнопок на всем листе. Подскажите, пожалуйста, как посчитать количество кнопок в скрытых строках (столбцах)

[pashulka]

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

'Если видимость кнопок действительно нужно ограничивать экраном,
'то, возможно, нам понадобится 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

[jaroslav]

Спасибо, pashulka