Метод Window.RangeFromPoint (Excel)

Возвращает объект Shape или Range , расположенный в указанной паре координат экрана. Если фигура не находится с указанными координатами, этот метод возвращает Значение Nothing.

Синтаксис

expression. RangeFromPoint (x, y)

выражение Переменная, представляющая объект Window .

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
x	Обязательный	Long	Значение (в пикселях), представляющее горизонтальное расстояние от левого края экрана, начиная с верхней части экрана.
y	Обязательный	Long	Значение (в пикселях), представляющее вертикальное расстояние от верхней части экрана, начиная с левого края.

Возвращаемое значение

Object

Пример

В этом примере возвращается замещающий текст фигуры непосредственно под указателем мыши, если фигура является диаграммой, линией или рисунком.

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 и обратная связь.