如何从 Visio 获取形状的 X 和 Y 坐标？

Question

我在一张纸上有一个形状，并且有它的“ID”。

我想要形状的 X-Y 坐标。

我尝试了以下代码：

Set shpObj = Application.ActiveWindow.Page.Shapes.ItemFromID(blockID)
Set celObj = shpObj.Cells("pinX")
localCent = celObj.Result("inches")
LocationX = Format(localCent, "000.0000")

Set shpObj = Application.ActiveWindow.Page.Shapes.ItemFromID(blockID)
Set celObj = shpObj.Cells("pinY")
localCent = celObj.Result("inches")
LocationY = Format(localCent, "000.0000")

我得到了数字，但它们永远不会改变。我想我得到的是局部形状坐标而不是图纸坐标。

Answer 1

请尝试使用XYtoPage方法。

希望我的文章能对您有所帮助，请通过谷歌翻译阅读。