Compartir a través de

Propiedad ShapeRange.HasTextFrame (PowerPoint)

  • Artículo

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

Sintaxis

expresión. HasTextFrame

Expresión Variable que representa un objeto ShapeRange .

Valor devuelto

MsoTriState

Comentarios

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

Consulte también

Objeto ShapeRange

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.