Application.ActiveWindow.Page.Shapes.ItemFromID(1).CellsSRC(visSectionObject,visRowXFormOut, visXFormPinX).FormulaU = "110 mm"
y坐標 Application.ActiveWindow.Page.Shapes.ItemFromID(1).CellsSRC(visSectionObject,visRowXFormOut, visXFormPinY).FormulaU = "100 mm"