Как определить масштаб страницы

[memVBA]

После выполнения данного кода,

ws.PageSetup.Zoom = False
ws.PageSetup.FitToPagesWide = 1
ws.PageSetup.FitToPagesTall = 99 ,

при повторном входе в параметры страницы в поле масштаб появляется некое значение.
Как его вытащить программно?

[EugeneS]

можно так,

ActiveWindow.Zoom

[VictorM]

Наверное так

iZoom = ActiveWindow.Zoom

[memVBA]

Имеется ввиду не масштаб просмотра, а в Файл - Параметры страницы - закладка Страница - поле Масштаб (установить <значение> от натуральной величины

[VictorM]

iPageZoom = ActiveSheet.PageSetup.Zoom

p.s.
Записывайте, читайте, изучайте макросы.

[memVBA]

ws.PageSetup.Zoom = False
ws.PageSetup.FitToPagesWide = 1
ws.PageSetup.FitToPagesTall = 99
iPageZoom = ActiveSheet.PageSetup.Zoom
Результат: iPageZoom = False
А теперь, если войти (интерактивно) в параметры страницы, то в поле масштаб мы увидим, например, 96.
Вот его-то мне и надо вытащить!

[VictorM]

Так эта строка его и "вытаскивает" и показывает значение.
По крайней мере у меня.

ws.PageSetup.Zoom = False

Естественно покажет

Результат: iPageZoom = False

[memVBA]

Если нарисовать на листе таблицу и выполнить простейший макрос
Sub Ìàêðîñ1()
ActiveSheet.PageSetup.Zoom = False
ActiveSheet.PageSetup.FitToPagesWid e = 1
ActiveSheet.PageSetup.FitToPagesTal l = 99
iPageZoom = ActiveSheet.PageSetup.Zoom

End Sub

,то iPageZoom = False, что естесственно. Мы же присвоили Zoom = False

но ведь в поле масштаб появляется цифра!!! Как её вытащить? )))

[memVBA]

Задача моя в том, чтобы определить масштаб, который нужно выставить, чтобы вся таблица поместилась на 1 лист по ширине (по высоте неважно можно хоть 999), не используя при этом PageSetup.FitToPagesWide и PageSetup.FitToPagesTall, а используя только PageSetup.Zoom.

[VictorM]

Так может не определять, а просто выставить "внаглую"?))

Sub Макрос3()
    On Error Resume Next'если помещается на странице и так
    ActiveWindow.View = xlPageBreakPreview
    ActiveSheet.VPageBreaks(1).DragOff Direction:=xlToRight, RegionIndex:=1
    ActiveWindow.View = xlNormalView
    iPageZoom = ActiveSheet.PageSetup.Zoom' просто для справки
End Sub