Метод Shapes.AddTextbox (Publisher)
Добавляет новый объект 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 и обратная связь.