vba - 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

如果您选择一个范围，然后将缩放设置为 True，它将适合所选内容，因此:

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