VBA Linien Rot und oder gestrichelt
22.03.2018 08:40:02
Carsten
ich erstelle gerade Automatisch Rechtecke die in x-Teile eingeteilt werden. Horizontal und Vertikal nur muss ich jetzt manche Linien noch farbig machen und / oder gestrichelt darstellen. Wie genau stelle ich das an? Hier mein Code:
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
Der läuft soweit gut muss nur hinbekommen das z.B. bei der ersten Linien erstellung die Linien rot sind.Danke für Tipps.
VG,
Carsten