Propriété Shape.HasTextFrame (PowerPoint)
Indique si la forme spécifiée contient un cadre de texte. En lecture seule.
expression. HasTextFrame
Expression Variable qui représente un objet Shape .
MsoTriState
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. |
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
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.