Метод Shapes.AddTextbox (Publisher)

Статья
04/07/2023

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

Синтаксис

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

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

Параметры

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

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

Shape

Примечания

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

Параметр Orientation может быть одной из констант PbTextOrientation , объявленных в библиотеке типов издателя Майкрософт и показанных в следующей таблице.

Константа	Описание
pbTextOrientationHorizontal	Горизонтальное текстовое поле для языков слева направо.
pbTextOrientationRightToLeft	Горизонтальное текстовое поле для языков справа налево. Это значение не действует, если не выбран язык справа налево.
pbTextOrientationVerticalEastAsia	Вертикальное текстовое поле для языков Восточной Азии. Если выбран язык, отличный от восточноазиатского, текст будет повернут на 90 градусов вправо.

Пример

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

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

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

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