调整窗口大小

Question

我正在尝试调整Excel的窗口大小，以便显示某些范围的单元格，例如（B2：K20）。

是的，下面的代码有窗口大小的像素，这是因为我不知道如何使用单元格范围。我对VBA战士有很强的信心！

Sub win()
    With ActiveWindow
        .WindowState = xlNormal
        .Top = 0
        .Left = 0
        .Height = 400
        .Width = 400
        .DisplayGridlines = False
        .DisplayFormulas = False
        .DisplayGridlines = False
        .DisplayHeadings = False
    End With
Application.ExecuteExcel4Macro "Show.Toolbar(""Ribbon"",False)"
Application.DisplayFormulaBar = False
ActiveWindow.DisplayWorkbookTabs = False

End Sub

Answer 1

一种选择是缩放窗口以仅显示该范围：

Range("B2:K20").Select
ActiveWindow.Zoom = True