Sub Test() Dim s As Shape Dim x As Double, y As Double For Each s In ActivePage.Shapes s.SetPosition 0, 0 Next sEnd Sub