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