共用方式為


Window.RangeFromPoint 方法 (Excel)

會傳回位於指定一對螢幕座標的 ShapeRange 物件。 如果沒有位於指定座標的圖形,這個方法會傳回 Nothing

語法

運算式RangeFromPoint (xy)

表達 代表 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

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎? 如需取得支援服務並提供意見反應的相關指導,請參閱 Office VBA 支援與意見反應