Объект TextFrame2 (PowerPoint)

Представляет текстовый кадр в объекте Shape или ShapeRange . Содержит текст в текстовом фрейме и предоставляет свойства и методы, управляющие выравниванием и привязкой текстового фрейма.

Замечания

Используйте свойство TextFrame2 объектов Shape и ShapeRange , чтобы вернуть объект TextFrame2 .

Используйте свойство HasTextFrame , чтобы определить, содержит ли фигура или диапазон фигуры текстовый кадр, а свойство HasText — для определения того, содержит ли текстовый фрейм текст.

Пример

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

Public Sub TextFrame2_Example()



    Set pptSlide = ActivePresentation.Slides(1)

    With pptSlide.Shapes.AddShape(msoShapeRectangle, 0, 0, 250, 140).TextFrame2

        .TextRange.Text = "Here is some sample text"

        .MarginBottom = 10

        .MarginLeft = 10

        .MarginRight = 10

        .MarginTop = 10

    End With

    

End Sub

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

Public Sub HasTextFrame_Example()



    Set pptSlide = ActivePresentation.Slides(1)

    For Each pptShape In pptSlide.Shapes

        If pptShape.HasTextFrame Then

            With pptShape.TextFrame2

                If .HasText Then MsgBox .TextRange.Text

            End With

        End If

    Next

    

End Sub

См. также

Справочник по объектной модели PowerPoint

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

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