Hallo,
ich benötige Hilfe bei dem Ein & Ausblenden einer Linie.
Und zwar möchte ich eine gestrichelte grüne Linie von Mitte unterer Rand Zelle(x,y) bis Mitte oberer Rand Zelle(c,v) anzeigen lassen. Das ganze soll mit eine ToggleButton an und ausblendbar sein.
Die Variablen x,y,c,v können über einen Bereich (B10:BI24) variieren.
Meine erste Lösung hat eine Linie erstellt wie ich es wollte und bei togglebutton=false habe ich alle shapes löschen lassen - was mir aber leider auch meine Kommentarfelder in dem Bereich gelöscht hatte was ich wiederum nicht möchte.
Nach endlosen Versuchen sieht mein Ansatz nun so aus aber es klappt immer noch nicht. Wenn ihr eine Idee für mich habt würde mich das echt freuen.
Dim x,y,c,v As integer
Dim shp As Shape
If Togglebutton = True Then
Set shp = ActiveSheet.Shapes.AddLine(x,y,c,v)
shp.Name = "today"
shp.Fill.ForeColor.SchemeColor = 10 (bringt Fehler)
With shp
.Visible = True
.DashStyle = msoLineDash (bringt Fehler)
.ForeColor.RGB = RGB(0, 176, 80) (bringt Fehler)
End With
Else
ActiveSheet.Shapes("today").Delete (ab und zu Fehler)
End If
End Sub