проще всего включить запись макроса, поменять что-то в геометрии коннектора и смотреть то, что записалось.
у меня вот получилось:
Код:
Application.ActiveWindow.Page.Shapes.ItemFromID(1).CellsSRC(visSectionFirstComponent, 1, 0).FormulaForceU = "0"
Application.ActiveWindow.Page.Shapes.ItemFromID(1).CellsSRC(visSectionFirstComponent, 1, 1).FormulaForceU = "0"
Application.ActiveWindow.Page.Shapes.ItemFromID(1).CellsSRC(visSectionFirstComponent, 2, 0).FormulaForceU = "0"
Application.ActiveWindow.Page.Shapes.ItemFromID(1).CellsSRC(visSectionFirstComponent, 2, 1).FormulaForceU = "-1.3779527559055"
Application.ActiveWindow.Page.Shapes.ItemFromID(1).CellsSRC(visSectionFirstComponent, 3, 0).FormulaForceU = "0.6003937007874"
Application.ActiveWindow.Page.Shapes.ItemFromID(1).CellsSRC(visSectionFirstComponent, 3, 1).FormulaForceU = "-1.3779527559055"
Application.ActiveWindow.Page.Shapes.ItemFromID(1).CellsSRC(visSectionFirstComponent, 4, 0).FormulaForceU = "0.6003937007874"
Application.ActiveWindow.Page.Shapes.ItemFromID(1).CellsSRC(visSectionFirstComponent, 4, 1).FormulaForceU = "-2.244094488189"
считать геометрию, если именно это надо, можно аналогично, пройдя по всем рядам секции, начиная с 1-го