Add the following custom VBA functions into a module.

Function shapeh(ByVal shape_name As String)
shapeh = ActiveSheet.Shapes(shape_name).Height
End Function

Function shapew(ByVal shape_name As String)
shapew = ActiveSheet.Shapes(shape_name).Width
End Function


Then, in the cell which you want to return the height of the shape, type the
formula:
=shapeh("Rectangle 1")

For the width, type:
=shapew("Rectangle 1")


Regards,
Edwin Tam

http://www.vonixx.com


"choice" wrote:

i have
Shapes("izensquare")
is there a way to have the length of "izensquare" in cell value A1
and length to be in B1?

thanks in advance