Private Sub DrawEllipse(s As Shape) ActiveDocument.ActiveLayer.CreateEllipse2 s.PositionX, s.PositionY, 0.1End SubSub Test() Dim s As Shape Set s = ActiveShape ActiveDocument.ReferencePoint = cdrTopLeft DrawEllipse s ActiveDocument.ReferencePoint = cdrTopRight DrawEllipse s ActiveDocument.ReferencePoint = cdrBottomLeft DrawEllipse s ActiveDocument.ReferencePoint = cdrBottomRight DrawEllipse s ActiveDocument.ReferencePoint = cdrCenter DrawEllipse sEnd Sub