ShapeRange.InlineAlignment Property

Returns or sets a PbInlineAlignment constant that indicates whether an inline shape has left, right, or in-text alignment. Read/write.

Syntax

expression.InlineAlignment

expression   A variable that represents a ShapeRange object.

Remarks

The InlineAlignment property value can be one of the PbInlineAlignment constants declared in the Microsoft Office Publisher type library.

An automation error is returned if the shape is not already inline.

Example

The following example moves the second shape on the second page of the publication into the text flow by using the MoveIntoTextFlow method. The InlineAlignment property is then used to align the shape to the right.

  Dim theShape As Shape
Dim theRange As TextRange
Set theRange = ActiveDocument.Pages(2).Shapes(1).TextFrame.TextRange
Set theShape = ActiveDocument.Pages(2).Shapes(2)
If Not theShape.IsInline = msoTrue Then
theShape.MoveIntoTextFlow Range:=theRange
theShape.InlineAlignment = pbInlineAlignmentRight
End If

See Also

• ShapeRange Object
• ShapeRange Object Members