Свойство Shape.TextFrame2 (Проект)

  • Статья

Возвращает объект TextFrame2 , содержащий текст в текстовом фрейме и элементы, управляющие выравниванием, привязкой и другими функциями текстового фрейма. TextFrame2, доступный только для чтения.

Синтаксис

expression. TextFrame2

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

Замечания

Объект TextFrame2 содержит многие из таких же свойств, как объект TextFrame , а также дополнительные свойства, такие как AutoSize, ThreeD и WordArtformat.

Пример

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

Свойство TextFrame2 для отдельных объектов Shape выделено полужирным шрифтом.

Sub FormatTextBox()
    Dim theReport As Report
    Dim textShape1 As shape
    Dim textShape2 As shape
    Dim reportName As String
    Dim sRange As ShapeRange
    
    reportName = "Textbox range report"
    
    Set theReport = ActiveProject.Reports.Add(reportName)
    Set textShape1 = theReport.Shapes.AddTextbox(msoTextOrientationHorizontal, 30, 50, 350, 80)
    textShape1.Name = "Text box 1"
    
    Set textShape2 = theReport.Shapes.AddTextbox(msoTextOrientationHorizontal, 30, 130, 350, 80)
    textShape2.Name = "Text box 2"
    
    Set sRange = theReport.Shapes.Range(Array("Text box 1", "Text box 2"))
        
    sRange.TextFrame2.AutoSize = msoAutoSizeShapeToFitText
        
    sRange(1).TextFrame2.TextRange.Text = "This is a test. It's only a test."
    sRange(2).TextFrame2.TextRange.Text = "This is text box 2."
    sRange(1).TextFrame2.TextRange.Characters.Font.Fill.ForeColor.RGB = &H2020CC
    sRange.Fill.ForeColor.RGB = &H88CCCC
        
    With sRange.TextEffect
        .FontName = "Courier New"
        .FontBold = True
        .FontItalic = True
        .FontSize = 28
    End With
    
    sRange(2).Select
End Sub

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

TEXTFRAME2

См. также

Объект фигурыTextFrame2

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

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