Свойство ShapeRange.HasTextFrame (PowerPoint)

Статья
04/07/2023

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

Синтаксис

выражение. HasTextFrame

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

Возвращаемое значение

MsoTriState

Замечания

Значение свойства HasTextFrame может быть одной из этих констант MsoTriState .

Константа	Описание
msoFalse	Указанная фигура не имеет текстового кадра и поэтому не может содержать текст.
msoTrue	Указанная фигура имеет текстовый фрейм и поэтому может содержать текст.

Пример

Этот пример извлекает текст из всех фигур на первом слайде, содержащих текстовые кадры, а затем сохраняет имена этих фигур и текст, который они содержат в массиве.

Dim shpTextArray() As Variant
Dim numShapes, numAutoShapes, i As Long

Set myDocument = ActivePresentation.Slides(1)

With myDocument.Shapes
    numShapes = .Count
    If numShapes > 1 Then
        numTextShapes = 0
        ReDim shpTextArray(1 To 2, 1 To numShapes)
        For i = 1 To numShapes
            If .Item(i).HasTextFrame Then
                numTextShapes = numTextShapes + 1
                shpTextArray(numTextShapes, 1) = .Item(i).Name
                shpTextArray(numTextShapes, 2) = .Item(i) _
                    .TextFrame.TextRange.Text
            End If
        Next
        ReDim Preserve shpTextArray(1 To 2, 1 To numTextShapes)
    End If
End With

См. также

Объект ShapeRange

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

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

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