InlineAlignment Property [Publisher 2003 VBA Language Reference]
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