Метод Window.GetPoint (Word)
Возвращает экранные координаты заданного диапазона или фигуры.
Синтаксис
выражение. GetPoint
( _ScreenPixelsLeft_
, _ScreenPixelsTop_
, _ScreenPixelsWidth_
, _ScreenPixelsHeight_
, _obj_
)
выражение (обязательно). Переменная, представляющая объект Window .
Параметры
Имя | Обязательный или необязательный | Тип данных | Описание |
---|---|---|---|
ScreenPixelsLeft | Обязательный | Long | Имя переменной, в которое microsoft Word возвращает значение левого края объекта. |
ScreenPixelsTop | Обязательный | Long | Имя переменной, к которой требуется, чтобы Word возвращал значение для верхнего края объекта. |
ScreenPixelsWidth | Обязательный | Long | Имя переменной, к которой требуется, чтобы Word возвращал значение ширины объекта. |
ScreenPixelsHeight | Обязательный | Long | Имя переменной, к которой требуется, чтобы Word возвращал значение высоты объекта. |
Obj | Обязательный | Object | Объект Range или Shape . |
Замечания
Если на экране не отображается весь диапазон или фигура, возникает ошибка.
Пример
В этом примере проверяется текущий выделенный фрагмент и возвращаются его экранные координаты.
Dim pLeft As Long
Dim pTop As Long
Dim pWidth As Long
Dim pHeight As Long
ActiveWindow.GetPoint pLeft, pTop, pWidth, pHeight, _
Selection.Range
MsgBox "Left = " & pLeft & vbLf _
& "Top = " & pTop & vbLf _
& "Width = " & pWidth & vbLf _
& "Height = " & pHeight
См. также
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.