Extracting Rotation of Rectangles

I am looping through all the rectangles on my sheet using the following technique:
For Each obj In Sheets("Sheet1").Rectangles
top = obj.Top
left = obj.left
rotation = obj.rotation ' this does not work
Next Obj

I am able to extract the co-ordinates using top and left, however, rotation doesn't seem to be an attribute of rectangle.
How can I get/set the rotation of a rectangle?

Thanks.

This works for me.

Please Login or Register  to view this content.

Obviously, I selected the shape (rectangle) for this.

Did it work?