ShapeRange.TextEffect property (Project)

Gets text formatting properties for the shape range. Read-only TextEffectFormat.

Syntax

expression.TextEffect

expression A variable that represents a 'ShapeRange' object.

Example

The following example creates a shape range that contains a text box shape, sets the foreground color of text in the text frame to red, sets the foreground color of the text box shape to a yellowish tan, and then uses the TextEffect property to set font properties.

If there were more than one text box shape in the shape range, the font properties of each text box would be changed accordingly.

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

Property value

TEXTEFFECTFORMAT

See also

ShapeRange Object Shape.TextEffect Property TextEffectFormat

Support and feedback

Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.