Helpmij.nl
Helpmij.nl
Helpmij.nl

Quote

Weergeven resultaten 1 tot 13 van 13

Onderwerp: Aan/uitzetten lijn in een grafiek.

  1. #1
    Senior Member
    Geregistreerd
    8 januari 2006
    Vraag is niet opgelost

    Aan/uitzetten lijn in een grafiek.

    Klik op afbeelding voor grotere versie

Naam:  SelectLine.JPG
Bekeken: 23
Grootte:  56,4 KB

    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)

  2. #2
    Tera Honourable Senior Member edmoor's avatar
    Geregistreerd
    8 september 2000
    Locatie
    Zuid-Holland
    Wat is volgens jou "geen zinnige code"?
    Plaats ook een voorbeeld document.
    "It's hardware that makes a machine fast. It's software that makes a fast machine slow. "
    Op rechtstreekse vragen via email of privébericht reageer ik niet. Daar is het forum voor.
    Lees ook: http://www.helpmij.nl/forum/announcement.php?f=5

  3. #3
    Senior Member
    Geregistreerd
    8 januari 2006
    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 aangepast door Woffels : 7 april 2021 om 10:58

  4. #4
    Tera Honourable Senior Member edmoor's avatar
    Geregistreerd
    8 september 2000
    Locatie
    Zuid-Holland
    En ik ben dus benieuwd naar die code en een voorbeeld document waarin je laat zien welke lijn je bedoelt.
    "It's hardware that makes a machine fast. It's software that makes a fast machine slow. "
    Op rechtstreekse vragen via email of privébericht reageer ik niet. Daar is het forum voor.
    Lees ook: http://www.helpmij.nl/forum/announcement.php?f=5

  5. #5
    Senior Member
    Geregistreerd
    8 januari 2006
    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.
    Bijgevoegde bestanden Bijgevoegde bestanden

  6. #6
    Tera Honourable Senior Member edmoor's avatar
    Geregistreerd
    8 september 2000
    Locatie
    Zuid-Holland
    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
    Laatst aangepast door edmoor : 7 april 2021 om 11:45
    "It's hardware that makes a machine fast. It's software that makes a fast machine slow. "
    Op rechtstreekse vragen via email of privébericht reageer ik niet. Daar is het forum voor.
    Lees ook: http://www.helpmij.nl/forum/announcement.php?f=5

  7. #7
    Mega Senior
    Geregistreerd
    16 maart 2011
    Locatie
    Weert
    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(1).Format.Line
            .ForeColor.RGB = 12874308
            .Visible = msoTrue 'of msoFalse
        End With
    End Sub
    Laatst aangepast door alphamax : 7 april 2021 om 14:52

  8. #8
    Giga Senior cow18's avatar
    Geregistreerd
    24 mei 2008
    Locatie
    Alveringem, België
    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 aangepast door cow18 : 7 april 2021 om 14:23

  9. #9
    Mega Senior
    Geregistreerd
    16 maart 2011
    Locatie
    Weert
    @cow18
    FullSeriesCollection is vanaf excel2010.
    De code in bericht#7 met SeriesCollection is gemaakt en getest in excel2007.
    Laatst aangepast door alphamax : 7 april 2021 om 14:42

  10. #10
    Giga Senior cow18's avatar
    Geregistreerd
    24 mei 2008
    Locatie
    Alveringem, België
    @alphamax,
    dat was ik uit het oog verloren, hopelijk heeft TS een jongere versie.

  11. #11
    Mega Senior
    Geregistreerd
    16 maart 2011
    Locatie
    Weert
    Zie bericht#1, office2019

  12. #12
    Giga Honourable Senior Member
    Verenigingslid
    snb's avatar
    Geregistreerd
    12 juni 2008
    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
    VBA voor smarties
    VBA is een taal die je moet leren met een grammatica- en een woordenboek.

    http://www.helpmij.nl/forum/announcement.php?f=5
    Plaats svp geen bestanden op andere sites; nadat het bestand daar verwijderd is wordt een forumdraad onbegrijpelijk voor anderen.

  13. #13
    Senior Member
    Geregistreerd
    8 januari 2006
    Werkt perfect,
    tnx

Berichtenregels

  • U mag geen nieuwe vragen starten.
  • U mag niet reageren op berichten.
  • U mag geen bijlagen versturen.
  • U mag uw berichten niet bewerken.
  •  
Helpmij.nl
Helpmij.nl

Helpmij.nl

Regels
Help

Helpmij.nl en business

Partners
Sponsoren