Shapes.AddLabel (Word)

Agrega una etiqueta de texto a un lienzo de dibujo.

AddLabel (Orientation, Left, Top, Width, Height, Anchor)

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

Arguments

Estos son los argumentos con nombre :

Orientation (Office.MsoTextOrientation) - La orientación del texto.

Left (Single) - La posición, medida en puntos, del borde izquierdo de la etiqueta con relación al borde izquierdo del lienzo de dibujo.

Top (Single) - La posición, medida en puntos, del borde superior de la etiqueta con relación al borde superior del lienzo de dibujo.

Width (Single) - Ancho del rótulo, en puntos.

Height (Single) - Alto del rótulo, en puntos.

Optional arguments

Los siguientes argumentos son opcionales

Anchor - Range