Sub Test() Dim x As Double, y As Double ActiveDocument.ReferencePoint = cdrCenter ActiveSelectionRange.GetPosition x, y ActiveLayer.CreateEllipse2 x, y, 0.05End Sub