Vertical connector with specific lenght

[Doflamingo]

Dear All,

Here is the code for horizontal connector for an active cell where the connector displays at the middle of that cell. Its lenght is half of the previous cell + current cell + half of the next cell.
@Dante gave me kindly those lines of code.

l = (ActiveCell.Offset(0, -1).Left + ActiveCell.Left) / 2
    r = (ActiveCell.Offset(0, 1).Left + ActiveCell.Offset(0, 2).Left) / 2
    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)

Now I try to find, following the same line of code but for an Vertical connector that would go down 3 lines from the active cell

Any ideas ?Here is my code, but does not work

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

 

[Domenic]

Does this do what you want?

Sub con_vertical()
    l = (ActiveCell.Offset(0, -1).Left + ActiveCell.Left) / 2
    t = (ActiveCell.Top + ActiveCell.Offset(1, 0).Top) / 2
    b = ActiveCell.Offset(4, 0).Top + (ActiveCell.Offset(4, 0).Height / 2)
    Set con = ActiveSheet.Shapes.AddConnector(msoConnectorStraight, l, t, l, b)
        con.Line.Weight = 1
        con.Line.ForeColor.RGB = RGB(0, 0, 0)
End Sub

 

[Doflamingo]

Hello @Domenic, Thanks for your answer

I've tried your code and it almost gave what I was looking for. Indeed it gives me a vertical connector, but not on the active cell. It displays always to any another cells of the sheet and with a different lenght at each time ....

 

[Domenic]

Can you please explain in words where exactly you want your vertical connector positioned?

 

[Doflamingo]

Hi @Domenic,

Let say the active cell is C9, I would like a connector exactly like this

https://www.dropbox.com/s/sp3osqcgypjyw4p/domenic.png?dl=0

A code that would work for any active cell

 

[Doflamingo]

Sorry

Here is the link

https://www.dropbox.com/s/x5ewglt8q29f3dv/domenic.png?dl=0

 

[Domenic]

Sorry, but I don't download anything from the internet. If you can explain what you want in words, I'll try to help. Otherwise, someone else here on the Board may be willing to download and look at your sample workbook.