legenda van een grafiek

[popipipo]

Ik ben met een groot project bezig.
een onderdeel is de rapportage dmv een grafiek.

De grafiek bestaat uit 10 lijnen.
Echter door een keuze te maken kan ik ook slechts 1 lijn of een willekeurig ander aantal zien.

De legenda echter laat wel alle 10 lijnen zien met #N/A als titel voor die lijnen die ik niet gekozen heb.
In dit voorbeeld zie je dus in de legenda 2001 staan en nog 9 maal #N/A

Voor de overzichtelijkheid zou ik de #N/A (plus het lijntje) niet willen zien.

 

[WHER]

Probeer deze eens:

 

[popipipo]

in excel 2010 werkt het prima
Echter in 2003 krijg ik een foutmelding bij 'set element' voor 'msoElementLegendNone'

compileerfout
Kan methode of het gegevens lid niet vinden.

 

[WHER]

Dan kan je best in Excel 2003 een macro opnemen waarbij je een bestaande legenda verwijdert (en omgekeerd), en vervolgens kijken hoe de macrorecorder dit benoemt.

 

[pixcel]

Als je een kolom van je brongegevens verbergt worden ze niet getoond in de grafiek.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim r As Range, cl As Range
    Set r = Me.Range("C2:L2")
    If Not Intersect(Target, r) Is Nothing Then
        For Each cl In r
            cl.Offset(, 14).EntireColumn.Hidden = Not (LCase(cl.Value) = "x")
        Next cl
    End If
End Sub

Wel je brongegevens even verplaatsen zodat 2001 in cel Q3 komt.
Als het nodis is kun je de code nog wat optimaliseren door in de for each r te vervangen door de intersect van target en r.