This documentation is archived and is not being maintained.

Shape.InlineTextRange Property

Office 2007
Returns a TextRange object that reflects the position of the inline shape in its containing text range. Read-only.

Syntax

expression.InlineTextRange

expression   A variable that represents a Shape object.

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.

Visual Basic for Applications
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

See Also


Show: