Метод Shapes.AddLabel (Publisher)

Статья
04/07/2023

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

Синтаксис

expression. AddLabel (ориентация, слева, сверху, ширина, высота)

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

Параметры

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

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

Shape

Примечания

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

Пример

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

Dim shpLabel As Shape 
 
Set shpLabel = ActiveDocument.Pages(1).Shapes.AddLabel _ 
 (Orientation:=pbTextOrientationHorizontal, _ 
 Left:=144, Top:=144, _ 
 Width:=72, Height:=18)

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

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