用VBA怎样提取框选的所有对象相对到某点的坐标？

nitou

请教大家，用VBA怎么提取所选对象相对到某点的坐标？
逻辑过程如下：
1.先框选要提取的对象（都是圆）；
2.选取一个点为坐标原点；
3.提取1中所有的圆心坐标（相对于2中选的点的坐标）。

请老师们能给段代码，谢谢！