Hinweis
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, sich anzumelden oder das Verzeichnis zu wechseln.
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, das Verzeichnis zu wechseln.
Fügt einem Zeichenbereich ein Textfeld hinzu. Gibt ein Shape-Objekt zurück, welches das Textfeld darstellt.
Syntax
Ausdruck. AddTextbox (Ausrichtung, Links, Oben, Breite, Höhe)
expression Erforderlich. Eine Variable, die ein CanvasShapes-Objekt darstellt.
Parameter
| Name | Erforderlich/Optional | Datentyp | Beschreibung |
|---|---|---|---|
| Orientation | Erforderlich | MsoTextOrientation | Die Ausrichtung des Texts. Je nach der ausgewählten bzw. installierten Sprachunterstützung (z. B. Deutsch) stehen möglicherweise nicht alle MsoTextOrientation-Konstanten zur Verfügung. |
| 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. |
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
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.