Метод DocumentWindow.RangeFromPoint (PowerPoint)

Статья
04/07/2023

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

Синтаксис

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

Поделиться через