如何理解Window.RangeFromPoint 方法

liucqa

Window.RangeFromPoint 方法

返回位于屏幕上指定坐标位置的 Shape 或 Range 对象。如果指定坐标位置上没有任何形状，则此方法将返回 Nothing。

如何理解返回Shape对象？ 在Excel2007下，我无法在单元格上得到shape对象

看附件

问这个问题，是因为下面的代码在Excel2007上不能执行
http://club.excelhome.net/forum.php?mod=redirect&goto=findpost&ptid=546023&pid=3627122


附件更新

RangeFromPoint获取鼠标单元格 .rar (16.93 KB, 下载次数: 98)

2012-2-25 11:05 上传

点击文件名下载附件

经测试，rng可以在2010下取得Drawing对象和Button对象，无需Select。
在2007下，只能取得Button对象。

wxhnr

只举一个例子，通过鼠标位置来获取单元格地址。


Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    Dim Currng As Range
   
    GetCursorPos CurPos
    x1 = CurPos.X: y1 = CurPos.Y
    Set Currng = ActiveWindow.RangeFromPoint(x1, y1)
    MsgBox Currng.Address
End Sub

liucqa

wxhnr 发表于 2012-1-6 05:02
只举一个例子，通过鼠标位置来获取单元格地址。

举一个返回shape对象的例子，谢谢

liucqa

没人会？     

liucqa

占领制高点，顶呀顶           

liucqa

顶                 

chrisfang

晕，你用了Dim rng As Range，那当rng对象是shape的时候当然报错啦

liucqa

chrisfang 发表于 2012-1-6 16:11
晕，你用了Dim rng As Range，那当rng对象是shape的时候当然报错啦

感谢指出问题，将rng改成 Variant可以取得Button类型了，但是还是不能取到Drawing形状以及Rectangle形状！

再帮想想？
Public Sub abc()
    a = 0
    On Error Resume Next
    Dim myp As POINTAPI
    Dim rng As Variant

    Cells.Clear
    [i1].Select
    Do
    GetCursorPos myp
        If a = 1 Then Exit Do
        Set rng = ActiveWindow.RangeFromPoint(myp.x, myp.y)
        If Not rng Is Nothing Then
            Sheet1.[a1] = rng.Address
            Sheet1.[a2] = TypeName(rng)
            Sheet1.[a3] = TypeName(Selection)
            Sheet1.[a8] = ""
        Else
            Sheet1.[a8] = Timer & "RangeFromPoint无对象"
        End If
        DoEvents
    Loop
End Sub

RangeFromPoint获取鼠标单元格 .rar (17.64 KB, 下载次数: 48)

2012-1-6 17:14 上传

点击文件名下载附件

liucqa

chrisfang 发表于 2012-1-6 16:11
晕，你用了Dim rng As Range，那当rng对象是shape的时候当然报错啦

RangeFromPoint获取鼠标单元格 .rar (17.65 KB, 下载次数: 45)

2012-1-6 18:00 上传

点击文件名下载附件

莫非2007下就不能取得Drawing之类的形状？

我用中断直接观察鼠标在地图上得到的rng（监视窗口，看rng的对象内容），发现还是range类型，不是shape。鼠标在Button上，可以得到类型。

lizi007

能否获取鼠标滑过区区域的地址呢？