Visio设置X和Y坐标

Question

在Visio中，我试图更改形状的x和y坐标。我使用以下代码

VisioApp.ActiveWindow.Page.Shapes.Item(uniqueId).CellsSRC(visSectionObject, visRowXFormOut, visXFormPinX).FormulaForceU = "18 in"
VisioApp.ActiveWindow.Page.Shapes.Item(uniqueId).CellsSRC(visSectionObject, visRowXFormOut, visXFormPinY).FormulaForceU = "-13.77 in"

但在运行代码后，形状的坐标变为（14.25，-34.27）。代码更改了坐标，但没有给出预期的结果。有关如何修复的想法吗？

Answer 1

在我这边你的代码有效！尝试定义形状变量

  

Dim sh As Shape   设置sh = VisioApp.ActiveWindow.Page.Shapes.Item（UniqueID）   sh.CellsSRC（visSectionObject，visRowXFormOut，visXFormPinX）.FormulaForceU =“18 in”   sh.CellsSRC（visSectionObject，visRowXFormOut，visXFormPinY）.FormulaForceU =“ - 13.77 in”

<强>更新 请打开页面的shapeshet并检查标尺＆amp;网格部分 如果 XRulerOrigin / YRulerOrigin 不等于 0 ，那么您可以在窗口中看到形状的错误坐标尺寸＆amp;位置