Vraag : Excel:  Het van een lus voorzien door al grafiekreeks alle grafieken op een aantekenvel

Ik moet aan lijn door al mijn grafieken (zonder hen te selecteren) kunnen en de waarde van de grafiekreeks wijzigen.  Ik kan niet schijnen om bij de waarde of xvalues het bezit van de reeks te krijgen.  Wat ben doen van I verkeerd? deskundigen

Thanks!
" codeBody " 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
van 
Private Subreset_chartseries ()    
    Schemerig c als ChartObject
    Schemerig n als Geheel
    Schemerig Cs als SeriesCollection

    Voor Elk c in rws.ChartObjects
        Vastgesteld c = rws.ChartObjects (c.Name)
            Voor n = c.Chart.SeriesCollection.Count aan 1 Stap -1
                Vastgesteld Cs = c.Chart.SeriesCollection
                    Debug.Print Cs (n). Waarden

'is hier waar ik als verklaring zal doen
'als de waarde = „[0]“ toen xvalue = " rapporteert! genoemde waaier "

            Daarna
    Daarna
Sub van het eind

Antwoord : Excel:  Het van een lus voorzien door al grafiekreeks alle grafieken op een aantekenvel

De waarden keert een serie terug niet een voorwerp.
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

Privé Subreset_chartseries ()    
    Schemerig c als ChartObject
    Schemerig n als Geheel
    Schemerig Cs als SeriesCollection
    Schemerige varData

    Voor Elk c in rws.ChartObjects
        Voor elk Cs in c.Chart.SeriesCollection
           varData = Cs. Waarden
           Voor n = lbound (vardata) aan ubound (vardata)
              als varData (n) = 0 toen
                 'doe wat
              Beëindig als
           Volgende n
         volgende Cs
    Volgende c
Sub van het eind
Andere oplossingen  
 
programming4us programming4us