ワークシート上にコントロールの（図形の）直線を書くことは比較的易しい。
始点は下記でセルB2、終点はD5として
セルの始点B2の右端辺の中間、終点D5の左端辺の中間
Sub test01()
X1 = Cells(2, "B").Left + Cells(2, "B").Width
Y1 = Cells(2, "B").Top + Cells(2, "B").Height / 2
X2 = Cells(5, "D").Left
Y2 = Cells(5, "D").Top + Cells(5, "D").Height / 2
Worksheets("Sheet1").Shapes.AddLine X2, Y2, X1, Y1
End Sub
のようなコードを参考にして考えるとできるでしょう。
色をつけるのは
Sub test01()
X1 = Cells(2, "B").Left + Cells(2, "B").Width
Y1 = Cells(2, "B").Top + Cells(2, "B").Height / 2
X2 = Cells(5, "D").Left
Y2 = Cells(5, "D").Top + Cells(5, "D").Height / 2
Worksheets("Sheet1").Shapes.AddLine(X2, Y2, X1, Y1).Select
Selection.ShapeRange.Line.ForeColor.SchemeColor = 10
End Sub
しかしエクセルVBAでユーザーフォームに線を描くことは結構難しいと思う。
直線は使えるコントロールとして提供されていないために。
WEBで「UserForm 線を描く」で照会してみてください
http://www.keep-on.com/excelyou/2001lng4/200105/01050014.txt
のようにAPIを使わないと出来ないのではないでしょうか。
VBAでAPIを使わないと出来ない課題は、「VBAでは出来ない」と言う範疇だと思いますが。
