Метод Shapes.AddTextbox (Word)

Добавляет текстовое поле на холст рисования.

Синтаксис

выражение. AddTextbox( _Orientation_ , _Left_ , _Top_ , _Width_ , _Height_ )

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

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Orientation	Обязательный	MsoTextOrientation	Ориентация текста. Некоторые из этих констант могут быть недоступны в зависимости от выбранной или установленной языковой поддержки (например, английский язык США).
Left	Обязательный	Single	Позиция левого края текстового поля, измеряемая в точках.
Top	Обязательный	Single	Позиция верхнего края текстового поля, измеряемая в точках.
Width	Обязательный	Single	Ширина текстового поля, измеряемая в точках.
Height	Обязательный	Single	Высота текстового поля, измеряемая в точках.

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

Shape

Пример

В этом примере текстовое поле добавляется на холст в новом документе.

Sub NewCanvasTextbox() 
 Dim docNew As Document 
 Dim shpCanvas As Shape 
 
 'Create a new document and add a drawing canvas 
 Set docNew = Documents.Add 
 Set shpCanvas = docNew.Shapes.AddCanvas _ 
 (Left:=100, Top:=75, Width:=150, Height:=200) 
 
 'Add a text box to the drawing canvas 
 shpCanvas.CanvasItems.AddTextbox _ 
 Orientation:=msoTextOrientationHorizontal, _ 
 Left:=1, Top:=1, Width:=100, Height:=100 
End Sub

См. также

Объект Shapes Collection

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

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