Lire en anglais

Partager via


Propriété Shape.HasTextFrame (PowerPoint)

Indique si la forme spécifiée contient un cadre de texte. En lecture seule.

Syntaxe

expression. HasTextFrame

Expression Variable qui représente un objet Shape .

Valeur renvoyée

MsoTriState

Remarques

La valeur de la propriété HasTextFrame peut être l’une de ces constantes MsoTriState.

Constante Description
msoFaux La forme spécifiée ne possède pas de cadre de texte et ne peut donc pas contenir de texte.
msoVrai La forme spécifiée contient un cadre de texte et peut donc contenir du texte.

Exemple

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.

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 aussi

Shape, objet

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette 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.