Método CanvasShapes.AddTextbox (Word)

Agrega un cuadro de texto a un lienzo de dibujo. Devuelve un objeto Shape que representa el cuadro de texto.

Sintaxis

expresión. AddTextbox (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	MsoTextOrientation	La orientación del texto. Es podrán que algunas de las constantes MsoTextOrientation no estén disponibles, según la compatibilidad con el idioma que haya seleccionado o instalado (por ejemplo, inglés, Estados Unidos).
Left	Obligatorio	Single	La posición, medida en puntos, del borde izquierdo del cuadro de texto.
Top	Obligatorio	Single	La posición, medida en puntos, del borde superior del cuadro de texto.
Width	Obligatorio	Single	El ancho, medido en puntos, del cuadro de texto.
Height	Obligatorio	Single	El alto, medido en puntos, del cuadro de texto.

Ejemplo:

En este ejemplo se agrega un cuadro de texto a un lienzo en un documento nuevo.

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

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.