Método CanvasShapes.AddLabel (Word)

Agrega una etiqueta de texto a un lienzo de dibujo. Devuelve un objeto Shapes que representa la etiqueta del texto.

Sintaxis

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

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

Parameters

Nombre	Obligatorio/opcional	Tipo de datos	Descripción
Orientation	Obligatorio	MsoText	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.

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

CanvasShapes (colección)

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.