Shape.AddConnector creating arrows of variable lengths

[mdd16]

Hello,

I have following code which I want to use to add arrows at active cell location. Problem I am facing that at every incidence of use of this, the length of added arrow keeps increasing.
Please help to solve.

Sub InsertArrow()

ActiveSheet.Shapes.AddConnector(msoCnnectorStraight, ActiveCell.Left, ActiveCell.Top, 4, 4).Select

With Selection
With .ShapeRange.Line
.EndArrowheadStyle = msoArrowheadOpen
.Visible = msoTrue
.ForeColor.RGB = RGB(178, 0, 0)
.Transparency = 0
.Weight = 1.5
End With
End With
End Sub

 

[Anfinsen]

Try commenting out the part where it says
.Weight = 1.5
and see if the problem persists.

 

[mdd16]

Hello and thanks for your help.

The problem did get resolved.

However since these are connector arrows, all the subsequent arrows tend to have the arrow head connected to the first arrowhead I make.

Would there be any method that draws simple arrows from active cells without being connectors to the prior arrow on the sheet.

Thanks again for your help.

Best Regards

Mohan Dhingra