Shape. Inlinetext Range-Eigenschaft (Publisher)Shape.InlineTextRange property (Publisher)

Gibt ein TextRange -Objekt zurück, das die Position der Inlineform im zugehörigen Textbereich angibt.Returns a TextRange object that reflects the position of the inline shape in its containing text range. Schreibgeschützt.Read-only.

SyntaxSyntax

Ausdruck. Inlinetext Rangeexpression.InlineTextRange

Ausdruck Eine Variable, die ein Shape -Objekt darstellt.expression A variable that represents a Shape object.

BemerkungenRemarks

Der zurückgegebene Textbereich enthält ein einzelnes Objekt, das die Inlineform darstellt.The returned text range contains a single object representing the inline shape. Ein Automatisierungsfehler wird zurückgegeben, wenn die Form nicht inline ist.An automation error is returned if the shape is not inline.

BeispielExample

Das folgende Beispiel sucht nach der ersten Form (einem Textfeld) auf der ersten Seite der Publikation und bestimmt, ob der Textbereich innerhalb des Textfelds Inlineformen enthält.The following example finds the first shape (a text box) on the first page of the publication, and determines if the text range within the text box contains inline shapes. Wenn Inlineformen vorhanden sind, wird die InlineTextRange -Eigenschaft die Inlineform nach dem Einfügen eines Textblocks.If inline shapes are found, the InlineTextRange property is used to represent the inline shape after a block of text is inserted.

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

Support und FeedbackSupport and feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation?Have questions or feedback about Office VBA or this documentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.