Project.shaperange.texteffect.md

title	ms.service	ms.assetid	ms.date	ms.localizationpriority
ShapeRange.TextEffect property (Project)	project-server	83c2ca99-7ae1-0a93-41f1-2e53379b54ec	06/08/2017	medium

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

[!includeSupport and feedback]