Sub Test() Dim x As Double, y As Double Dim s As Shape ActiveDocument.ReferencePoint = cdrCenter For Each s In ActivePage.Shapes s.GetPosition x, y ActiveLayer.CreateEllipse2 x, y, 0.03 Next sEnd Sub