ShapeRange.TextFrame2-Eigenschaft (Project)

Ruft ein TextFrame2-Objekt ab, das den Text in einem Textrahmen und die Elemente enthält, die die Ausrichtung, Verankerung und andere Features des Textrahmens steuern. TextFrame2 -Wert mit Schreibschutz.

Syntax

Ausdruck. TextFrame2

Ausdruck Eine Variable, die ein ShapeRange-Objekt darstellt.

Hinweise

Ein TextFrame2-Objekt enthält viele der gleichen Eigenschaften wie ein TextFrame-Objekt sowie zusätzliche Eigenschaften wie AutoSize, ThreeD und WordArtformat.

Beispiel

Im folgenden Beispiel werden zwei Textfelder erstellt und einem ShapeRange-Objekt hinzugefügt, beide Textrahmen so festgelegt, dass sie automatisch in den Text passen, die Vordergrundfarbe des Texts in der ersten Textfeldform auf Rot festgelegt, die Vordergrundfarbe des Formenbereichs auf eine gelbliche Bräune festgelegt und dann die TextEffect-Eigenschaft verwendet, um Schriftarteigenschaften für beide Textfelder im Formenbereich festzulegen.

Die TextFrame2-Eigenschaft für das ShapeRange-Objekt wird fett formatiert angezeigt.

Sub FormatTextBox()
    Dim theReport As Report
    Dim textShape1 As shape
    Dim textShape2 As shape
    Dim reportName As String
    Dim sRange As ShapeRange
    
    reportName = "Textbox range report"
    
    Set theReport = ActiveProject.Reports.Add(reportName)
    Set textShape1 = theReport.Shapes.AddTextbox(msoTextOrientationHorizontal, 30, 50, 350, 80)
    textShape1.Name = "Text box 1"
    
    Set textShape2 = theReport.Shapes.AddTextbox(msoTextOrientationHorizontal, 30, 130, 350, 80)
    textShape2.Name = "Text box 2"
    
    Set sRange = theReport.Shapes.Range(Array("Text box 1", "Text box 2"))
        
    sRange.TextFrame2.AutoSize = msoAutoSizeShapeToFitText
        
    sRange(1).TextFrame2.TextRange.Text = "This is a test. It's only a test."
    sRange(2).TextFrame2.TextRange.Text = "This is text box 2."
    sRange(1).TextFrame2.TextRange.Characters.Font.Fill.ForeColor.RGB = &H2020CC
    sRange.Fill.ForeColor.RGB = &H88CCCC
        
    With sRange.TextEffect
        .FontName = "Courier New"
        .FontBold = True
        .FontItalic = True
        .FontSize = 28
    End With
    
    sRange(2).Select
End Sub

Eigenschaftswert

TEXTFRAME2

Siehe auch

ShapeRange-ObjektTextFrame2

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.