Метод DocumentWindow.RangeFromPoint (PowerPoint)
Возвращает объект 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)
См. также
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.