Ескертпе
Бұл бетке кіру үшін қатынас шегін айқындау қажет. Жүйеге кіруді немесе каталогтарды өзгертуді байқап көруге болады.
Бұл бетке кіру үшін қатынас шегін айқындау қажет. Каталогтарды өзгертуді байқап көруге болады.
Возвращает экранные координаты заданного диапазона или фигуры.
Синтаксис
выражение.
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 и обратная связь.