Select the largest shape in page?

Hi. Does anybody know how to select the largest shape in page?

The problem is the following: I have many shapes within a large rectangle and also some shapes outside the same rectangle.

I want the macro to identify the largest shape in page (the rectangle in this case) and, based on its coordinates, to select all the shapes within the rectangle and group them alltogheter.

Thank you very much!