1、首先让我们打开一个工作样表作为例子。
2、我们捂执涡扔使用alt+f11组合快捷键进入vbe编辑器,插入一个新的模块,并在模块中输入以下代码:Option ExplicitSub setcap()Application.WindowState = xlMaximizedActiveWindow.WindowState = xlMaximizedEnd Sub
3、这里的代码分别是对程序窗口,和激活当前窗口进行最大化设置。application是应用程序窗口,activewindow是当前活动窗口。
4、windowstate属性有三种状态,分别是xlmaximized、xlnormal和xlminimized,代表着最大化,普通模式和最小化。而这3种状态都属于常量,有一个固定的值,分别为-4137、-4143、-4140。
5、windowstate主要操作的是工作表格窗口的盟敢势袂left、top、width和height四个属性。left、top为坐标舛匀砖察属性,width、height为长度属性。大家可以自行设置一下,代码为activewindow.top = 直接使用对象加属性设置的方式。
6、可是当我们运行这个代码的时候,vba会提出错误的提示,window对象无法设置top属性。
7、这是因为我们将当前窗口设置为最大化的原因,当当前窗口最大化时,windowstate相关的属性会无效化,我们这里将windowstate设置为xlnormal,然后重新运行代码,可以看到代码是正常运行的。
8、先写到这里了,谢谢大家的观看。祝大家生活愉快。小编还有许多其他的经验可以观看,如果无法解决问题可以联系小编进行咨询。看不清楚图片的可以点击放大再看哦。