Shape.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.
Ausdruck. TextFrame2
expression Eine Variable, die ein Shape-Objekt darstellt.
Ein TextFrame2-Objekt enthält viele der gleichen Eigenschaften wie ein TextFrame-Objekt sowie zusätzliche Eigenschaften wie AutoSize, ThreeD und WordArtformat.
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 die einzelnen Shape-Objekte 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
TEXTFRAME2
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.