Table of contents
TOC
Recolher sumário
Expandir sumário

Propriedade ShapeRange.HasTextFrame (PowerPoint)ShapeRange.HasTextFrame Property (PowerPoint)

office 365 dev account|Última Atualização: 22/03/2018
|
2 Colaboradores

Retorna se a forma especificada possui um quadro de texto. Somente leitura. .Returns whether the specified shape has a text frame. Read-only.

SintaxeSyntax

expressão. HasTextFrameexpression. HasTextFrame

expressão Uma variável que representa um objeto ShapeRange .expression A variable that represents a ShapeRange object.

Valor retornadoReturn Value

MsoTriStateMsoTriState

ComentáriosRemarks

O valor da propriedade HasTextFrame pode ser uma destas constantes MsoTriState .The value of the HasTextFrame property can be one of these MsoTriState constants.

ConstanteConstantDescriçãoDescription
msoFalsemsoFalseA forma especificada não tem um quadro de texto e, portanto, não pode conter texto.The specified shape does not have a text frame and therefore cannot contain text.
msoTruemsoTrueA forma especificada tem um quadro de texto e, portanto, pode conter texto.The specified shape has a text frame and can therefore contain text.

ExemploExample

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.This example extracts text from all shapes on the first slide that contain text frames, and then it stores the names of these shapes and the text they contain in an array.

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

Ver tambémSee also

ConceitosConcepts

Objeto ShapeRangeShapeRange Object

© 2018 Microsoft