关于我们 | 友情链接 | 免责声明 | Tag标签 | Office教程网 - 关注office操作技能技巧教程!
你的位置:主页 > Excel教程 >

excel获取屏幕分辨率的VBA代码

时间:2018-03-31 22:21  网站:office教程网 www.office26.com   编辑:admin

 用下面的代码可以获取屏幕分辨率,需将其放入模块中运行。

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


标签(Tag):Excel excel2013 Excel技巧
------分隔线----------------------------
------分隔线----------------------------

相关文章