Measuring area of basic shape in meters squared

Hi,

I was wondering if anybody had a macro to measure the area inside a shape in meter squared? I am using Draw X4...

I have found some code but it does not work...

Sub Area()
ActiveDocument.Unit = cdrMillimeter
MsgBox Round(ActiveDocument.ActiveShape.Curve.Area, 2)
End Sub

Ta.

Fungel

[shelbym]

Alex’s Curve Works Macro will do this:

http://www.oberonplace.com/products/...curvestats.htm

Also Alex’s P macro:

http://macromonster.com/index.php?mo..._desc=127&id=9

-Shelby

[shelbym]

As for your code, it is better to use the DisplayCurve, this way you can get the area of shapes like rectangles and ellipses and not just a curve.

Sub Area()
    ActiveDocument.Unit = cdrMillimeter
    MsgBox Round(ActiveShape.DisplayCurve.Area, 2)
End Sub

-Shelby

Hey Shelby,

That is fantastic

I changed code to meters squared:

Just wondering if there is a way up putting the word "meter squared" after the number coming up so I never get confused with what it is!

Sub Area()
ActiveDocument.Unit = cdrMeter
MsgBox Round(ActiveShape.DisplayCurve.Area, 2)
End Sub

Ta.

Fungel

[shelbym]

Sure just do this:

Sub Area()
    ActiveDocument.Unit = cdrMeter
    MsgBox Round(ActiveShape.DisplayCurve.Area, 2) & " meter squared"
End Sub

-Shelby

Thanks Shelby,

That is exactly what I was looking for

Ta.

Fungel.

[grzjanik]

Welcome.
I work for Corel 12, and unfortunately, this script does not work. If I could ask you to rework it to version 12
Thank you and best regards.

It shows an error in this line:

MsgBox Round(ActiveShape.DisplayCurve.Area, 2) & " meter squared"

I hope you will help.