Aan/uitzetten lijn in een grafiek.

Status
Niet open voor verdere reacties.

Woffels

Gebruiker
Lid geworden
8 jan 2006
Berichten
249
SelectLine.JPG

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)
 
Wat is volgens jou "geen zinnige code"?
Plaats ook een voorbeeld document.
 
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.
 
Laatst bewerkt:
En ik ben dus benieuwd naar die code en een voorbeeld document waarin je laat zien welke lijn je bedoelt.
 
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.
 

Bijlagen

  • Lin aan-uit.xlsm
    29,7 KB · Weergaven: 23
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.

Code:
Private Sub CommandButton1_Click()
    With Blad1.ChartObjects("Grafiek 1").Chart.SeriesCollection.Item([COLOR=#FF0000]1[/COLOR]).Format.Line
        .ForeColor.RGB = [COLOR=#FF0000]12874308[/COLOR]
        .Visible = [COLOR=#FF0000]msoTrue[/COLOR] 'of msoFalse
    End With
End Sub
 
Laatst bewerkt:
ik zou met fullseriescollection werken. Veel handiger.
Even snel uit de pols zonder check
Code:
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
 
Laatst bewerkt:
@cow18
FullSeriesCollection is vanaf excel2010.
De code in bericht#7 met SeriesCollection is gemaakt en getest in excel2007.
 
Laatst bewerkt:
@alphamax,
dat was ik uit het oog verloren, hopelijk heeft TS een jongere versie.
 
Zie bericht#1, office2019
 
Hier verandert er niets aan de kleur van de lijn (Excel 2010)

Code:
Sub M_snb()
    With Blad1.ChartObjects(1).Chart.SeriesCollection(2).Format.Line
        .Visible = Not .Visible
    End With
End Sub
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan