Excel VBA教程:RangeFromPoint方法

返回位于屏幕上指定坐标位置的ShapeRange对象。如果指定坐标位置上没有任何图形,则此方法将返回 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

上页:Excel VBA教程:RadarGroups方法 下页:Excel VBA教程:RecheckSmartTags方法

Excel VBA教程:RangeFromPoint方法

Excel VBA教程:RecheckSmartTags方法 Excel VBA教程:Record方法
Excel VBA教程:RecordMacro方法 Excel VBA教程:Refresh方法
Excel VBA教程:RefreshAll方法 Excel VBA教程:RefreshData方法
Excel VBA教程:RefreshTable方法 Excel VBA教程:RegisterXLL方法
Excel VBA教程:Regroup方法 Excel VBA教程:RejectAllChanges方法
Excel VBA教程:ReloadAs方法 Excel VBA教程:RemoveAllItems方法
Excel VBA教程:RemoveItem方法 Excel VBA教程:RemoveSubtotal方法
Excel VBA教程:RemoveUser方法 Excel VBA教程:Repeat方法
Excel VBA教程:Replace方法 Excel VBA教程:ReplaceNode方法
Excel VBA教程:获取有关 Macintosh 关键字的帮助 Excel VBA教程:获取有关 Macintosh 关键字的帮助
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号