Método Shapes.AddLabel (Word)

Adiciona um rótulo de texto a uma tela de desenho.

Sintaxe

expressão. AddLabel (Orientação, Esquerda, Superior, Largura, Altura)

expressão Obrigatório. Uma variável que representa um objeto Shapes .

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
Orientation	Obrigatório	MsoTextOrientation	A orientação do texto.
Left	Obrigatório	Single	A posição, medida em pontos, da borda esquerda do rótulo em relação à borda esquerda da tela de desenho.
Top	Obrigatório	Single	A posição, medida em pontos, da borda superior do rótulo em relação à borda superior da tela de desenho.
Width	Obrigatório	Single	A largura do rótulo, em pontos.
Height	Obrigatório	Single	A altura do rótulo, em pontos.

Valor de retorno

Shapes

Exemplo

Este exemplo adiciona um rótulo de texto azul com os dizeres "Olá mundo!" a uma nova tela de desenho no documento ativo.

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

Confira também

Objeto da coleção Shapes

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.