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

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

Синтаксис

выражение. HasTextFrame

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

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

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

См. также

Объект Shape

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

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