Propriedade ShapeRange.TextEffect (Project)

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

Sintaxe

expressão. TextEffect

expressão Uma variável que representa um objeto "ShapeRange".

Exemplo

O exemplo seguinte cria um intervalo de formas que contém uma forma de caixa de texto, define a cor de primeiro plano do texto na moldura de texto como vermelho, define a cor de primeiro plano da forma da caixa de texto para um bronzeado amarelo e, em seguida, utiliza a propriedade TextEffect para definir as propriedades do tipo de letra.

Se houvesse mais do que uma forma de caixa de texto no intervalo de formas, as propriedades do tipo de letra de cada caixa de texto seriam alteradas em conformidade.

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.