如何获取某单元格在窗口屏幕上的坐标位置？

大灰狼1976

overu88 发表于 2020-1-15 09:14
GetCursorPos这个API是获取鼠标所在位置的屏幕坐标，是想通过ActiveCell.Left和ActiveCell.Top，计算出活 ...

已测试，你的说明是正确的。
我们可以自己编写转换程序，已知ActiveWindow.PointsToScreenPixelsX(0)和ActiveWindow.PointsToScreenPixelsY(0)返回的值是最左上角单元格的left和top的像素值，
那么只要把某个单元格的相对位置也转换成像素值，然后加上前面的基础值，就可以得到某个单元格的正确像素位置，以下代码已通过ActiveWindow.RangeFromPoint测试无误。

注：GetPPI()函数用于获取显示硬件的PPI值，它是固定不变的，如果已知道（或者取过一次），就可以直接用数值代码，不再需要这个函数及API，前提是显示硬件环境不变。

测试程序：

1. Sub test()
   
2. Dim Px, Py, Px1, Py1
   
3. With ActiveCell
   
4.   Px = .Left / 72 * GetPPI
   
5.   Py = .Top / 72 * GetPPI
   
6.   Px1 = ActiveWindow.PointsToScreenPixelsX(0)
   
7.   Py1 = ActiveWindow.PointsToScreenPixelsY(0)
   
8.   ActiveWindow.RangeFromPoint(Px + Px1, Py + Py1).Select
   
9. End With
   
10. End Sub

复制代码

GetPPI()函数，连同API语句放在标准模块：

1. Declare Function GetDC Lib "user32" (ByVal hWnd As Long) As Long
   
2. Declare Function ReleaseDC Lib "user32" (ByVal hWnd As Long, ByVal hDC As Long) As Long
   
3. Declare Function GetDeviceCaps Lib "Gdi32" (ByVal hDC As Long, ByVal index As Long) As Long
   
4. Const LOGPIXELSX = 88
   
5. Const LOGPIXELSY = 90
   
6. Function GetPPI()
   
7.     Dim hDC As Long
   
8.     hDC = GetDC(0)
   
9.     Dim X, Y
   
10.     X = GetDeviceCaps(hDC, LOGPIXELSX)
    
11.     Y = GetDeviceCaps(hDC, LOGPIXELSY)
    
12.     GetPPI = X
    
13. End Function

复制代码

excel.x

大灰狼1976 发表于 2020-1-15 12:45
已测试，你的说明是正确的。
我们可以自己编写转换程序，已知ActiveWindow.PointsToScreenPixelsX(0)和A ...

还是不准啊，但相对位置是准的，中间有个固定的差值，不知道是哪里的问题。我用的系统是win10的，office是16的，不知道和版本有没有关系。

sikongshan

excel.x 发表于 2020-7-11 11:41
还是不准啊，但相对位置是准的，中间有个固定的差值，不知道是哪里的问题。我用的系统是win10的，office ...

是以A1为坐标参照的，浏览了一下上面的帖子
可以看看我的头条里面总结的，https://www.toutiao.com/i6852127370066067982/

刚看到有人说那个方案复杂，所以来论坛找找简单方案。希望找到直接的方法。