Расчет зума

[Саня_Д]

Здравствуйте, подскажите пожалуйста что я не учел в макросе для расчета зума по ширине? Почему-то зум больше чем нужен.

'Макрос для установке зума по ширине
Sub РасчетЗумаПоШирине()
' Колво колонок которые должны поместиться
' на страницу по ширине
КолвоКолонок = 15
ШиринаСтолбцов = 0
Set оСтраница = ActiveSheet

ШиринаСтраницы = Application.CentimetersToPoints(29. 7)
ВерхНизОтступы = оСтраница.PageSetup.TopMargin + оСтраница.PageSetup.BottomMargin
ЛевоПравоОтступы = оСтраница.PageSetup.LeftMargin + оСтраница.PageSetup.RightMargin

Set оКолонка1 = оСтраница.Columns(1)
Set оКолонка2 = оСтраница.Columns(КолвоКолонок)
Set оДиапазон = оСтраница.Range(оКолонка1, оКолонка2)
ШиринаСтолбцов = ШиринаСтолбцов + оДиапазон.Width

ЗумШирина = (ШиринаСтраницы - ЛевоПравоОтступы) / ШиринаСтолбцов

'оСтраница.PageSetup.Zoom = CInt(ЗумШирина)

MsgBox "(" + CStr(ШиринаСтраницы) + " - " + CStr(ЛевоПравоОтступы) + ")" + " / " + CStr(ШиринаСтолбцов) + " = " + CStr(ЗумШирина)
End Sub

[IgorGO]

отмечаете нужный диапазон.

ActiveWindow.Zoom = True

это автоматически выберет масштаб, при котором видно все, что отмечено.

[Саня_Д]

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

отмечаете нужный диапазон.

ActiveWindow.Zoom = True

это автоматически выберет масштаб, при котором видно все, что отмечено.

Да, я знаю что есть такая возможность. Но у меня задача именно рассчитать.
PS^ Мне просто непонятно почему рассчитанный зум получается больше реального. Что-то неправильно в рассчете ширины колонок, но что именно неизвестно

[IgorGO]

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

[Саня_Д]

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

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

А причем здесь размер окна приложения? Перевод писксели-точки-дюймы(сантиметры) - используется в одном месте - получение ширины листа в поинтах. Свойство Width так же возвращает размер в поинтах, отступы тоже в поинтах, так что здесь при расчтете ширины должна присутствовать еще какая-то доп. величина(например, ширина границ ячеек).