Is there a macro that calculates the area of odd shapes?
Sub AreaOfShapeSqIn() ActiveDocument.Unit = cdrInch MsgBox Round(ActiveShape.DisplayCurve.Area, 2) & " Sq In"End Sub