excel获取屏幕分辨率的VBA代码
时间:2023-01-31 11:48:12
用下面的代码可以获取屏幕分辨率,需将其放入模块中运行。
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
标签:excel,获取,屏幕,分辨率,的,VBA,代码,用下,面的
0
投稿
猜你喜欢
excel如何实现两列的数据比较的箭头条件格式?
2022-07-05 15:19:40
怎样在word中添加字体?
2022-09-01 21:08:36
Win11系统中的Thumbs.db文件怎么删除?
2023-11-28 15:53:25
Win11设置窗口动画效果教程
2022-07-07 12:40:43
excel中柱状图如何添加平均线
2023-02-05 04:05:06
将PowerPoint2003图片置于底层,不覆盖文字
2022-04-16 07:55:55
腾讯会议开会时可以看其他视频吗?可以一边腾讯会议一边看视频吗?
2023-05-22 03:17:01
word修改痕迹怎么去掉的图文详解
2023-10-16 16:55:02
win10字体模糊怎么办?win10字体模糊图文解决方法
2022-10-23 00:13:14
Win10系统注册表被管理员禁用了怎么办?
2023-11-11 09:57:21
Win10 1909值得升级吗 Win10 1909更新了什么
2022-10-25 16:36:10
WPS文字2013在打印的时候怎么设置装订线
2022-04-18 12:17:26
Win10专业版显示器刷新率调整方法
2023-12-29 08:57:18
Win11颜色管理在哪?Win11设置颜色管理方法
2022-02-24 21:40:32
电脑重装Win10系统后音质变差怎么办?
2022-01-18 19:27:30
wps文档如何插入一段音频
2022-03-09 06:14:46
如何在Windows 10的WSL中设置默认Linux发行版
2023-11-23 08:23:51
撕碎的老照片怎么还原?PS破损照片修复技术详细图解
2022-05-26 21:07:47
网络怀疑被蹭怎么查蹭网情况?如何防止蹭网设备的连接?
2023-03-30 07:06:35
在Word2010中取消自动生成超链接
2023-07-30 10:06:13