Partilhar via

Propriedade ShapeRange.HasTextFrame (PowerPoint)

  • Artigo

Retorna se a forma especificada possui um quadro de texto. Somente leitura.

Sintaxe

expression. HasTextFrame

Expressão Uma variável que representa um objeto ShapeRange .

Valor de retorno

MsoTriState

Comentários

O valor da propriedade HasTextFrame pode ser uma destas constantes MsoTriState.

Constante Descrição
msoFalse A forma especificada não tem um quadro de texto e, portanto, não pode conter texto.
msoTrue A forma especificada tem um quadro de texto e, portanto, pode conter texto.

Exemplo

Este exemplo extrai o texto de todas as formas no primeiro slide, que contém quadros de texto, e armazena os nomes dessas formas e o texto nelas contido em uma matriz.

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

Confira também

Objeto ShapeRange

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.