Método Shapes.AddTextbox (Word)

Adiciona uma caixa de texto a uma tela de desenho.

Sintaxe

expressão. AddTextbox( _Orientation_ , _Left_ , _Top_ , _Width_ , _Height_ )

expressão Obrigatório. Uma variável que representa um objeto Shapes .

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
Orientation	Obrigatório	MsoTextOrientation	A orientação do texto. Algumas dessas constantes podem não estar disponíveis para você, dependendo do suporte a idioma (inglês americano, por exemplo) que você selecionou ou instalou.
Left	Obrigatório	Single	A posição, medida em pontos, da borda esquerda da caixa de texto.
Top	Obrigatório	Single	A posição, medida em pontos, da borda superior da caixa de texto.
Width	Obrigatório	Single	A largura, medida em pontos, da caixa de texto.
Height	Obrigatório	Single	A altura, medida em pontos, da caixa de texto.

Valor de retorno

Formato

Exemplo

Este exemplo adiciona uma caixa de texto a uma tela em um novo documento.

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

Confira também

Objeto da coleção Shapes

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.