Координаты окна, координаты листа

Пользователь

Сообщений: 1716 Регистрация: 01.01.1970

09.02.2010 09:29:34

В VBA есть возможность выдать координаты окна относительно экрана монитора, типа Window.Top. Есть координаты листа относительно его начала, которые можно вернуть через Cells или Range (типа .Cells(23,45).Left). В окне находится видимая часть листа.

Вопрос: Есть ли возможность связать координаты окна и видимой части листа.

слэн Пользователь Сообщений: 5192 Регистрация: 16.01.2013	#2 09.02.2010 09:42:44 надо пройтись по всем видимым меню и найти суммарные значения ширин или высот для прилепленных к верху или слева.. как-то так Живи и дай жить..

VovaK Пользователь Сообщений: 1716 Регистрация: 01.01.1970	#3 09.02.2010 11:36:17 Кто ищет тот всегда найдет. Ответ неожиданно прост: Windows.VisibleRange.Top

GWolf Пользователь Сообщений: 173 Регистрация: 01.01.1970	#4 13.04.2012 17:15:03 Добрый вечер! Что бы не создавать новую тему, спрошу здесь. Нужно создать кнопку величиной с активное окно листа таблицы. А вот как определить координаты правого -нижнего угла этого окна?

GWolf Пользователь Сообщений: 173 Регистрация: 01.01.1970	#5 13.04.2012 17:22:10 Ага! Если немного подумать, то и ответ нашел: Sub wTop() Worksheets("LLL").Activate With Windows(1).VisibleRange countCellsVisible = .Cells.Count cellsDn = .Rows.Count cellsLt = .Columns.Count End With MsgBox "В активном окне " & countCellsVisible & " ячеек видимых." & Chr(10) & _ "нижняя ячейка " & cellsDn & Chr(10) & _ "правая ячейка " & cellsLt End Sub может кому сгодится.

Читают тему