Remarque
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de vous connecter ou de modifier des répertoires.
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de modifier des répertoires.
Cette propriété renvoie une collection InlineShapes, qui représente les formes associées contenues dans une plage de texte. En lecture seule.
Syntaxe
expression. InlineShapes
expression Variable qui représente un objet TextRange .
Valeur renvoyée
InlineShapes
Remarques
L’option Utiliser TextFrame.Story.TextRange.InlineShapes renvoie toutes les formes en ligne dans un bloc de texte, y compris celles qui sont en dépassement.
L’utilisation TextFrame.TextRange.InlineShapes renvoie uniquement les formes en ligne visibles dans un bloc de texte, et non celles qui sont en dépassement.
Exemple
L'exemple suivant recherche la première forme (une zone de texte) sur la page un de la composition active. La propriété InlineShapes est ensuite utilisée pour déterminer si des formes associées figurent dans la zone de texte. S'il en existe, chaque forme insérée est retournée verticalement et sa couleur de premier plan est défini sur rouge.
Notez qu’en utilisant TextFrame.Story.TextRange.InlineShapes, toutes les formes en ligne qui sont en dépassement seront également trouvées.
Dim theShape As Shape
Dim i As Integer
Set theShape = ActiveDocument.Pages(1).Shapes(1)
With theShape.TextFrame.Story.TextRange
If .InlineShapes.Count > 0 Then
For i = 1 To .InlineShapes.Count
.InlineShapes(i).Flip (msoFlipVertical)
.InlineShapes(i).Fill.ForeColor.RGB = vbRed
Next
End If
End With
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.