Propriedade ShapeRange.TextEffect (Project)

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

Sintaxe

mais simples. Efeito de texto

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 primeiro plano do texto no quadro de texto para vermelho, define a cor do primeiro plano da forma da caixa de texto para um bronzeado amarelado e, em seguida, usa a propriedade TextEffect para definir as propriedades da fonte.

Se houvesse mais de uma forma de caixa de texto no intervalo de formas, as propriedades de 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

Objeto ShapeRangePropriedade Shape.TextEffectTextEffectFormat

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.