ShapeRange. HasTextFrame, propriété (PowerPoint)ShapeRange.HasTextFrame property (PowerPoint)

Indique si la forme spécifiée contient un cadre de texte.Returns whether the specified shape has a text frame. En lecture seule.Read-only.

SyntaxeSyntax

expression.expression. HasTextFrame

expression Variable qui représente un objet ShapeRange .expression A variable that represents a ShapeRange object.

Valeur renvoyéeReturn value

MsoTriStateMsoTriState

RemarquesRemarks

La valeur de la propriété HasTextFrame peut être l’une de ces constantes MsoTriState .The value of the HasTextFrame property can be one of these MsoTriState constants.

ConstanteConstant DescriptionDescription
msoFalsemsoFalse La forme spécifiée ne possède pas de cadre de texte et ne peut donc pas contenir de texte.The specified shape does not have a text frame and therefore cannot contain text.
msoVraimsoTrue La forme spécifiée contient un cadre de texte et peut donc contenir du texte.The specified shape has a text frame and can therefore contain text.

ExempleExample

Cet exemple extrait le texte de toutes les formes de la première diapositive qui contient des cadres de texte, puis stocke les noms de ces formes et le texte qu’elle contiennent dans un tableau.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

Voir aussiSee also

ShapeRange, objetShapeRange Object

Assistance et commentairesSupport and feedback

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ?Have questions or feedback about Office VBA or this documentation? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.