Свойство Shape.TextEffect (Project)

Статья
04/07/2023

Возвращает свойства форматирования текста для фигуры. TextEffectFormat только для чтения.

Синтаксис

expression. Texteffect

Выражение Переменная, представляющая объект Shape .

Пример

В следующем примере цвет переднего плана текста в текстовом фрейме задается красным, цвет переднего плана фигуры текстового поля — желтоватым, а затем используется свойство TextEffect для задания свойств шрифта.

Sub FormatTextBox()
    Dim theReport As Report
    Dim textShape As shape
    Dim reportName As String
    
    reportName = "Textbox report"
    
    Set theReport = ActiveProject.Reports.Add(reportName)
    Set textShape = theReport.Shapes.AddTextbox(msoTextOrientationHorizontal, 30, 50, 350, 80)
    
    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
    
    With textShape.TextEffect
        .FontName = "Courier New"
        .FontBold = True
        .FontItalic = True
        .FontSize = 28
    End With
End Sub

Значение свойства

TEXTEFFECTFORMAT

См. также

Объект фигуры ShapeRange.TextEffect Property TextEffectFormat

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Поделиться через