Pergunta : Excel:  Dar laços com toda a série da carta de todas as cartas em uma folha

Eu preciso de poder dar laços através de todas minhas cartas (sem as selecionar) e modificar o valor da série da carta.  Eu não posso parecer começ no valor ou na propriedade dos xvalues da série.  Que são mim que faço erradamente? peritos do

Thanks! class= > " desobstruído " do
> do " codeSnippet " do class= do
class= " lineNumbers " do
class= do 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
class= reset_chartseries secundários " do id= " codeSnippet775530 do 
Private " notpretty " ()    
    C não ofuscante como ChartObject
    N não ofuscante como o inteiro
    Cs não ofuscante como SeriesCollection

    Para cada c em rws.ChartObjects
        Ajustar c = rws.ChartObjects (c.Name)
            Para n = c.Chart.SeriesCollection.Count a 1 etapa -1
                Ajustar o Cs = o c.Chart.SeriesCollection
                    Cs de Debug.Print (n). Valores

'é aqui onde eu farei se indicação
'se o valor = “[0]” então xvalue = " relata! escala nomeada "

            Em seguida
    Em seguida
Submarino da extremidade
class= do

Resposta : Excel:  Dar laços com toda a série da carta de todas as cartas em uma folha

Os valores retornam uma disposição não um objeto.
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

Reset_chartseries secundários confidenciais ()    
    C não ofuscante como ChartObject
    N não ofuscante como o inteiro
    Cs não ofuscante como SeriesCollection
    varData não ofuscante

    Para cada c em rws.ChartObjects
        Para cada Cs em c.Chart.SeriesCollection
           varData = Cs. Valores
           Para n = lbound (vardata) ao ubound (vardata)
              se varData (n) = 0 então
                 'fazer o que quer que
              Terminar se
           N seguinte
         Cs seguinte
    C seguinte
Submarino da extremidade
Outras soluções  
 
programming4us programming4us