Table of contents
Collapse the table of content
Expand the table of content

ShapeRange.IsInline Property (Publisher)

office 365 dev account|Last Updated: 8/24/2017
3 Contributors

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


expression. IsInline

_expression_A variable that represents a ShapeRange object.


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).Fill.ForeColor.RGB = vbRed 
 End If 
 End With 
End If
© 2018 Microsoft