用下面的代码可以获取屏幕分辨率,需将其放入模块中运行。
1.按Alt+F11打开VBA编辑器。
强国说学习qiangguoshuo.com
2.单击菜单“插入→模块”,在模块中输入下列代码并运行:
Declare Function GetSystemMetrics32 Lib "user32" _Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long
Sub DisplayMonitorInfo()Dim X As Long, Y As LongX = GetSystemMetrics32(0) ' 宽度(像素)Y = GetSystemMetrics32(1) ' 高度(像素)MsgBox "屏幕分辨率为:" & X & " × " & Y & " 像素"End Sub
转载声明:本站发布文章及版权归原作者所有,转载本站文章请注明文章来源!