Shapes.AddTextbox-Methode (Word)

Fügt einem Zeichenbereich ein Textfeld hinzu.

Syntax

Ausdruck. AddTextbox( _Orientation_ , _Left_ , _Top_ , _Width_ , _Height_ )

Ausdruck: Erforderlich. Eine Variable, die ein Shapes-Objekt darstellt.

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
Orientation	Erforderlich	MsoTextOrientation	Die Ausrichtung des Texts. Je nach ausgewählter oder installierter Sprachunterstützung (z. B. Deutsch) sind einige dieser Konstanten möglicherweise nicht verfügbar.
Left	Erforderlich	Single	Die in Punkt gemessene Position des linken Rands des Textfelds.
Top	Erforderlich	Single	Die in Punkt gemessene Position des oberen Rands des Textfelds.
Width	Erforderlich	Single	Die in Punkt gemessene Breite des Textfelds.
Height	Erforderlich	Single	Die in Punkt gemessene Höhe des Textfelds.

Rückgabewert

Form

Beispiel

In diesem Beispiel wird einem Zeichenbereich in einem neuen Dokument ein Textfeld hinzugefügt.

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

Siehe auch

Shapes Collection Object

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.