Shapes.AddTextbox (Word)
Fügt einem Zeichenbereich ein Textfeld hinzu.
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
Hier sind die benannte Argumente :
Orientation (Office.MsoTextOrientation) - Die Ausrichtung des Texts.
Left (Single) - Die in Punkt gemessene Position des linken Rands des Textfelds.
Top (Single) - Die in Punkt gemessene Position des oberen Rands des Textfelds.
Width (Single) - Die in Punkt gemessene Breite des Textfelds.
Height (Single) - Die in Punkt gemessene Höhe des Textfelds.
Optional arguments
Das folgendes Argument ist optional
Anchor - Range