RangeFromPoint方法总结计划.docxVIP

RangeFromPoint 方法 返回位于屏幕上指定坐标位置的 Shape 或 Range对象。如果指定坐标位置上没有任何图形，则此方法将返回 Nothing 。 expression.RangeFromPoint(x, y) expression 该表达式返回一个 Window 对象。 x Long 类型，必需。此值（单位：像素）代表从顶部开始到屏幕左边缘的横向距离。 y Long 类型，必选。此值（单位：像素）代表从左部开始到屏幕顶部的纵向距离。 Excel VBA 教程： RangeFromPoint 方法·示例 如果图形为图表、 线条或图片，则本示例立即在鼠标指针下方返回该图形的可选文字。 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