Shapes.AddTextbox-Methode (Project)

Fügt dem Bericht ein Textfeld hinzu und gibt ein Shape-Objekt zurück, das das neue Textfeld darstellt.

Syntax

Ausdruck. AddTextbox (Ausrichtung,Links,Oben,Breite,Höhe)

expression Eine Variable, die ein Shapes-Objekt darstellt.

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
Orientation	Erforderlich	MsoTextOrientation	Die Ausrichtung des Textfelds. Abhängig von der installierten Sprache sind einige Konstanten möglicherweise nicht verfügbar.
Left	Erforderlich	Single	Die Position des linken Rands des Textfelds in Punkt.
Top	Erforderlich	Single	Die Position des oberen Rands des Textfelds in Punkt.
Width	Erforderlich	Single	Die Breite des Textfelds in Punkt.
Height	Erforderlich	Single	Die Höhe des Textfelds in Punkt.
Orientation	Erforderlich	MSOTEXTORIENTATION
Left	Erforderlich	FLOAT
Top	Erforderlich	FLOAT
Width	Erforderlich	FLOAT
Height	Erforderlich	FLOAT
Name	Erforderlich/Optional	Datentyp	Beschreibung

Rückgabewert

Shape

Beispiel

Im folgenden Beispiel wird ein Textfeld mit einem hellgelben Hintergrund und einem sichtbaren Rahmen hinzugefügt. Die Textzeichenfolge wird mithilfe von Membern des TextFrame2-Objekts formatiert und bearbeitet.

Sub AddTextBoxShape()
    Dim theReport As Report
    Dim textShape As shape
    Dim reportName As String
    
    reportName = "Textbox report"
    
    Set theReport = ActiveProject.Reports.Add(reportName)
    Set textShape = theReport.Shapes.AddTextbox(msoTextOrientationHorizontal, 30, 50, 300, 100)
    
    textShape.TextFrame2.TextRange.Characters.Text = "This is a test. It's only a test. " _
        & "If it had been real information, there would be some real text here."
    textShape.TextFrame2.TextRange.Characters(1, 15).ParagraphFormat.FirstLineIndent = 10
    textShape.TextFrame2.TextRange.Characters(16).InsertBefore vbCrLf
    
    ' Set the font for the first 15 characters to dark blue bold.
    With textShape.TextFrame2.TextRange.Characters(1, 15).Font
        .Fill.ForeColor.ObjectThemeColor = msoThemeColorAccent5
        .Fill.Solid
        .Fill.Visible = msoTrue
        .Size = 14
        .Bold = msoTrue
    End With

    With textShape.Fill
        .ForeColor.RGB = RGB(255, 255, 160)
        .Visible = msoTrue
    End With
   
    With textShape.Line
        .Weight = 1
        .Visible = msoTrue
    End With
End Sub

Siehe auch

Shapes-ObjektShape-ObjektTextFrame2-EigenschaftMsoTextOrientation-Enumeration (Office)

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.