Método Shapes.AddLabel (Word)

Agrega una etiqueta de texto a un lienzo de dibujo.

Sintaxis

expresión. AddLabel (Orientation, Left, Top, Width, Height)

expresión requerida. Variable que representa un objeto Shapes .

Parameters

Nombre	Obligatorio/opcional	Tipo de datos	Descripción
Orientation	Obligatorio	MsoTextOrientation	La orientación del texto.
Left	Obligatorio	Single	La posición, medida en puntos, del borde izquierdo de la etiqueta con relación al borde izquierdo del lienzo de dibujo
Top	Obligatorio	Single	La posición, medida en puntos, del borde superior de la etiqueta con relación al borde superior del lienzo de dibujo
Width	Obligatorio	Single	Ancho del rótulo, en puntos.
Height	Obligatorio	Single	Alto del rótulo, en puntos.

Valor devuelto

Shapes

Ejemplo:

En este ejemplo se agrega una etiqueta con el texto "Hello World" en azul a un nuevo lienzo de dibujo en el documento activo.

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

Consulte también

Objeto de la colección de formas

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.