Método Shapes.AddTextbox (Word)

Agrega un cuadro de texto a un lienzo de dibujo.

Sintaxis

expresión. AddTextbox( _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. Algunas de estas constantes 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.

Valor devuelto

Shape

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

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.