top vertical connector for active cell instead of left horizontal connector

[Doflamingo]

Hello all,

Here is the code for any active cell to get left connector.

'left direction


    l = (ActiveCell.Offset(0, -1).Left)
    r = (ActiveCell.Offset(0, 0).Left)
    t = (ActiveCell.top + ActiveCell.Offset(1, 0).top) / 2
    Set con = ActiveSheet.Shapes.AddConnector(msoConnectorStraight, l, t, r, t)
        con.line.Weight = 1
        con.line.ForeColor.RGB = RGB(0, 0, 0)

What I'm looking for, is for the same active cell, to get TOP VERTICAL connector representing 3 cells ABOVE the active cell. Any ideas ? It drives me crazy...

 

[Doflamingo]

I got vertical connector... but not at the middle of the active cell ... any idea ?

l = (ActiveCell.Offset(0, 1).Left)
    r = (ActiveCell.Top + ActiveCell.Offset(3, 0).Top) / 2
    t = (ActiveCell.Top + ActiveCell.Offset(1, 0).Top) / 2
    Set con = ActiveSheet.Shapes.AddConnector(msoConnectorStraight, l, t, l, r)
        con.line.Weight = 1
        con.line.ForeColor.RGB = RGB(0, 0, 0)

 

[Doflamingo]

ok... hard to get a point of view today... anyway, I get a bottom vertical connector for an active cell

   l = (ActiveCell.Offset(0, -1).Left + ActiveCell.Offset(0, 2).Left) / 2
    r = (ActiveCell.Top + ActiveCell.Offset(8, 0).Top) / 2
    t = (ActiveCell.Top + ActiveCell.Offset(2, 0).Top) / 2
    Set con = ActiveSheet.Shapes.AddConnector(msoConnectorStraight, l, r, l, t)
        con.line.Weight = 1.5
        con.line.ForeColor.RGB = RGB(0, 0, 0)

but still don't know why the connector if for some active cells selected, at their middle and for others not, rather at 1/3 of the active cell

 

[Doflamingo]

any chance to get a reply ? I would like to know why the vertical connector is not at the exact centre for some cells, while it's the case for some other cells. ..maybe to change something in the code about the variable ''l''