Share via

InlineAlignment Property [Publisher 2003 VBA Language Reference]

  • Article

PbInlineAlignment

PbInlineAlignment can be one of these PbInlineAlignment constants.
pbInlineAlignmentCharacter
pbInlineAlignmentLeft
pbInlineAlignmentMixed
pbInlineAlignmentRight

expression.InlineAlignment

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

Remarks

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

Applies to | Shape Object | ShapeRange Collection