DocumentWindow.RangeFromPoint (PowerPoint)

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

Синтаксис

выражение. RangeFromPoint (x, y)

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

Параметры

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

Пример

В этом примере на первый слайд добавляется новая пятиконечная звезда, используя координаты (288, 100). Затем он преобразует эти координаты из точек в пиксели, использует метод RangeFromPoint для возврата ссылки на новый объект и изменяет цвет заливки звезды. Обратите внимание, что пример не будет работать, пока вы не пройдете через код, возможно, указав на ошибку в методе. Предпоследняя строка для установки ссылки на объект myShape завершается сбоем во время выполнения, если только не пройти код.

Dim myPointX As Integer, myPointY As Integer
Dim myShape As Object

ActivePresentation.Slides(1).Shapes _
    .AddShape(msoShape5pointStar, 288, 100, 100, 72).Select

myPointX = ActiveWindow.PointsToScreenPixelsX(288)
myPointY = ActiveWindow.PointsToScreenPixelsY(100)
Set myShape = ActiveWindow.RangeFromPoint(myPointX, myPointY)
myShape.Fill.ForeColor.RGB = RGB(80, 160, 130)

См. также

Объект DocumentWindow

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.