VBA Visio 通过定义基点将选区移动到绘图上的指定位置

Question

我想将我的物品移动到指定位置。不幸的是，当使用以下代码时：

 vShp.Cells("PinX").Formula = "230mm"
 vShp.Cells("PinY").Formula = "870mm"

他们都去一个地方

我试着给它分配一些特定的形状

vShp(1).Cells("PinX").Formula = "230mm"
vShp(1).Cells("PinY").Formula = "870mm"

但看来我错了，因为

无效属性分配的错误数字参数。

是否有可能将整个选择移动到特定位置而不将所有内容折叠在一个地方？

我只想移动那个位置的一个形状，而不是全部。