excel获取屏幕分辨率的VBA代码
发布时间:2023-01-31 11:48:12
标签:excel,获取,屏幕,分辨率,的,VBA,代码,用下,面的
用下面的代码可以获取屏幕分辨率,需将其放入模块中运行。
1.按Alt+F11打开VBA编辑器。
2.单击菜单“插入→模块”,在模块中输入下列代码并运行:
Declare Function GetSystemMetrics32 Lib "user32" _
Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long
Sub DisplayMonitorInfo()
Dim X As Long, Y As Long
X = GetSystemMetrics32(0) ' 宽度(像素)
Y = GetSystemMetrics32(1) ' 高度(像素)
MsgBox "屏幕分辨率为:" & X & " × " & Y & " 像素"
End Sub
0
投稿
猜你喜欢
- 大家在使用电脑的时候,经常会使用到截图功能,win10系统自带截图工具,按下快捷键即可实现截图,非常方便。但是有用户发现自己出现截图快捷键失
- 有一个伙伴在一个企业人事部工作,经常要打印一些员工的简历,员工基本情况登记表一般都是用excel做的,我们就可以使用excel自动提取员工登
- word怎么去掉箭头图形里的颜色?有时候用word做流程图,但是word里的图形内部都有颜色该怎么去掉呢?那么下面就由学习啦小编为您分享下去
- 当我们使用win10操作系统计算机时,微软也在不断更新和优化新系统。因此,Windows10Alt+Tab快捷键的新功能是什么?根据小编获得
- 文章介绍一下Word2003 怎么来设置纸张和文档网格,有需要的同学可参考一下。文章介绍一下Word2003 怎么来设置纸张和文档网格,有需
- Excel中如何把图表画出来呢?下面是小编带来的关于excel中画图教程,希望阅读过后对你有所启发!excel中画图教程:画图步骤1:打开一
- 和许多人一样,小编也将自己的设备升级为Win10 1909系统。但在近期使用的过程中,却突然出现了“显卡内存不足”的提示。那么,Win10
- 办公中有时候需要用到带圈数字,超过20的数字就不能直接编辑了,那么20以上带圈数字要怎么输入呢?其实通过小技巧就能完成的,接下来就给大家介绍
- 有的时候我们使用Excel表格的时候,会发现它的顶部莫名其妙的就少了工具栏,正让我们的办公变得非常的不方便,少了这么多工具的使用,我们对于这
- Excel表格怎么给所有数字批量增加指定值?在Excel表格中,经常都是需要进行数据统计,而有的时候由于某些原因就需要进行数字批量添加数值,
- 平常我们总是习惯于在同一个Excel文档中设计大量表格。工作表标签栏一次最多也就显示五六个工作表名称,即不能排序又不支持查找功能。想直接在标
- 大家在使用excel表格进行工作的时候,总会遇到一个问题,那就是我们输入数字的时候,当你换行输入其他的数字以后,这个单元格中的数字就会自动靠
- 在word文档中word空格显示出现点是怎么回事?那么这里就来教大家在word2003版本及word2007版本中word空格有点解决方法在
- Win10 21H1是最新的Win10电脑操作系统版本,但是有的用户在使用中遇到了点击开始菜单没反应的问题,不知道怎么解决这个问题,这里小编
- 装订线在WORD文档的打印过程中非常重要,如果你不会设置装订线,你打印出来的文档,很可以无法符合公司或单位的装订要求。那么下面就由小编给大家
- 如何在Word 2007表中调整列和行的大小?您可以在Word 2007表中调整列和行的大小。使用“列”对话框可以调整列宽和列之间的间隔。分
- 笔记本电脑为我们的学习和办公提供了非常多的便利,但是网络问题也是笔记本电脑的短板,我们外出使用笔记本的时候都需要连接无线网络才能使用,那有的
- 利用Excel对比两列数据的相同点或不同点是最基本的操作。今天,小编就教大家在Excel中进行对比两列数据异同的操作技巧。Excel中进行对
- 在使用Excel进行办公的时候,数据相除功能被使用到的几率非常大,如果不懂得如何操作的朋友们不妨跟小编一起来学习学习该如何进行操作。下面是小
- WPS文档能够直接将word文档的.doc格式直接转化成PDF格式,这个功能对于办公一族是非常方便的,国货当自强,接下来笔者给大家讲解一下w