i want to find the area of a irregular shape
Use a macro.
Sub AreaOfShapeSqIn()ActiveDocument.Unit = cdrInch MsgBox Round(ActiveShape.DisplayCurve.Area, 2) & " Sq In"End Sub