Метод ShapeRange.IncrementLeft (Publisher)

Статья
04/07/2023

Перемещает указанную фигуру или диапазон фигур по горизонтали на указанное расстояние.

Синтаксис

expression. IncrementLeft (Increment)

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

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Приращение	Обязательный	Variant	Горизонтальное расстояние для перемещения фигуры или диапазона фигур. Положительное значение перемещает фигуру или диапазон фигур вправо; отрицательное значение перемещает его влево. Числовые значения оцениваются в пунктах; строки могут находиться в любых единицах, поддерживаемых Microsoft Publisher (например, "2.5 in").

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

Отсутствует

Примечания

Используйте метод IncrementTop для перемещения фигур или диапазонов фигур по вертикали.

Пример

В этом примере первая фигура в активной публикации дублируется, задает заливку для дубликата, перемещает ее на 70 точек вправо и на 50 точек вверх и поворачивает ее на 30 градусов по часовой стрелке.

With ActiveDocument.Pages(1).Shapes(1).Duplicate 
 .Fill.PresetTextured PresetTexture:=msoTextureGranite 
 .IncrementLeft Increment:=70 
 .IncrementTop Increment:=-50 
 .IncrementRotation Increment:=30 
End With

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

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

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