Macro to create lines that connect cells

[425349]

I would like to create a macro that inserts vectors from the bottom of one cell to the top of another.

I have found the below approach but it does not seem to work. can someone help me please?

Sub insert_lines()

start_x = 0
start_y = 0
end_x = 10
end_y = 10

Line = Sheet1.Shapes.AddLine(start_x, start_y, end_x, end_y)
Line.Line.EndArrowheadStyle = MsoArrowheadStyle.msoArrowheadTriangle


End Sub

[patel45]

attach a sample file with desired result

[MarvinP]

Hi 425349 and welcome to the forum,

Location of cells in VBA only give the top and left coordinates. You then need their height and width to tell where they end. Here is an attached that puts an arrow on a named range of "Boxer" which you can define on your worksheet. This isn't great but should give you the basics to get that darn arrow where you want it.

[425349]

thank you.

[patel45]

Good code, but I think it's easier to use selected range like

Please Login or Register  to view this content.