Propiedad ShapeRange.TextEffect (Project)

Obtiene las propiedades de formato de texto del intervalo de formas. TextEffectFormat de solo lectura.

Sintaxis

expresión. TextEffect

Expresión Variable que representa un objeto 'ShapeRange'.

Ejemplo:

En el ejemplo siguiente se crea un intervalo de formas que contiene una forma de cuadro de texto, se establece el color de primer plano del texto del marco de texto en rojo, se establece el color de primer plano de la forma del cuadro de texto en un bronceado amarillento y, a continuación, se usa la propiedad TextEffect para establecer las propiedades de fuente.

Si hubiera más de una forma de cuadro de texto en el intervalo de formas, las propiedades de fuente de cada cuadro de texto se cambiarían en consecuencia.

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

Valor de propiedad

TEXTEFFECTFORMAT

Consulte también

Propiedad TextEffect del objeto ShapeRangeTextEffect TextEffectFormat

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.