IncrementLeft Method
Moves the specified shape horizontally by the specified number of points.
expression.IncrementLeft(Increment)
expression Required. An expression that returns a Shape object.
Increment Required Single. Specifies how far the shape is to be moved horizontally, in points. A positive value moves the shape to the right; a negative value moves it to the left.
Example
This example duplicates shape one on myDocument, sets the fill for the duplicate, moves it 70 points to the right and 50 points up, and rotates it 30 degrees clockwise.
Set myDocument = ActiveDocument
With myDocument.Shapes(1).Duplicate
.Fill.PresetTextured msoTextureGranite
.IncrementLeft 70
.IncrementTop -50
.IncrementRotation 30
End With