Propiedad ShapeRange.TextEffect (proyecto)

Obtiene las propiedades de formato de texto para el rango de formas. TextEffectFormat de solo lectura.

Sintaxis

más sencilla.Efecto de texto

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

Ejemplo

En el ejemplo siguiente se crea un rango de formas que contiene una forma de cuadro de texto, establece el color de primer plano del texto en el marco de texto en rojo, establece el color de primer plano de la forma del cuadro de texto en un tostado amarillento y, después, usa la propiedad TextEffect para establecer las propiedades de la fuente.

Si hay más de una forma de cuadro de texto en el rango 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

Vea también

Objeto ShapeRange PropiedadShape.TextEffectTextEffectFormat

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.