Propriété ShapeRange.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 ShapeRange .

Valeur renvoyée

MsoTriState

Remarques

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

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

ShapeRange, 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.