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


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