drawing a line with VBA

[plost33]

How would i have VBA draw a line between a two ranges? say i have a named range of "start" and another name range "stop". i want to draw a red line between them. how can i do that with code. this is beggining my education for a much larger project I want to do later in the future.

 

[VoG]

Try forcing a refresh after drawing the first line:

Application.ScreenUpdating = True
Application.Wait Now + TimeSerial(0, 0, 1)

 

[plost33]

That got it vog. Awesome!

 

[plost33]

vog do i say what i am trying to do here?

If ActiveValue not equal to CompairValue Then

 

[VoG]

Do you mean something like?

If ActiveCell.Value <> comparevalue Then

 

[plost33]

does <> mean "are not equal"?

 

[VoG]

Yes.

 

[plost33]

VOG IS THERE A CODE that can clear all lines from a sheet? not all objects because i have a button on the sheet. i just wanna remove all lines.

 

[VoG]

This worked for me (Excel 2007)

Sub ClrLine()
Dim ln As Shape
For Each ln In ActiveSheet.Shapes
    If ln.Name Like "*Connector*" Then ln.Delete
Next ln
End Sub

 

[plost33]

worked! thanks!

 

[sonnychong]

Try

Sub AddLine()
Dim l1 As Long, l2 As Long, r1 As Long, r2 As Long
l1 = Range("Start").Left
l2 = Range("Start").Top
r1 = Range("Stop").Left
r2 = Range("Stop").Top
With ActiveSheet.Shapes.AddLine(l1, l2, r1, r2).Line
    .ForeColor.RGB = RGB(255, 0, 0)
End With
End Sub
[

hi, first of all, i'm new to vba. and i would like to ask, how do i run this code after i've pasted it into the vba module?