Excel 2003缩放

我有一个Excel文档的麻烦。 我需要设置一个特定的缩放来显示我的工作表的全部内容。 麻烦的是，我必须在不同的分辨率的计算机上分发这个文件。 然后，我不能使用特定的缩放值，这个值必须是dynamic的。

我试过这个：

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

但是这至less在Excel 2003中是行不通的。

我也尝试过使用ActiveWindow.Zoom，但是我认为在这个库中，我将无法将缩放放到页面上。

有我的问题：1.我怎样才能适应页面内容的缩放？ 2.有没有一个选项，没有VB？

我的主要问题是：1.以不同的分辨率显示文档。 2.在不同的Excel版本（2003年，2007年和2013年）中打开文档。

谢谢！

Answer 1

如果您select一个范围，然后将缩放设置为True，则它将适合该select，因此：

 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