Win 10 Excel 2016 无法解释的 PixelsToPoints 系数来定位用户窗体

序言

当尝试将用户窗体定位在特定像素位置（存储在POINTAPI类型结构），必须将 Pixel 坐标转换为 Point 坐标才能设置UserForm.Left and UserForm.TopVBA 属性。我们称这个系数为K。

从我的测试中，我开始了解到，就我而言，GetWindowRect以及 UserForm 的 VBA 定位属性 (Left, Top, Width, Height）包括包含 MSForm UserForm 控件的窗口（属于“ThunderDFrame”类）周围的阴影。要真正获得由边框界定的窗口矩形，DwnGetWindowAttribute(hWnd, DWMWA_EXTENDED_FRAME_BOUNDS, rcOutRECT, LenB(rcOutRECT)必须使用Win API。

定位 UserForm 的坐标系原点是 Pixel (0; 0)，所以无需担心ActiveWindow.PointsToScreenPixelsX / ActiveWindow.PointsToScreenPixelsY以及 Excel 窗口的左上角与工作表网格的左上角之间的偏移量（至少直到Range.Left, Range.Top等属性发挥作用）。然而，有趣的是，ActiveWindow.PointsToScreenPixelsX行为不像ActiveWindow.ActivePane.PointsToScreenPixelsX。第一个使用具有输入的像素，而不是像第二个那样使用点。该方法的真实名称应该是ActiveWindow.WorksheetPixelsXToScreenPixelsX。您可以轻松验证：

ActiveWindow.PointsToScreenPixelsX(1) - ActiveWindow.PointsToScreenPixelsX(0)

返回 1，而如果它确实在进行转换，则应该返回大于 1 的值，因为 1 Point 占用屏幕上的多个像素。 （由于像素的整数舍入，也不是真正的 1/K）

Problem

考虑到缩放系数为 1 以简化我的 MCV 示例，确定的系数.Left and .Top我们希望其显示的屏幕像素中 (x; y) 位置的用户窗体的 Points 属性应该是：

72 / GetDeviceCaps(GetDC(0), LOGPIXELSX)
72 / GetDeviceCaps(GetDC(0), LOGPIXELSY)

这是

• 96 DPI 传统显示屏为 0.75（我已在使用 Win 7 + Excel 2007 的 PC 上尝试过）
• 0.375，我的 Surface Pro 4 平板电脑在 Win 10 64 位和 Excel 2016 32 位上运行

现在的问题是，在我的平板电脑上，虽然上述计算返回 0.375，定位用户窗体的正确系数在给定的像素位置（从GetCursorPos以Win API为例）通过将其转换为对应的Point位置is 0.35. 我不知道这个价值从哪里来......？？？

现在的进展

在平板电脑上：

reg key HKEY_CURRENT_USER\Control Panel\Desktop\WindowMetrics\AppliedDPI表示 192 和72 / 192 = 0.375

我还尝试了 MSDN Windows 桌面应用程序 UI 参考中的高 DPI 参考中的一些功能：

• GetDPIForWindow（我尝试使用Application.Hwnd和UserForm的窗口句柄）
• GetDPIForMonitor

但一切都会正常返回 192。

最小、完整且可验证的示例

以下内容允许我在平板电脑上检索神秘的 K = 0.35 系数，但在另一台计算机上返回 0.75，正如预期的那样。

模块1.bas

Private Declare Function GetWindowRect Lib "user32" (ByVal hWnd As Long, rcWindowRect As RECT) As Long
Private Declare Function GetCursorPos Lib "user32" (ptCursorPoint As POINTAPI) As Long

Private Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type

Private Type POINTAPI
    X As Long
    Y As Long
End Type

Sub test()
    Dim rcUsfWindowRect As RECT
    UserForm1.Show vbModeless
    lRet& = GetWindowRect(UserForm1.hWnd, rcUsfWindowRect)
    dblUsfRectWidth# = rcUsfWindowRect.Right - rcUsfWindowRect.Left
    dblUsfRectHeight# = rcUsfWindowRect.Bottom - rcUsfWindowRect.Top
    Debug.Print UserForm1.Width / dblUsfRectWidth
End Sub

用户表单1

Private Declare Function FindWindowA Lib "user32" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public hWnd As Long

Private Sub UserForm_Initialize()
    hWnd = FindWindowA("ThunderDFrame", UserForm1.Caption)
End Sub

我有同样的问题。我在 64 位上尝试了你的代码，也收到了 0.35。

module1

Option Explicit

Private Declare PtrSafe Function GetWindowRect Lib "user32" (ByVal hWnd As Long, rcWindowRect As RECT) As Long
Private Declare PtrSafe Function GetCursorPos Lib "user32" (ptCursorPoint As POINTAPI) As Long

Private Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type

Private Type POINTAPI
    X As Long
    Y As Long
End Type

Sub test()
    Dim rcUsfWindowRect As RECT
    Dim dblUsfRectWidth As Double
    Dim dblUsfRectHeight As Double
    
    UserForm1.Show vbModeless
    Call GetWindowRect(UserForm1.hWnd, rcUsfWindowRect)
    dblUsfRectWidth = rcUsfWindowRect.Right - rcUsfWindowRect.Left
    dblUsfRectHeight = rcUsfWindowRect.Bottom - rcUsfWindowRect.Top
    Debug.Print UserForm1.Width / dblUsfRectWidth
End Sub

用户表单1

Option Explicit

Private Declare PtrSafe Function FindWindowA Lib "user32" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public hWnd As Long

Private Sub UserForm_Initialize()
    hWnd = FindWindowA("ThunderDFrame", UserForm1.Caption)
End Sub

奇怪的是，我下载了一个标尺应用程序来测量 UserForm1 的宽度（以像素为单位）。我将 Excel 中表单的宽度调整为 500，结果我得到的测量宽度为 1406 像素。并且 500/1406 = 0.356 而不是 0.375。 我还发现了为什么它是 0.356 而不是 0.35，这是因为 GetWindowRect 函数显然返回一个宽度，包括边框周围的阴影。 （左边是 15 或 16 像素，右边是 10 像素）。如果没有这个，宽度将为 1406 + 15 + 10 = 1431 和 500/1431 = 0.349，更接近 0.35。

我之前的笔记本电脑上没有出现这些问题，并且使用外接显示器也没有出现这些问题。这种情况仅发生在高 DPI 显示器上。 （可能是因为 Windows 中的这些显示器启用了显示虚拟化）。

编辑： 如果我将窗口缩放更改为 100% 注销并重新登录，我会得到 0.75 的值，一切都会按预期进行。