Freeform shapes area calculation

Dave Shaw · Guest

Hi

I would like users to be able to draw freeform shapes (using straight not
curved lines) and then to run a macro to calculate it's area in cm. I don't
mind if this is in Word 2003 or Excel 2007.

I have found some links on the web for excel methods but none of them seem
to work - I get overflow errors.

Any ideas

Thanks

Google · Sponsor

Daniel Pineault · Guest

I have no clue if this can be done in access, but if you have some methods in
Excel that you need help with you should ask your question in the Excel
Forum. Provide them with a link and they'll be able to help.
--
Hope this helps,

Daniel Pineault

"Dave Shaw" wrote:

Helmut Weber · Guest

Hi Dave,

Sub Test456()
Dim x As Double
Dim y As Double
x = PointsToCentimeters(Selection.ShapeRange(1).Height)
y = PointsToCentimeters(Selection.ShapeRange(1).Width)
MsgBox Format(x * y, "#.00 cm²")
End Sub

--

Greetings from Bavaria, Germany

Helmut Weber, MVP WordVBA

Vista Small Business, Office XP