CanvasShapes.AddTextbox (Word)

Agrega un cuadro de texto a un lienzo de dibujo.

AddTextbox (Orientation, Left, Top, Width, Height)


Sub NewCanvasTextbox() 
 Dim docNew As Document 
 Dim shpCanvas As Shape 
 
 'Create a new document and add a drawing canvas 
 Set docNew = Documents.Add 
 Set shpCanvas = docNew.Shapes.AddCanvas _ 
 (Left:=100, Top:=75, Width:=150, Height:=200) 
 
 'Add a text box to the drawing canvas 
 shpCanvas.CanvasItems.AddTextbox _ 
 Orientation:=msoTextOrientationHorizontal, _ 
 Left:=1, Top:=1, Width:=100, Height:=100 
End Sub

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 del cuadro de texto.

Top (Single) - La posición, medida en puntos, del borde superior del cuadro de texto.

Width (Single) - El ancho, medido en puntos, del cuadro de texto.

Height (Single) - El alto, medido en puntos, del cuadro de texto.