Cuestión : Excel:  Colocación con toda la serie de la carta de todas las cartas en una hoja de trabajo

Necesito poder colocar a través de todas mis cartas (sin la selección de ellas) y modificar el valor de la serie de la carta.  No puedo parecer conseguir en el valor o la característica de los xvalues de la serie.  ¿Cuáles son yo que hace mal? ¡expertos del

Thanks! class= > " claro " del
> del " codeSnippet " del class= del
class= " lineNumbers " del
class= del 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
class= reset_chartseries secundarios " del id= " codeSnippet775530 del 
Private " notpretty " ()    
    C dévil como ChartObject
    N dévil como número entero
    Cs dévil como SeriesCollection

    Para cada c en rws.ChartObjects
        Fijar c = rws.ChartObjects (c.Name)
            Para n = c.Chart.SeriesCollection.Count a 1 paso -1
                Fijar el cs = c.Chart.SeriesCollection
                    Cs de Debug.Print (n). Valores

'aquí es donde haré si declaración
¡'si el valor = “[0]” entonces xvalue = " divulga! gama nombrada "

            Después
    Después
Submarino del extremo
class= del

Respuesta : Excel:  Colocación con toda la serie de la carta de todas las cartas en una hoja de trabajo

Los valores vuelven un arsenal no un objeto.
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

Reset_chartseries secundarios privados ()    
    C dévil como ChartObject
    N dévil como número entero
    Cs dévil como SeriesCollection
    varData dévil

    Para cada c en rws.ChartObjects
        Para cada cs en c.Chart.SeriesCollection
           varData = cs. Valores
           Para n = lbound (vardata) al ubound (vardata)
              si varData (n) = 0 entonces
                 'hacer lo que
              Terminar si
           N siguiente
         cs siguiente
    C siguiente
Submarino del extremo
Otras soluciones  
 
programming4us programming4us