在excel表格中使用vba获取窗口的尺寸
时间:2022-04-16 14:14:32
这篇教程是向脚本之家的朋友分享在excel表格中使用vba获取窗口的尺寸方法,教程比较基础,适合新手来学习,推荐到脚本之家,一起来学习吧
今天为大家分享excel中使用vba来获取窗口的尺寸方法,推荐到脚本之家,有需要的朋友可以参考本文!
步骤
1、首先我们打开一个工作样表作为例子。
2、使用alt+f11组合快捷键进入vbe编辑器,插入一个新的模块,并在模块中输入以下代码:
Sub testActiveWindowSize()
MsgBox "当前窗口可用区域的高度为:" & ActiveWindow.UsableHeight
MsgBox "当前窗口的高度为:" & ActiveWindow.Height
MsgBox "当前窗口可用区域的宽度为:" & ActiveWindow.UsableWidth
MsgBox "当前窗口的宽度为:" & ActiveWindow.Width
End Sub
3、这里我们可以看到是使用msgbox来显示窗口的高度和宽度,而这又分为两种,一种是使用区域的高宽,一种是当前窗口的高宽。
4、详细解释一下,当前窗口和使用区域的分别。当前窗口是包含有菜单栏,标题栏也就是整个程序的窗口,而可用区域则是可编辑区域,也就是单元格区域。
5、activewindow很好理解为活动窗口,而其后的宽高为属性,其值为返回值,可以直接用于赋值。也就是说我们设置一个变量,将属性值赋予变量,那么后面进行更改时,可以直接使用变量来恢复成默认值。类似这样的代码hgt = ActiveWindow.UsableHeight
6、记住height和width属性都是数值,因此我们声明变量必须是数据类型,不要声明错误,否则代码会运行异常。
以上就是在excel表格中使用vba获取窗口的尺寸方法介绍,操作很简单的,喜欢的朋友可以参考本文,来看看吧!
![](/images/zang.png)
![](/images/jiucuo.png)
猜你喜欢
word表格中的文字怎么都堆在右侧了?
![](https://img.aspxhome.com/file/2023/6/32436_0s.gif)
怎么复制caj文件里的文字不想把caj转换成word格式
![](https://img.aspxhome.com/file/2023/2/20872_0s.jpg)
怎样在Word2007中直接批量发送邮件 1
![](https://img.aspxhome.com/file/2023/8/20518_0s.jpg)
excel表格怎么快速制作请假单? excel请假单的做法
![](https://img.aspxhome.com/file/2023/1/39951_0s.png)
Excel 2007小技巧:定位超长行区域的三招
![](https://img.aspxhome.com/file/2023/9/37359_0s.jpg)
Excel表格Ctrl+E都有哪些功能 Excel表格Ctrl+E功能介绍
![](https://img.aspxhome.com/file/2023/7/39837_0s.gif)
project日历模板怎么重命名?
![](https://img.aspxhome.com/file/2023/7/15057_0s.jpg)
word 2007的打开记录怎么删除掉
Word如何美化字体?
![](https://img.aspxhome.com/file/2023/2/31542_0s.jpg)
Office自带OCR识别程序转扫描资料为word
![](https://img.aspxhome.com/file/2023/7/19957_0s.jpg)
Word文档打印后和显示的字体不同
word文档中字体怎么调大?
![](https://img.aspxhome.com/file/2023/2/27712_0s.jpg)
Win10系统电脑关机慢如何解决?Win10系统电脑关机慢解决办法
![](https://img.aspxhome.com/file/2023/4/49454_0s.jpg)
如何修改Excel图表背景
![](https://img.aspxhome.com/file/2023/8/36378_0s.jpg)
word怎么更改单位?word单位设置方法
![](https://img.aspxhome.com/file/2023/5/25295_0s.jpg)
Word2007中快速插入固定内容的技巧
![](https://img.aspxhome.com/file/2023/3/22183_0s.jpg)
word文档如何全部替换内容?
![](https://img.aspxhome.com/file/2023/7/29147_0s.jpg)
win10自动修复失败开不了机怎么办?win10自动修复失败无限循环解决方法大全
![](https://img.aspxhome.com/file/2023/1/49271_0s.png)
excel如何添加分析工具库?excel添加分析工具库方法
![](https://img.aspxhome.com/file/2023/8/39778_0s.jpg)
在 Excel 2010 中,条件格式超过了三个怎么办?
![](https://img.aspxhome.com/file/2023/8/38928_0s.png)