excel中使用vba设置当前窗口大小

1、首先我们打开一个工作样表作为例子。

2、使用alt+f11组合快捷键进入vbe编辑器，插入一个新的模块，并在模块中输入以下代码：

    Sub AAA()

        Application.ScreenUpdating = False

        Application.WindowState = xlNormal

        Application.Left = ActiveWindow.Left + Application.Left

        Application.Width = ActiveWindow.Width / 2

        'ActiveWindow.WindowState = xlMaximized

    End Sub

3、看这段代码中我们有一个固定优化代码screenupdating=false，在本例中其实作用不大，可以省略掉。screenupdating的作用是屏幕即时刷新，本代码比较短，所以作用不大。

4、将当前窗口设置为普通模式，即可以调整窗口大小的模式，另外两种窗口模式分别是最小化和最大化。

5、这个代码很重要，如果当前窗口为最大化，那么当前窗口的宽高设置是无效的对象设置，会出错。

6、ActiveWindow.Width返回值是当前窗口的像素，可以直接用 Application.Width对象属性进行设置。ActiveWindow是只读对象，不可以进行直接修改。