|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
本帖最后由 lss001 于 2019-12-19 01:14 编辑
Declare Function GetDeviceCaps Lib "gdi32" _
(ByVal hdc As Long, ByVal nIndex As Long) As Long
Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Const LOGPIXELSX = 88, LOGPIXELSY = 90
Sub DesktopZoom()
'当前程序缩放比例:x = ActiveWindow.Zoom
'Zoomx = GetDeviceCaps(GetDC(0), LOGPIXELSX)
Zoomy = GetDeviceCaps(GetDC(0), LOGPIXELSY)
Select Case Zoomy
Case 96: dpi = 1: std = "100%"
Case 120: dpi = 1.25: std = "125%"
Case 144: dpi = 1.5: std = "150%"
Case 192: dpi = 2: std = "200%"
End Select
MsgBox "当前屏幕缩放比例" & std
End Sub |
|