specify a distance to move a shape range horizontally andor vertically
Syntax:
Sub Move(ByVal DeltaX As Double, ByVal DeltaY As Double)
Parameters:
Name Type Description
DeltaX
Double
DeltaY
Double
Remarks:
The Move method moves all the shapes in a shape range according to the specified offset.
Examples:
The following VBA example moves all the shapes on the active page by 2" to the right.
Sub Test()
ActivePage.Shapes.All.Move 2, 0 
End Sub