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