Здравствуйте. Вопрос в следующем: необходимо программно узнать ширину текущего листа Excel. Как это можно сделать? Думаю, что есть для этого стандартные функции, но ... я их не нашел.
Спасибо.

Да, допишу, чтобы было понятнее что требуется. В общем, лист у меня может быть любым, то есть любого формата (А3, А4, А5, .... любой, который знает Excel). Так вот, мне надо на всю ширину этого листа вывести автофигуру, размеры которой задаются в точках. А посему, мне и понадобилось знать ширину этого самого текущего листа.

Нужена именно ширина листа в точках. Ну скока там точек в ширину. Чтобы на всю ширину поместить автофигуру (Прямоугольник). То что можно узнать константу ("... PaperSize = xlPaperA4 это здесь A4 формат ...") - это я знаю. Вот теперь, как узнать, какие параметры у этой константы? Потому как сама константа мне вроде как ничего не дает. Должна быть какая-то стандартная функция для этого, я думаю.

Можно, конечно, изобразить нечто вроде этого:

Dim dPageWidth As Double
Dim dPageWidthWithoutMargins As Double
dPageWidth = Application.CentimetersToPoints _
(Switch(ActiveSheet.PageSetup.PaperSize = xlPaperA4, 210, _
ActiveSheet.PageSetup.PaperSize = xlPaperA5, 148) / 10)

dPageWidthWithoutMargins = _
dPageWidth - (ActiveSheet.PageSetup.LeftMargin + ActiveSheet.PageSetup.RightMargin)

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

))) Сделал с известными параметрами - получается все равно не так. В общем, смысл такой. В экселе, в параметрах страницы стоит "Разместить не более чем на 1 страницу в ширину" (а ширина, скажем, там на два листа, соответсвенно, все сжимается в 2 раза). Поэтому, когда я задаю координаты своей автофигуре - она размещается как раз на страницу. А вот из-за вышеупомянутого параметра страницы уже при отображении, видимо, эксель применяет ко всему выводимому некий множитель (в моем случае это 0,5) и автофигура все равно не выходит на всю ширину (в моем случае это половина страницы).
Получается, мне надо знать уже не ширину листа, а координату правой границы выводимого - той границы, которую и определяет ёксель.

Вариант хороший, но не то. Как найти правую границу? По каким критериям?

Нашел другой выход немного. Вроде устраивает такой вариант пока. Отдам тестерам - пусть тестируют.
Вот этот вариант

'только тут все равно придется на форматы завязываться

Dim dPageWidth As Double ' искомая ширина листа
Dim tempWidth As Double ' временная переменная

' в искомую ширину заталкиваем ширину листа А4 в зависимости от ориентации
dPageWidth = Application.CentimetersToPoints(Switch _
(curSheet.PageSetup.Orientation = xlLandscape, 29.7, _
curSheet.PageSetup.Orientation = xlPortrait, 21))

' во временную заталкиваем реальную ширину заполненной области
tempWidth = curSheet.Cells.SpecialCells(xlCellTypeLastCell).Left _
+ curSheet.Cells.SpecialCells(xlCellTypeLastCell).Width

' если реальная ширина больше ширины листа, то
If tempWidth > dPageWidth Then
' если указано "разместить не более чем на одну страницу в ширину"
If curSheet.PageSetup.FitToPagesWide And curSheet.PageSetup.Zoom = 1 Then
' то ширина равна временной переменной
dPageWidth = tempWidth
End If
End if
' иначе ширина остается равной ширине листа

Большое спасибо всем, кто принимал участие и помог мне.