Use these lines to control the position of objects on slides...

With PPApp.ActiveWindow.Selection.ShapeRange
.Left = 71.88
.Top = 179.88
End With

..left controls horizontal positioning
..top controls vertical positioning

The example places the object 1" from the left edge and 2.5" from the
top edge.