InlineTextRange Property [Publisher 2003 VBA Language Reference]
Returns a ****
Visit TextRange
object that reflects the position of the inline shape in its containing text range. Read-only.
expression.InlineTextRange
expression Required. An expression that returns a Shape object. Note that the shape must be an inline shape contained within the ****
Visit InlineShapes
collection.
Remarks
The returned text range will contain a single object representing the inline shape. An automation error is returned if the shape is not inline.
Example
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. 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
Applies to | Shape Object | ShapeRange Collection