Aan/uitzetten lijn in een grafiek.

[Woffels]

Bestaat er een VBA code om in een grafiek een bepaalde lijn aan en uit te zetten? Ik heb het al geprobeerd met het opnemen van een macro, maar daar komt geen zinnige code uit.(Office 2019)

[edmoor]

Wat is volgens jou "geen zinnige code"?
Plaats ook een voorbeeld document.

[Woffels]

Zinnige code bedoel ik, dat ik er niets aan heb en niet te gebruiken is.
Het gaat me alleen om het aan en uitzetten van een lijn in een grafiek.

[edmoor]

En ik ben dus benieuwd naar die code en een voorbeeld document waarin je laat zien welke lijn je bedoelt.

[Woffels]

Hier een voorbeeld bestand. Ik denk dat het wel duidelijk is wat ik wil. Macro1 is de macro die ik heb opgenomen en daarin lijn 1 uitgezet.

[edmoor]

In die opgenomen code doe je feitelijk helemaal niets.
Dit is een mogelijkheid met code achter de knoppen:
Kopie van Lin aan-uit.xlsm

Of zo:
Kopie van Lin aan-uit (2)-1.xlsm

[alphamax]

Lijn 1 aan/msoTrue of uit/msoFalse zetten.
.ForeColor.RGB = 12874308 is nodig omdat op een en andere manier bij het aan en uitzetten de kleur verloren gaat.
Rode cellen aanpassen voor andere lijn/kleur of status.
Geschreven en getest met excel2007nl.

Private Sub CommandButton1_Click()
    With Blad1.ChartObjects("Grafiek 1").Chart.SeriesCollection.Item(1).Format.Line
        .ForeColor.RGB = 12874308
        .Visible = msoTrue 'of msoFalse
    End With
End Sub

[cow18]

ik zou met fullseriescollection werken. Veel handiger.
Even snel uit de pols zonder check

Sub loopje()
   With ActiveSheet.ChartObjects("Grafiek 1").Chart
      With Range("I1")
         .Value = (.Value + 1) Mod 4
         i = .Value
      End With
      .FullSeriesCollection(1).IsFiltered = i \ 2
      .FullSeriesCollection(2).IsFiltered = i Mod 2
   End With
End Sub

[alphamax]

@cow18
FullSeriesCollection is vanaf excel2010.
De code in bericht#7 met SeriesCollection is gemaakt en getest in excel2007.

[cow18]

@alphamax,
dat was ik uit het oog verloren, hopelijk heeft TS een jongere versie.

[alphamax]

Zie bericht#1, office2019

[snb]

Hier verandert er niets aan de kleur van de lijn (Excel 2010)

Sub M_snb()
    With Blad1.ChartObjects(1).Chart.SeriesCollection(2).Format.Line
        .Visible = Not .Visible
    End With
End Sub

[Woffels]

Werkt perfect,
tnx