Примечание.
Для доступа к этой странице требуется авторизация. Вы можете попробовать войти или изменить каталоги.
Для доступа к этой странице требуется авторизация. Вы можете попробовать изменить каталоги.
Возвращает экранные координаты заданного диапазона или фигуры.
Синтаксис
выражение.
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 и обратная связь.