Share via

IsInline Property [Publisher 2003 VBA Language Reference]

  • Article

Returns an MsoTriState constant that specifies whether a shape is inline. Read-only.

MsoTriState can be one of these MsoTriState constants.
msoCTrue
msoFalse if a shape is not contained in a text run.
msoTriStateMixed
msoTriStateToggle
msoTrue if a shape is contained in a text run.

expression.IsInline

expression Required. An expression that returns one of the objects in the Applies To list.

Example

This example tests the first shape (a text frame) on the first page of the publication to see if it is inline. If it is not, a search is done within that shape to find any inline shapes within the text frame. Any inline shapes that are found have the ForeColor property set to red.

Dim theShape As Shape
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
            For i = 1 To .InlineShapes.Count
                .InlineShapes(i).Select
                .InlineShapes(i).Fill.ForeColor.RGB = vbRed
            Next
        End If
    End With
End If

Applies to | Shape Object | ShapeRange Collection