用VBA怎么提取所选对象相对某点的坐标？

taqqug

请教大家，用VBA怎么提取所选对象相对到某点的坐标？
逻辑过程如下：
  E0 Y; Y2 T8 g" @- Q1.先框选要提取的对象（都是圆）；
$ n4 Z( H/ l& \2.选取一个点为坐标原点；
3.提取1中所有的圆心坐标（相对于2中选的点的坐标）。
* L3 T9 v9 K* P2 h0 j
# j5 C% k4 }' L我用UCS手动移动坐标到了某点，然后查看快捷特性圆心坐标确实更新了，但在VBA中用圆.center属性得到的圆心坐标还是老的。
6 W3 h/ ~, |9 E  f" K5 o% K请老师们能给段代码，谢谢！

taqqug

只好通过计算的方法了得到了