Grafiekwaarden Aan-Uit

[Abco_B]

Nog iemand een idee over hoe ik onderstaande makro's kan samenvoegen tot een makro die grafiekwaarden aan/uit zet ?


Sub Waarden_aan()
ActiveChart.ApplyDataLabels ShowValue:=True
End Sub

Sub Waarden_uit()
ActiveChart.ApplyDataLabels ShowValue:=False
End Sub


Bij voorbaat dank !

Abco

 

[Roncancio]

Sub Waarden()
If ActiveChart.ApplyDataLabels ShowValue:=True then
ActiveChart.ApplyDataLabels ShowValue:=False
Else
ActiveChart.ApplyDataLabels ShowValue:=True
End Sub

Ps. Niet vergeten om de macro Waarden aan een knop te koppelen.

 

[Wigi]

Roncancio:

Else
ActiveChart.ApplyDataLabels ShowValue:=True

mag weg. Of niet?

 

[Abco_B]

Roncancio,

Nav van je oplossing van gisteren (categorie) had ik deze ook gemaakt, hij geeft echter een foutmelding.

Abco

 

[Roncancio]

Roncancio:

Else
ActiveChart.ApplyDataLabels ShowValue:=True

mag weg. Of niet?

Nee, volgens mij niet. De bedoeling is (als ik het goed begrepen heb) om een Aan/Uit knop te maken. Je zou ook aan een Togglebutton kunnen denken, maar goed.

 

[Wigi]

Je hebt gelijk, het mag niet weg.

 

[Roncancio]

En zo ?

Sub Waarden()
If ActiveChart.SeriesCollection(1).HasDataLabels = True Then
ActiveChart.ApplyDataLabels ShowValue:=False
Else
ActiveChart.ApplyDataLabels ShowValue:=True
End Sub

 

[Abco_B]

Uitstekend !

Weer bedankt,

Abco