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

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

使用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

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

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

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

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