Опеределение высоты рабочего окна

[tae1980]

Ни как не соображу как можно определить высоту "рабочего окна" (части окна где расположены ячейки)... Поиск по инету не позволил даже понять как же правильно называется эта часть окна.
Или координаты его углов (сторон) в пикселях от краев экрана.
Может кто нибудь подсказать куда лезть?

[motorway]

Что-то подобное:
MsgBox ActiveWorkbook.Windows.Application. Width

[tae1980]

Сообщение от motorway

Что-то подобное:
MsgBox ActiveWorkbook.Windows.Application. Width

По вашему совету попробовал:
MsgBox ActiveWorkbook.Windows.Application. Height
Запустил несколько раз с разным количеством панелей сверху (изменяю размер области). Этот метод почему-то выдает всегда одно и тоже число...

[motorway]

Значит, это не совсем то... я проверяю по пикселам в Paint.NET затем. Наверно, это расстояние от серой полосы до конца области снизу.. надо почитать мануал
(при изменении окна самого Эксела число меняется)

[tae1980]

ALL: Не уже ли ни кто не знает как решить вопрос? С квадратной головой сижу уже четыре дня...
Сам excel без особых проблем справляется с задачей, значит решение должно быть. Кто знает что делать, напишете, плз.

[doober]

А это сможет скруглить края у квадрата
MsgBox ActiveWorkbook.Windows.Application. UsableHeight

[IgorGO]

Sub VertLine()
  Randomize
  x = 20 + Rnd() * 400
  y = Application.UsableHeight
  If ActiveWindow.DisplayWorkbookTabs Then y = y - 11
  If ActiveWindow.DisplayHeadings Then y = y - 16
  y = y * 100 / ActiveWindow.Zoom
  Sheets(1).Shapes.AddLine(x, 0, x, y).Select
End Sub

(выполнять до полного удовлетворения)

[tae1980]

Сообщение от IgorGO

(выполнять до полного удовлетворения)

Спасибо!!!
Выполнил несколько раз, получил бооольшое удовлетворение.... :))))