VBA Linien Rot und oder gestrichelt

Public Sub MeineProzedur()
Dim Rechteck As MeinRechteckTyp
Dim AbstandV, AbstandH, linienNr, Zeile As Integer
Call Löschen
For Zeile = 2 To 56
Rechteck.Links = 1900
Rechteck.Oben = 100 * Cells(Zeile, "A").Value
Rechteck.Breite = 200
Rechteck.Höhe = 80
Set Rechteck.Element = ActiveSheet.Shapes.AddShape( _
msoShapeRectangle, Rechteck.Links, _
Rechteck.Oben, Rechteck.Breite, Rechteck.Höhe)
Rechteck.Element.Line.ForeColor.RGB = RGB(0, 0, 0)
Rechteck.Element.Fill.Visible = msoFalse
AbstandV = (Rechteck.Breite / (Cells(Zeile, "P").Value))
AbstandH = (Rechteck.Höhe / Cells(Zeile, "S").Value)
'------------------------Ausdruck . AddConnector( Type, BeginX, BeginY, EndX, EndY )---- _
' -------------------Hier die x-Werte für die Vertikalen Linien-------------------
For linienNr = 1 To Cells(Zeile, "S").Value
ActiveSheet.Shapes.AddConnector(msoConnectorStraight, Rechteck.Links, Rechteck.Oben  _
+ (linienNr * AbstandH), (Rechteck.Links + Rechteck.Breite), Rechteck.Oben + (linienNr * AbstandH)).Select
Next linienNr
' -----------------Hier die y-Werte für die Horizontalen Linien-------------------
For linienNr = 1 To Cells(Zeile, "P").Value
ActiveSheet.Shapes.AddConnector(msoConnectorStraight, Rechteck.Links + (linienNr *  _
AbstandV), Rechteck.Oben, (Rechteck.Links) + (linienNr * AbstandV), Rechteck.Oben + Rechteck.Höhe).Select
Next linienNr
Set Rechteck.Element = Nothing
Next Zeile
Call MeineProzedur2
End Sub