Propriedade ShapeRange.TextEffect (Project)

Obtém propriedades de formatação de texto para o intervalo de formas. TextEffectFormat somente leitura.

Sintaxe

expressão. Texteffect

Expressão Uma variável que representa um objeto 'ShapeRange'.

Exemplo

O exemplo a seguir cria um intervalo de formas que contém uma forma de caixa de texto, define a cor do texto em primeiro plano no quadro de texto como vermelho, define a cor em primeiro plano da forma da caixa de texto como um bronzeado amarelado e, em seguida, usa a propriedade TextEffect para definir propriedades de fonte.

Se houvesse mais de uma forma de caixa de texto no intervalo de formas, as propriedades da fonte de cada caixa de texto seriam alteradas de acordo.

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 propriedade

TEXTEFFECTFORMAT

Confira também

ShapeRange ObjectShape.TextEffect PropertyTextEffectFormat

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.