Frage : Excel:  Schleifung durch alle Diagrammreihe aller Diagramme auf einem Arbeitsblatt

Ich muss in der Lage sein, sich durch alle meine Diagramme zu schlingen (ohne sie vorzuwählen) und den Diagramm-Reihenwert zu ändern.  Ich kann nicht scheinen, am Wert oder am xvalues Eigentum der Reihe zu erhalten.  Was sind ich falsch tuend?

Thanks Experten! 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

Private Vorreset_chartseries ()    
    Schwaches c als ChartObject
    Schwaches n als ganze Zahl
    Schwaches Cs als SeriesCollection

    Für jedes c in rws.ChartObjects
        Einstellen c = rws.ChartObjects (c.Name)
            Für n = c.Chart.SeriesCollection.Count zu 1 Schritt -1
                Cs = c.Chart.SeriesCollection einstellen
                    Debug.Print Cs (N). Werte

'ist hier, wo ich wenn Aussage tue
'wenn Wert = „[0]“ dann xvalue = " berichtet! genannte Strecke "

            Zunächst
    Zunächst
Enden-Unterseeboot

Antwort : Excel:  Schleifung durch alle Diagrammreihe aller Diagramme auf einem Arbeitsblatt

Werte bringt eine Reihe nicht ein Gegenstand zurück.
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

Private Vorreset_chartseries ()    
    Schwaches c als ChartObject
    Schwaches n als ganze Zahl
    Schwaches Cs als SeriesCollection
    Schwaches varData

    Für jedes c in rws.ChartObjects
        Für jedes Cs in c.Chart.SeriesCollection
           varData = Cs. Werte
           Für n = lbound (vardata) zum ubound (vardata)
              wenn varData (N) = 0 dann
                 'tun, was auch immer
              Beenden wenn
           Folgendes n
         folgendes Cs
    Folgendes c
Enden-Unterseeboot
Weitere Lösungen  
 
programming4us programming4us