ShapeRange.TextEffect-Eigenschaft (Projekt)

Ruft Textformatierungseigenschaften für den Formbereich ab. Schreibgeschütztes TextEffectFormat.

Syntax

Ausdruck verwendet werden. TextEffect

Ausdruck Eine Variable, die ein 'ShapeRange'-Objekt darstellt.

Beispiel

Im folgenden Beispiel wird ein Formbereich erstellt, der ein Textfeld-Shape enthält, legt die Vordergrundfarbe des Texts im Textrahmen auf Rot fest, legt die Vordergrundfarbe des Textfeld-Shapes auf ein gelbliches Tan fest und verwendet dann die TextEffect-Eigenschaft zum Festlegen von Schriftarteigenschaften.

Wenn es mehr als ein Textfeld-Shape im Formbereich gibt, werden die Schriftarteigenschaften jedes Textfelds entsprechend geändert.

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

Eigenschaftswert

TEXTEFFECTFORMAT

Siehe auch

ShapeRange-ObjektShape.TextEffect-EigenschaftTextEffectFormat

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.