ShapeRange.TextEffect-Eigenschaft (Project)

Ruft Textformatierungseigenschaften für den Formbereich ab. Schreibgeschützter TextEffectFormat-Wert.

Syntax

Ausdruck. Texteffect

Ausdruck Eine Variable, die ein ShapeRange-Objekt darstellt.

Beispiel

Im folgenden Beispiel wird ein Formbereich erstellt, der eine Textfeldform enthält, die Vordergrundfarbe von Text im Textrahmen auf Rot festgelegt, die Vordergrundfarbe der Textfeldform auf eine gelbliche Bräune festgelegt und dann die TextEffect-Eigenschaft zum Festlegen von Schriftarteigenschaften verwendet.

Wenn mehr als ein Textfeld-Shape im Formenbereich vorhanden wäre, würden 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.