Поделиться через


Метод CanvasShapes.AddTextbox (Word)

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

Синтаксис

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

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

Параметры

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

Пример

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

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

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

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