expression.IncrementLeft(Increment)
expression Required. An expression that returns one of the objects in the Applies To list.
Increment Required Variant. The horizontal distance to move the shape or shape range. A positive value moves the shape or shape range to the right; a negative value moves it to the left. Numeric values are evaluated in points; strings can be in any units supported by Microsoft Publisher (for example, "2.5 in").
Remarks
Use the IncrementTop method to move shapes or shape ranges vertically.
Example
This example duplicates the first shape on the active publication, sets the fill for the duplicate, moves it 70 points to the right and 50 points up, and rotates it 30 degrees clockwise.
With ActiveDocument.Pages(1).Shapes(1).Duplicate
.Fill.PresetTextured PresetTexture:=msoTextureGranite
.IncrementLeft Increment:=70
.IncrementTop Increment:=-50
.IncrementRotation Increment:=30
End With