VBA经典代码 拿来即用 1.1按照固定规则缩放Excel窗体

常规情况下，当我们手工打开一个Excel窗体的时候，基本上都是最大化的全屏展示的

这样的好处就是，方便我们做数据，也方便将注意力集中在Excel上面

但是不同的场景有不同的需求，有时候我们可能需要将窗体缩小，比方说我们在校队两份表的数据，或者在输入两份一样的数据的时候。

但是Excel只提供给我们三个常规选择

通过这个最小化按钮，虽然可以实现窗体的缩小，但是他终究只能实现最小化，一旦最小化了，就找不到了，

而中间的还原窗体，虽然可以缩小窗体，但是最终窗体位置，大小，并不固定

还需要我们额外的去手工修改，那么有没有一种好的办法能够让窗体每次都缩小固定比列，并且固定在指定位置呢？

这个时候，你就需要使用到VBA了

Sub SetWindowState()

    With ActiveWindow

        .WindowState = xlNormal

        .Left = 0 '窗体左上角固定的位置，可以根据需要改动

        .Top = 0

        .Height = 500 '窗体的大小，可以根据需要调整

        .Width = 500

    End With

End Sub

是不是很简单。