如何取得当前所选图元的左下角坐标

清风明月名字

请问，如何取得当前所选图元的左下角坐标,下面的代码不是对的，它是整个图形左下角的坐标。
Sub 左下角()
Dim A As Variant
A(0) = ""
A(1) = ""
A = ThisDrawing.GetVariable("extmin")
MsgBox A(0)
End Sub
我是想在取得所选图元左下角坐标后，将这个图元做成以该点为插入点的块参照