Propiedad Shape.HasTextFrame (PowerPoint)

Devuelve si la forma especificada tiene un marco de texto. Solo lectura.

Sintaxis

expresión. HasTextFrame

expresión Variable que representa un objeto Shape.

Valor devuelto

MsoTriState

Observaciones

El valor de la propiedad HasTextFrame puede ser una de estas constantes MsoTriState.

Constante	Descripción
msoFalse	La forma especificada no tiene un marco de texto y, por lo tanto, no puede contener texto.
msoTrue	La forma especificada tiene un marco de texto y, por lo tanto, puede contener texto.

Ejemplo

Este ejemplo extrae texto de todas las formas de la primera diapositiva que contengan marcos de texto y, a continuación, almacena los nombres de estas formas y el texto que contienen en una 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

Vea también

Objeto Shape

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.