RangeFromPoint 方法

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

expression   该表达式返回一个 Window 对象。

x   Long 类型，必需。此值（单位：像素）代表从顶部开始到屏幕左边缘的横向距离。

y   Long 类型，必选。此值（单位：像素）代表从左部开始到屏幕顶部的纵向距离。

示例

如果图形为图表、线条或图片，则本示例立即在鼠标指针下方返回该图形的可选文字。

Private Function AltText(ByVal intMouseX As Integer, _
        ByVal intMouseY as Integer) As String
    Set objShape = ActiveWindow.RangeFromPoint _
        (x:=intMouseX, y:=intMouseY)
    If Not objShape Is Nothing Then
        With objShape
            Select Case .Type
                Case msoChart, msoLine, msoPicture:
                    AltText = .AlternativeText
                Case Else:
                    AltText = ""
            End Select
        End With
    Else
        AltText = ""
    End If
End Function