Table of contents
Collapse the table of content
Expand the table of content

ShapeRange.TextEffect Property (Project)

office 365 dev account|Last Updated: 6/12/2017
1 Contributor

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


expression. TextEffect

expression A variable that represents a ShapeRange object.


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 is 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


See also

Other resources

ShapeRange ObjectShape.TextEffect PropertyTextEffectFormat

© 2018 Microsoft