Метод Shapes.AddLabel (Word)

Статья
04/07/2023

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

Синтаксис

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 и обратная связь.

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