如何用API函数实现坐标转换

fdd

原帖由 小fisher 于 2009-5-17 14:52 发表
Winland版主，为什么我这句MsgBox ActiveWindow.PointsToScreenPixelsX(0)得到的总是0啊，而且不管括号内的数字是多少，结果都是0
示例
本示例确定活动窗口中选定单元格的高度和宽度（单位：像素），并将值返回到变 ...

to 小fisher 大师：用了您短信给我的代码，结果跟原来还是一样啊？即便有doevents语句，同样需要单击两次才能显示正确的屏幕坐标。为何？
to Winland 版主：我也测试了一下，结果跟上面大师测试结果一样，显示为0。为何？

小fisher

原帖由 winland 于 2009-5-17 15:02 发表
小fisher版主，你是否从VBE中运行代码，这样得出来的结果都会是返回0的。只有Excel为活动窗口，而不是从VBE中运行才可以的。

谢谢，我明白了，我有个程序也要用到这个属性，哈哈，这下简单多了

winland

原帖由 fdd 于 2009-5-17 15:03 发表


to 小fisher 大师：用了您短信给我的代码，结果跟原来还是一样啊？即便有doevents语句，同样需要单击两次才能显示正确的屏幕坐标。为何？
to Winland 版主：我也测试了一下，结果跟上面大师测试结果一样，显示为 ...

应该是从VBE中运行代码的原因。

fdd

原帖由 winland 于 2009-5-17 15:06 发表


应该是从VBE中运行代码的原因。

谢谢版主，才看到您的回帖！经测试，完全正确，比我原来的方法得到的数据各多一个像素值。
看来，这个问题还有得到更简单的解决！
谢谢版主赐教！

fdd

经进一步测试，问题得到圆满解决。
特别感谢：小Fisher大师和winland版主。小Fisher大师的语句让我进一步加深了对ＡＰＩ函数的一些认识，而且启发了我的思维。winland版主的精炼代码，也让我找到了解决问题的捷径！
再次感谢，论坛之所以人气旺，最主要的原因是有象您们这样有实力的大师的存在，向您们学习！永远！

--------------------------------------------------------------------------------------------------------------------------------------------------------------------
把解决问题的完整代码及附件传上来，方便大家了解：

1. '--------------API函数声明及常数定义-------------------------------------------------------------------------
   
2. Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
   
3. Private Declare Function GetDeviceCaps Lib "gdi32" (ByVal hdc As Long, ByVal nIndex As Long) As Long
   
4. Private Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hdc As Long) As Long
   
5. Private Const LOGPIXELSX = 88 '求屏幕横向分辨率
   
6. Private Const LOGPIXELSY = 90 '求屏幕纵向分辨率
   
7. '--------------API函数声明及常数定义-------------------------------------------------------------------------
   
8. Sub 单元格屏幕坐标显示()
   
9.     Dim PixelsPerInchX As Long
   
10.     Dim PixelsPerInchY As Long
    
11.     Dim hdc As Long
    
12.     Dim Rng As Range
    
13. '----------------获取屏幕分辨率语句---------------------------------------------
    
14.     hdc = GetDC(0)
    
15.     PixelsPerInchX = GetDeviceCaps(hdc, LOGPIXELSX)
    
16.     PixelsPerInchY = GetDeviceCaps(hdc, LOGPIXELSY)
    
17.     ReleaseDC 0, hdc
    
18. '----------------获取屏幕分辨率语句---------------------------------------------
    
19.     Set Rng = Range(Range("g1").Value & "")
    
20.    
    
21. '----------------ActiveWindow.PointsToScreenPixelsX(0)为获取Ａ１单元格左上角屏幕横坐标--------------
    
22. '----------------ActiveWindow.PointsToScreenPixelsY(0)为获取Ａ１单元格左上角屏幕纵坐标--------------
    
23. '----------------PixelsPerInchX / 72意思为：点坐标（磅）转换为像素（pixel)坐标-----------------------------
    
24.    
    
25.    
    
26.     With Rng
    
27.         [h1] = "Left: " & ActiveWindow.PointsToScreenPixelsX(0) + .Left * PixelsPerInchX / 72
    
28.         [h2] = "Top : " & ActiveWindow.PointsToScreenPixelsY(0) + .Top * PixelsPerInchY / 72
    
29.     End With
    
30.   
    
31. '--------------------------------------------------------------------------------------------------------------------------------------
    
32. End Sub
    
33. 
    
34. 
    

复制代码

[ 本帖最后由 fdd 于 2009-5-17 15:53 编辑 ]

foxlandy

'--------------API函数声明及常数定义-------------------------------------------------------------------------
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function GetDeviceCaps Lib "gdi32" (ByVal hdc As Long, ByVal nIndex As Long) As Long
Private Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hdc As Long) As Long
Private Const LOGPIXELSX = 88 '求屏幕横向分辨率
Private Const LOGPIXELSY = 90 '求屏幕纵向分辨率
'--------------API函数声明及常数定义-------------------------------------------------------------------------

Private Sub UserForm_Initialize()
    Dim PixelsPerInchX As Long
    Dim PixelsPerInchY As Long
    Dim hdc As Long
    Dim X, Y As Long
'----------------获取屏幕分辨率语句---------------------------------------------
    hdc = GetDC(0)
    PixelsPerInchX = GetDeviceCaps(hdc, LOGPIXELSX)
    PixelsPerInchY = GetDeviceCaps(hdc, LOGPIXELSY)
    ReleaseDC 0, hdc
'----------------获取屏幕分辨率语句---------------------------------------------


'----------------ActiveWindow.PointsToScreenPixelsX(0)为获取Ａ１单元格左上角屏幕横坐标---------------------------------------------
'----------------ActiveWindow.PointsToScreenPixelsY(0)为获取Ａ１单元格左上角屏幕纵坐标---------------------------------------------
'----------------PixelsPerInchX / 72意思为：点坐标（磅）转换为像素（pixel)坐标-----------------------------------------------------



With TRng
X = ActiveWindow.PointsToScreenPixelsX(0) + .Left * PixelsPerInchX / 72
Y = ActiveWindow.PointsToScreenPixelsY(0) + .Top * PixelsPerInchY / 72

'MsgBox TRng.AddressLocal
'MsgBox X
'MsgBox Y
End With


With STD_DLG
.Left = X
.Top = Y
End With

程序中的TRng是个公用变量,就是我点击的那个单元格.

引用了你的以上代码,我需要在点击单元格时,在单元格的右边显示对话框,结果位置始终不正确,请问怎么回事?

[ 本帖最后由 foxlandy 于 2009-7-7 09:37 编辑 ]

赵国辉

关注一下，不过个人感觉这种获取没啥实际意义，受太多因素的影响

赵国辉

向winland版主致敬！

Q5006

试了一下，当改变缩放比例及冻结，拆分的情况，获取的单元格坐标是不对的。如何精确获得活动单元的的屏幕坐标？

yiyiyicz

高手过招，让我等菜鸟看呆了
这个网站人气高，真不是浪得虚名