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 un objet TextRange qui reflète la position de la forme insérée dans la plage de texte qui la contient. En lecture seule.
Syntaxe
expression. InlineTextRange
expression Une variable qui représente uneForme d’objet.
Remarques
La plage de texte retournée contient un seul objet représentant la forme insérée. Une erreur de traitement automatique est renvoyée si la forme n’est pas insérée.
Exemple
L'exemple suivant recherche la première forme (une zone de texte) sur la première page de la composition et détermine si la plage de texte dans la zone de texte contient des formes insérées. Si les formes insérées sont détectés, la propriété InlineTextRange est utilisée pour représenter la forme insérée après l'insertion d'un bloc de texte.
Dim theShape As Shape
Dim theTextRange As TextRange
Dim i As Integer
Set theShape = ActiveDocument.Pages(1).Shapes(1)
If Not theShape.IsInline = True Then
With theShape.TextFrame.Story.TextRange
If .InlineShapes.Count > 0 Then
Set theTextRange = theShape.TextFrame.Story.TextRange
For i = 1 To .InlineShapes.Count
With .InlineShapes(i)
.InlineTextRange.InsertAfter (" (Figure " & i & ") ")
End With
Next
End If
End With
End If
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.