Объект TextFrame (PowerPoint)

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

Пример

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

Set myDocument = ActivePresentation.Slides(1)

With myDocument.Shapes _

        .AddShape(msoShapeRectangle, 0, 0, 250, 140).TextFrame

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

    .MarginBottom = 10

    .MarginLeft = 10

    .MarginRight = 10

    .MarginTop = 10

End With

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

Set myDocument = ActivePresentation.Slides(1)

For Each s In myDocument.Shapes

    If s.HasTextFrame Then

        With s.TextFrame

            If .HasText Then MsgBox .TextRange.Text

        End With

    End If

Next

Методы

Имя
DeleteText

Свойства

Имя
Application
AutoSize
Creator
HasText
HorizontalAnchor
MarginBottom
MarginLeft
MarginRight
MarginTop
Orientation
Parent
Ruler
TextRange
VerticalAnchor
WordWrap

См. также

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

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

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