Why not just add an elbow connector instead of a line?

ActiveSheet.Shapes.AddConnector(msoConnectorElbow, 10, 10, 250, 250).Adjustments.Item(1) = 1 'or
use 0

HTH,
Bernie
MS Excel MVP


"geniusideas" wrote in message
...
Hi,

In excel after we draw line then edit the point at the center we will
get 2 different line with angle. Now I wanted to create macro when we
click this line and run this macro will make the line one horizontally
straight and another line vertically straight.
Pls help how to create this macro

http://xlsblog.com