Excel 2003 масштабирование

Question

У меня проблема с документом Excel. Мне нужно установить определенный масштаб, чтобы показать полное содержимое моего листа. Проблема в том, что я должен распространять этот документ на разных компьютерах с разным разрешением. Тогда я не могу работать с определенным значением масштабирования, это значение должно быть динамическим.

Я попытался это:

With ActiveSheet.PageSetup 
.FitToPagesTall = 1 
.FitToPagesWide = 1 
.Zoom = False 
End With 

Но это не работает, по крайней мере, в Excel 2003.

Я также попытался с ActiveWindow.Zoom, но я думаю, что с этой библиотекой не будет способный приблизить масштаб к странице.

Есть мои вопросы: 1. Как я могу подогнать масштаб к содержимому страницы? 2. Есть ли возможность сделать это без VB?

Мои главные проблемы: 1. Отображение документа в разных разрешениях. 2. Открытие документа в разных версиях Excel (2003, 2007 и, возможно, 2013).

Спасибо!

Answer 1

Если выбран диапазон, а затем установите зум Правда, он будет соответствовать к выбору, так:

Sub FitIt() 
    Dim rgToFit    As Range 
    Dim rgCurrent    As Range 

    Application.ScreenUpdating = False 
    Set rgCurrent = ActiveCell 

    ' CHANGE THIS TO WHATEVER RANGE YOU WANT 
    Set rgToFit = ActiveSheet.UsedRange 

    rgToFit.Select 
    ActiveWindow.Zoom = True 
    rgCurrent.Select 
    Application.ScreenUpdating = True 
End Sub