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


Метод Shapes.AddLabel (Word)

Добавляет текстовую метку на холст документа.

Синтаксис

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

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

Параметры

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

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

Shapes

Пример

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

Sub NewCanvasTextLabel() 
 Dim shpCanvas As Shape 
 Dim shpLabel As Shape 
 
 'Add a drawing canvas to the active document 
 Set shpCanvas = ActiveDocument.Shapes.AddCanvas _ 
 (Left:=100, Top:=75, Width:=150, Height:=200) 
 
 'Add a label to the drawing canvas 
 Set
shpLabel = shpCanvas.CanvasItems.AddLabel _ 
 (Orientation:=msoTextOrientationHorizontal, _ 
 Left:=15, Top:=15, Width:=100, Height:=100) 
 
 'Fill the label textbox with a color, 
 'add text to the label and format it 
 With
shpLabel 
 With .Fill 
 .BackColor.RGB = RGB(Red:=0, Green:=0, Blue:=192) 
 'Make the fill visible 
 .Visible = msoTrue 
 End With 
 With .TextFrame.TextRange 
 .Text = "Hello World." 
 .Bold = True 
 .Font.Name = "Tahoma" 
 End With 
 End With 
End Sub

См. также

Объект Shapes Collection

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

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