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

fdd

原帖由 小fisher 于 2009-5-16 14:32 发表

我也没有实际操作过，不过有两种思路可以得到工作表中处于最左上角的单元格的坐标，您可以参考一下：
1。临时图表法。即在工作表中添加一个带句柄的临时控件，比如图表，将它与最左上角的单元格（通过ActiveWindo ...

毕竟是大师，思路就是不同，而且思维不同凡响！我试试，谢谢“小fisher”大师！

sblisb

原帖由 fdd 于 2009-5-16 14:43 发表


毕竟是大师，思路就是不同，而且思维不同凡响！我试试，谢谢“小fisher”大师！

能不能把成果共享一下?谢谢!

fdd

原帖由 sblisb 于 2009-5-16 15:48 发表


能不能把成果共享一下?谢谢!

可惜还没弄出来呢！

fdd

在小fisher 大侠的指引下，总算解决了问题。见附件。

xowi99

非常感谢小fisher 的讲解

fdd

奇怪，为什么每次改变ListView的位置后，用API函数得到的值（左上角屏幕坐标）总是前次位置的值？

fdd

有哪位高手知道上面的问题是怎么造成的？

winland

其实MS Excel还提供了一个比较直接的方法。
Window对象提供了两个方法PointsToScreenPixelsX和PointsToScreenPixelsY，根据字面意义和帮助文件这两个方法表示将Point转换Pixel，而实际的结果不是这样的。
PointsToScreenPixelsX(0)和PointsToScreenPixelsY(0)分别返回单元格A1的左上角在屏幕坐标（屏幕最左上角为[0,0]，向下和右为+）中的X轴和Y轴像素。
这样，通过获得指定单元格到A1的距离（以Point为单位），然后将Point转换成像素，加上前面两个方法获得像素坐标，就可以获得指定单元格在屏幕坐标的位置了。这个方法对将控件或窗体放置到指定单元格的位置很有效。
Point转换成像素很简单，以96DPI为例，Point * 96 * 20 / 1440 = Pixel

小fisher

Winland版主，为什么我这句MsgBox ActiveWindow.PointsToScreenPixelsX(0)得到的总是0啊，而且不管括号内的数字是多少，结果都是0
示例
本示例确定活动窗口中选定单元格的高度和宽度（单位：像素），并将值返回到变量 lWinWidth 和 lWinHeight 中。

With ActiveWindow
    lWinWidth = _
        .PointsToScreenPixelsX(.Selection.Width)
    lWinHeight = _
        .PointsToScreenPixelsY(.Selection.Height)
End With

上面是帮助文件中的示例，在我这里运行结果也还是0。。。

[ 本帖最后由 小fisher 于 2009-5-17 14:56 编辑 ]

winland

小fisher版主，你是否从VBE中运行代码，这样得出来的结果都会是返回0的。只有Excel为活动窗口，而不是从VBE中运行才可以的。