RangeFromPoint 方法

       

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

expression.RangeFromPoint(x, y)

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