ShapeRange.TextFrame2-Eigenschaft (Projekt)

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 verwendet werden. 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 werden so festgelegt, dass sie automatisch an den Text angepasst werden, die Vordergrundfarbe des Texts im ersten Textfeld-Shape wird auf Rot festgelegt, die Vordergrundfarbe des Formbereichs wird auf ein gelbliches Hellbraun festgelegt und dann die TextEffect-Eigenschaft verwendet, um Schriftarteigenschaften für beide Textfelder im Formbereich 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.