Propriété TextRange.InlineShapes (Publisher)

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’utilisation TextFrame.Story.TextRange.InlineShapes de renvoie toutes les formes insérées dans un cadre de texte, y compris celles qui sont en dépassement de capacité.

L’utilisation TextFrame.TextRange.InlineShapes de renvoie uniquement les formes inline visibles dans un cadre de texte, et non celles qui sont en dépassement de capacité.

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’à l’aide TextFrame.Story.TextRange.InlineShapesde , toutes les formes insérées qui sont en dépassement de capacité sont é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.