Change the 'roundness' of a rectangles rounded corners

[Stu8866]

Hi there,

I need to insert a rectangle with rounded corners. I can do this with:

ActiveDocument.Shapes.AddShape(msoShapeRoundedRectangle, 0, 0, 550, 550, Selection.Range)

But, when the rectangle is the size of the page, the rounded edges are 'very rounded',as in, they cut off quite a lot of the tables corners.

Is there anyway to modify how 'rounded' the corners are?

Thanks.