Метод Shapes.AddShape (Publisher)

Статья
04/07/2023

Добавляет новый объект Shape , представляющий автофигуру, в указанную коллекцию Shapes .

Синтаксис

expression. AddShape (Type, Left, Top, Width, Height)

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

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Тип	Обязательный	MsoAutoShapeType	Тип autoShape для рисования.
Left	Обязательный	Variant	Положение левого края фигуры, представляющей автофигуру.
Top	Обязательный	Variant	Положение верхнего края фигуры, представляющей автофигуру.
Width	Обязательный	Variant	Ширина фигуры, представляющей автофигуру.
Height	Обязательный	Variant	Высота фигуры, представляющей автофигуру.

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

Shape

Примечания

Для аргументов Left, Top, Width и Height числовые значения вычисляются в пунктах; строки могут находиться в любых единицах, поддерживаемых Microsoft Publisher (например, "2.5 in").

Пример

В следующем примере на первую страницу активной публикации добавляется прямоугольник.

Dim shpShape As Shape 
 
Set shpShape = ActiveDocument.Pages(1).Shapes.AddShape _ 
 (Type:=msoShapeRectangle, _ 
 Left:=144, Top:=144, _ 
 Width:=72, Height:=144)

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

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