Vba 调整窗口大小以设置无缩放的范围

VBA向导！我正在尝试调整excel的窗口大小，以便只显示单元格（B2:K20），而不必使用“缩放”。我希望缩放比例保持在100%

Sub win()
    With ActiveWindow
        .WindowState = xlNormal
        .Top = 0
        .Left = 0
        .Height = 400
        .Width = 400
    end with 
 end sub

---

为什么不把你不需要的东西都藏起来？这将使您的“缩放”保持在100%，同时让用户只关注您希望他们看到的单元格

'Hide All columns from L to end:
Range(Range("L1"), Cells(1, Columns.Count)).EntireColumn.Hidden = True
'Hide All rows from 21 to end:
Range(Range("B21"), Cells(Rows.Count, 2)).EntireRow.Hidden = True
'Hide Row 1:
Range("A1").EntireRow.Hidden = True
'Hide Column A:
Range("A1").EntireColumn.Hidden = True

---

为什么不把你不需要的东西都藏起来？这将使您的“缩放”保持在100%，同时让用户只关注您希望他们看到的单元格

'Hide All columns from L to end:
Range(Range("L1"), Cells(1, Columns.Count)).EntireColumn.Hidden = True
'Hide All rows from 21 to end:
Range(Range("B21"), Cells(Rows.Count, 2)).EntireRow.Hidden = True
'Hide Row 1:
Range("A1").EntireRow.Hidden = True
'Hide Column A:
Range("A1").EntireColumn.Hidden = True

---

这有什么不同？如果你知道如何获得你想要的效果——在打开宏录制器的情况下进行。目的是什么？i、 e.为什么你只想显示这个范围？或者你可以只隐藏你不想看到的行和列？都很好@Chrismas007-我自己没有回答，因为我不确定OP想要做他试图做的事情的确切原因，因此发表了评论。考虑到他最后的评论，这似乎是可行的：）这与什么不同？如果你知道如何获得你想要的效果——在打开宏录制器的情况下进行。目的是什么？i、 e.为什么你只想显示这个范围？或者你可以只隐藏你不想看到的行和列？都很好@Chrismas007-我自己没有回答，因为我不确定OP想要做他试图做的事情的确切原因，因此发表了评论。考虑到他最后的评论，这似乎是可行的：）