调整窗口大小

时间:2015-11-23 07:27:04

标签: excel vba excel-vba

我正在尝试调整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

1 个答案:

答案 0 :(得分:4)

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

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