高手帮我看下(关于移动的问题)，谢谢拉！

boluo123

求助：
      如果在图形的坐标原点（0，0）存在一个文字“Hello”，怎样用Vba把“Hello”移动到点(100，10)的位置啊！
咐上手动选择对象的代码
    Dim p0 As Variant       '起点坐标
    Dim p1 As Variant       '终点坐标   
    Dim getobj As Object    '移动对象
    ThisDrawing.Utility.GetEntity getobj, po, "请选择移动对象"                       '这是手动选择移动对象
    p0 = ThisDrawing.Utility.GetPoint(, "起点:")
    p1 = ThisDrawing.Utility.GetPoint(p0, "终点:")  
    getobj.Move p0, p1    '移动一段
    getobj.Update         '更新对象
   


这是手动选择移动对象，怎样自动选择（0，0）点的对象进行移动啊？

wyj7485

建立选择集就可以实现