Метод ShapeRange.GetTop (Publisher)

Статья
04/07/2023

Возвращает расстояние от верхнего края фигуры или диапазона фигуры от верхнего края крайней левой страницы в текущем представлении в виде одного в указанных единицах.

Синтаксис

expression. GetTop (единица измерения)

Выражение Переменная, представляющая объект ShapeRange .

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Единицы	Обязательный	PbUnitType	Единицы измерения, в которых возвращается расстояние. Может быть одной из констант PbUnitType , объявленных в библиотеке типов издателя Майкрософт.

Возвращаемое значение

Одинарное

Замечания

Используйте метод GetLeft , чтобы вернуть расстояние левого края фигуры или диапазона фигуры от левого края крайней левой страницы в текущем представлении.

Пример

В следующем примере показаны расстояния от левого и верхнего краев крайней левой страницы до левого и верхнего краев диапазона фигур, состоящего из всех фигур на первой странице. Расстояния выражаются в дюймах (до ближайшего сотых).

With ActiveDocument.Pages(1).Shapes.Range 
 MsgBox "Distance from left: " _ 
 & Format(.GetLeft(Unit:=pbUnitInch), "0.00") _ 
 & " in" & vbCr _ 
 & "Distance from top: " _ 
 & Format(.GetTop(Unit:=pbUnitInch), "0.00") _ 
 & " in" 
End With

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

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