Свойство ShapeRange.TextEffect (Проект)

Статья
04/07/2023

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

Синтаксис

expression. Texteffect

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

Пример

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

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

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

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

TEXTEFFECTFORMAT

См. также

ShapeRange Object Shape.TextEffect Property TextEffectFormat

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

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

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