Hoe kan ik in een staafdiagram een staaf d.m.v. een vinkje aan of uit zetten?

[mmmaaarrr]

Hoe kan ik in een staafdiagram een staaf d.m.v. een vinkje aan of uit zetten?
Ik heb 6 opties en 6 grafieken.
Elke optie is als een staaf in een staafdiagram weer gegeven
Aan de hand van elke grafiek kan een optie afvallen.
Ik wil zo door middel van een vinkje een optie aan of uit kunnen zetten, waardoor de grafiek leesbaarder wordt.
Kan dit?

 

[sylvester-ponte]

Private Sub CheckBox1_Click()
If CheckBox1 = True Then
    ActiveSheet.Shapes(1).Visible = msoCTrue
Else
    ActiveSheet.Shapes(1).Visible = msoFalse
End If
End Sub

 

[HSV]

Of:

Private Sub CheckBox1_Click()
 ActiveSheet.Shapes(1).Visible = CheckBox1
End Sub

 

[VenA]

@mmmaaarrr,
Je kan wel allerlei vragen poneren maar de vraag van deze kant blijft hetzelfde. Wil je even een voorbeeldje plaatsen met wat je wil?

http://www.helpmij.nl/forum/showthread.php/843591-afbeelding%28en%29-weergeven-afhankelijk-van-waarde?p=5412885#post5412885

 

[mmmaaarrr]

Bedankt voor de reacties
Van bijgaande grafiek zou ik graag d.m.v. een vinkje serie 1 (zowel reeks 1 als 2) wel of niet in het staaf diagram weer willen laten geven.

 

[HSV]

Ik denk nog niet aan een oplossing, maar plaats een Excel bestand.

 

[mmmaaarrr]

Bekijk bijlage excel vraag 1.xlsx

 

[HSV]

Zet de checkbox eerst op false.

Private Sub CheckBox1_Click()
 With Range("C4:C9")
    If CheckBox1 Then
      Range("VI1:VI6").Value = .Value
        .ClearContents
    Else
      .Value = Range("VI1:VI6").Value
    End If
 End With
End Sub

Checkbox2 is analoog.

 

[mmmaaarrr]

Mooi dit helpt me verder.
Tot zover bedankt!

Nu gooit hij de hele reeks er uit terwijl ik alleen een serie er uit wil halen.
Ik heb dit geprobeerd maar dat werkt maar half.

Private Sub CheckBox1_Click()
With Range("b4:d4")
If CheckBox1 Then
Range("VI1:VI6").Value = .Value
.ClearContents
Else
.Value = Range("VI1:VI6").Value
End If
End With
End Sub

Wat moet ik nog meer aan passen?
Ik begrijp ook niet waar "VI1:VI6" vandaan komt.
smiley staat voor : en d

Ik wil dus de serie er uit halen en vervolgens ook weer terug kunnen plaatsen

 

[HSV]

Bij het aanvinken gaan de gegevens naar het bereik VH1:VI1 en vice versa.

Private Sub CheckBox1_Click()
 With Range("C4:D4")
    If CheckBox1 Then
      Range("VH1:VI1").Value = .Value
        .ClearContents
    Else
      .Value = Range("VH1:VI1").Value
    End If
 End With
End Sub

 

[VenA]

Kan het niet wat simpeler door gewoon gebruik te maken van een keuzevakje en daar wat formules op los te laten? In het voorbeeldje kan je serie1 aan of uitzetten idem voor reeks2

 

[mmmaaarrr]

HSV perfect het werkt,
Bedankt !!

 

[mmmaaarrr]

Serie 1 werkt perfect maar ik heb nu serie 2 toegevoegd en die werkt niet goed.
Waarom?
Wat ik ook zie telkens als ik op het vinkje druk wordt dat steeds kleiner.
Wat kan ik daar aan doen?

 

[mmmaaarrr]

Bekijk bijlage excel vraag 1a.xlsm

 

[mmmaaarrr]

Kan het niet wat simpeler door gewoon gebruik te maken van een keuzevakje en daar wat formules op los te laten? In het voorbeeldje kan je serie1 aan of uitzetten idem voor reeks2

Ga ik morgen eens bekijken.
Al vast bedankt

 

[mmmaaarrr]

VenA
Ik heb een half uurtje gezocht naar een manier om de door jou gebruikte programma code te vinden maar ik vind die niet.
Dit is het enige wat ik zie.


Sub Selectievakje4_Klikken()

End Sub
Sub Selectievakje3_Klikken()

End Sub

Wat doe ik verkeerd?

 

[OctaFish]

VenA heeft geen VBA gebruikt, er is dus ook geen code nodig. Hij heeft extra kolommen gemaakt met een formule die ofwel de celwaarde uit (reeks2a) uit kolom C laat zien, ofwel het getal 0 in de cel zet. En met het selectievakje bepaal je dus of je (in onderstaande formule) C2 ziet, of 0.

=ALS(EN(E12;E10);C2;0)

Er is daarmee altijd een grafiek, alleen heeft kolom de seriewaarde (C2) of 0. De grafiek is niet meer gebaseerd op de kolommen B en C, maar op de kolommen E en F. Leuke truc, moet ik zeggen . Voor het mooie zou je die kolommen kunnen verbergen, want je hebt ze verder niet nodig.

 

[mmmaaarrr]

Het is gelukt.
Allen Bedankt !!

 

[Niels28]

Waarom niet gebruik maken van standaard functies in excel.

Oplossing met draaigrafiek

Bekijk bijlage excel vraag 1b.xlsx



Niels

 

[VenA]

@OctaFish,
Bedankt voor de heldere uitleg:thumb: Dat de TS in mijn voorbeeldje code heeft gevonden vind ik wel apart. De hulpkolommen en de waarde van de selectievakjes heb ik bewust zichtbaar gelaten. Anders was het helemaal een puzzel geworden.:d Even los van de oplossing van Niels28 kan het volgens mij niet zonder hulpkolommen. Ook HSV parkeert, dmv VBA, de waarden even ergens anders om ze eventueel weer terug te zetten.

@Niels,
Was ook mijn gedachte maar dat lukt volgens mij niet met de oorspronkelijke vraag

Ik heb 6 opties en 6 grafieken.
Elke optie is als een staaf in een staafdiagram weer gegeven

Maar het blijkt dat de vraag op meerdere manieren te interpreteren is:d

@mmmaaarrr,
Wil je nog even het eindresultaat plaatsen en de vraag op opgelost zetten? Dan hebben anderen er mogelijk ook wat aan.