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

[Jaroslav]

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

[Jaroslav]

ActiveSheet.Buttons.Count

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

[Jaroslav]

Вот ответ:

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

[IgorGO]

да уж...
оцените точность подсчета количества ВИДИМЫХ кнопок макросом.

[pashulka]

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

А это макрос предназначен для подсчёта видимых(в т.ч. и частично) кнопок в рабочем листе, без привязки к экрану.

[IgorGO]

pashulka, взгляните шире.

допустим, Вы уже написали функцию, которая определяет сколько кнопок пересекаются с ActiveWindow.VisibleRange

я чуть-чуть изменил исходный файл. окройте его.

1. сколько точек Вы видите на экране? (ответ: 2)
2. сколько точек сосчитала бы Ваша гипотетическая функция? (ответ: 1)

нажмите кнопку, читайте подсказку в окне 1-го сообщения (как видите кпопка подписанная как "Кнопка 3" не имеет с ActiveWindow.VisibleRange ничего общего, хотя отчетливо видна на экране)

использовать ActiveWindow.VisibleRange - нужно, но подсчет кнопок в нем не дает ответ на поставленный вопрос.

ответ, есть, но он не очевидный и, видимо, не простой.
собственно по этому в теме еще не опубликован макрос, отвечающий на поставленный вопрос

[pashulka]

IgorGO, Если взглянуть шире, то нужно учитывать наличие закреплённой области, разделение окна, не говоря уже о том, что на экране могут отображаться несколько окон, причём они могут принадлежать разным книгам, эти окна могут перекрываться и т.д. и т.п. ...

[IgorGO]

а другие книги и листы... тут отсечены уже вот этим:

For Each iButton In ActiveSheet.Buttons

(перебираем кнопки активного листа)

я благополучно два вечера убил на поиски решения
понимаете с каким результатом)))
зато копнул обьектную модель Ексель чуть глубже и шире, посмотрел на некоторые вещи с другой стороны...

достойным ответом здесь будет макрос, который посчитает видимые полностью или хоть частично кнопки

[pashulka]

Дык, это отсечение и есть неправильность, разумеется, с Вашей точки зрения ибо, повторюсь, на экране могут быть несколько окон и они могут принадлежать разным книгам.

Так что в идеале, конечно можно попробовать перебирать все окна (Windows) у этих окон все (Panes), но даже это не даст ответа на вопрос, ибо окна могут перекрывать друг друга и VisibleRange выдаст диапазон, кнопки которого не будут видны нашему глазу, но формально будут на экране.

[IgorGO]

понятно, что как обычно - задача поставлена на намеках

в одном из первых сообщений от автора:
ActiveSheet.Buttons.Count

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

если внимательно почитать, то... но не в этом дело... я не нашел как на основании имеющихся свойств кнопки определить есть она на экране сейчас или нет(((
только проверять пересекаются-ли габариты кнопки с территорией ActiveWindow.VisibleRange, а тут еще вылезло, что закрепленная область не есть частью ActiveWindow.VisibleRange, надо определить видимую часть закрепленной области и пересечение кнопок с ней.

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