Прорисовка фигуры средствами VBA в MS Office Visio

For i=1 to 10
Dim vsoS As Visio.Shape
set vsoS = Application.ActiveWindow.Page.DrawLine x, y, x1, y1 'Координаты грузятся из Exel
 vsoS.DrawLine ,,,, 'как рассчитать координаты чтобы начать из точки x1,y1 опуститься вниз до определенного положения листа?
 vsoS.DrawLine ,,,, 'как рассчитать координаты Чтобы вернуться назад на -(x1-x)?
 vsoS.DrawLine ,,,, 'как рассчитать координаты чтобы вернуться в точку х?
vsoS.CellsSRC(visSectionObject, visRowFill, visFillForegnd).FormulaU = "5"
vsoS.CellsSRC(visSectionObject, visRowFill,visFillBkgnd).FormulaU _ ="THEMEGUARD(SHADE(FillForegnd,LUMDIFF(THEME(""FillColor""),THEME(""FillColor2""))))"
next

'рисуем линии (главное чтобы начинали рисоваться из координат конца предыдущей )
Set a = Application.ActiveWindow.Page.DrawLine(x , y , x1 , y1 )
Set a1 = Application.ActiveWindow.Page.DrawLine(x1 , y1 , x1 , z )
Set a2 = Application.ActiveWindow.Page.DrawLine(x1, z , x , z )
Set a3 = Application.ActiveWindow.Page.DrawLine(x , z , x , y )
ActiveWindow.DeselectAll
'выбираем
 ActiveWindow.Select a, visSelect
 ActiveWindow.Select a1, visSelect
 ActiveWindow.Select a2, visSelect
 ActiveWindow.Select a3, visSelect
'соединяем в фигуру
 Set a4 = Application.ActiveWindow.Selection
    a4.Join
'находим порядковый номер фигуры
  sh = Mid(ActiveWindow.Selection.Item(1).Name, 7, 4)
' закрашиваем
    Application.ActiveWindow.Page.Shapes.ItemFromID(sh).CellsSRC(visSectionObject, visRowFill, visFillForegnd).FormulaU = "THEMEGUARD(RGB(0,176,240))"
    Application.ActiveWindow.Page.Shapes.ItemFromID(sh).CellsSRC(visSectionObject, visRowFill, visFillBkgnd).FormulaU = "THEMEGUARD(SHADE(FillForegnd,LUMDIFF(THEME(""FillColor""),THEME(""FillColor2""))))"
    Application.ActiveWindow.Page.Shapes.ItemFromID(sh).CellsSRC(visSectionObject, visRowFill, visFillPattern).FormulaU = "1"