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

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

Синтаксис

выражение. ТекстФрейм2

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

Примечания

Объект 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 и обратная связь.