Sub Test() Dim nr As NodeRange Dim x1 As Double, y1 As Double Dim x2 As Double, y2 As Double Set nr = ActiveShape.Curve.Selection ActiveDocument.ReferencePoint = cdrBottomLeft x1 = nr.PositionX y1 = nr.PositionY x2 = x1 + nr.SizeWidth y2 = y1 + nr.SizeHeight ActiveLayer.CreateRectangle x1, y1, x2, y2End Sub