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

     以上就是excel自学教程为您提供excel获取屏幕分辨率的VBA代码的解读，本文章链接： http://www.5enet.cn/Excel_VBA/76862.html 欢迎分享转载，更多相关资讯请前往VBA