Shapes.AddTextbox (Word)
Adiciona uma caixa de texto a uma tela de desenho.
AddTextbox (Orientation, Left, Top, Width, Height, Anchor)
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
O seguinte argumento é opcional
Orientation (Office.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 (Single) - A posição, medida em pontos, da borda esquerda da caixa de texto.
Top (Single) - A posição, medida em pontos, da borda superior da caixa de texto.
Width (Single) - A largura, medida em pontos, da caixa de texto.
Height (Single) - A altura, medida em pontos, da caixa de texto.
Optional arguments
The following argument is optional
Anchor - Range