Questione : Aggiungendo e rimuovendo la serie per un grafico di Excel using VBA

Ciao,
I che incontra difficoltà aggiungere una serie ad un grafico che ho generato using VBA. Voglio mostrare la serie differente secondo il valore di un numero in una cellula di Excel. Questa parte del codice funziona bene; tuttavia, quando provo ad aggiungere le serie supplementari al grafico in moda da poterlo mostrarlo io 3 un differenti immediatamente (mentre codifica mediante colori che la serie indica) non sto avendo alcuna fortuna - continu aare ottenere un errore senza riguardo a tutta la sintassi che la I use.

I sa che questa è abbastanza semplice e riguarda ottenere la sintassi corretta ma non posso sembrare calcolare fuori che cosa is.

As io ha indicato, io voglio potere visualizzare una serie (quale saranno differenti secondo il valore della cellula) per 5 scelte mentre sulla sesta scelta voglio essere esposizione in grado di t 3 serie in associazione. Se l'utente sceglie l'opzione 1 -5 dopo la scelta del otion 6, il grafico deve visualizzarlo soltanto ancora una serie (in modo da può dovere rimuovere la serie dopo l'aggiunta loro - non sure). il

Please esamina il codice attached.
class= > " libero " 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:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
class= UpdateChart secondario >Public " notpretty " del id= " codeSnippet846158 " del
           
class= del

Risposta : Aggiungendo e rimuovendo la serie per un grafico di Excel using VBA

inoltre con i blocchi contribuirà a ridurre il codice ridondante, sperano che questo sia utile
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
UpdateChart secondario pubblico ()
  
    ChtObj fioco come ChartObject
    PriceType fioco come lungamente
    Regolare ChtObj = ActiveSheet.ChartObjects (1)
      
    Application.ScreenUpdating = falso
      
    PriceType = ActiveSheet.Cells (13, 20). Valore
      
    Se PriceType = 1 allora
        Con ChtObj.Chart.SeriesCollection (1)
            . Valori = ActiveSheet.Range (“771: 1475„)
            .MarkerBackgroundColorIndex = 1
            .MarkerBackgroundColorIndex = 4
        Estremità con
        ChtObj.Visible = allineano
    ElseIf PriceType = 2 allora
        Con ChtObj.Chart.SeriesCollection (1)
            . Valori = ActiveSheet.Range (“$D$771: $D$1475„)
            .MarkerForegroundColorIndex = 1
            .MarkerBackgroundColorIndex = 5
        Estremità con
        ChtObj.Visible = allineano
    ElseIf PriceType = 3 allora
        Con ChtObj.Chart.SeriesCollection (1)
            . Valori = ActiveSheet.Range (“$E$771: $E$1475„)
            .MarkerForegroundColorIndex = 1
            .MarkerBackgroundColorIndex = 3
        Estremità con
        ChtObj.Visible = allineano
    ElseIf PriceType = 4 allora
        Con ChtObj.Chart.SeriesCollection (1)
            . Valori = ActiveSheet.Range (“$I$771: $I$1475„)
            .MarkerForegroundColorIndex = 1
            .MarkerBackgroundColorIndex = 9
        Estremità con
        ChtObj.Visible = allineano
    ElseIf PriceType = 5 allora
        Con ChtObj.Chart.SeriesCollection (1)
            . Valori = ActiveSheet.Range (“$F$771: $F$1475„)
            .MarkerForegroundColorIndex = 1
            .MarkerBackgroundColorIndex = 7
        Estremità con
        ChtObj.Visible = allineano
    ElseIf PriceType = 6 allora
        Con ChtObj.Chart.SeriesCollection (1)
            . Valori = ActiveSheet.Range (“D$771: $D$1475„)
            .MarkerForegroundColorIndex = 1
            .MarkerBackgroundColorIndex = 5
        Estremità con
        ActiveChart.SeriesCollection.NewSeries
        Con ChtObj.Chart.SeriesCollection (2)
            . Valori = ActiveSheet.Range (“E$771: $E$1475„)
            .MarkerForegroundColorIndex = 1
            .MarkerBackgroundColorIndex = 3
        Estremità con
        ActiveChart.SeriesCollection.NewSeries
        Con ChtObj.Chart.SeriesCollection (3)
            . Valori = ActiveSheet.Range (“I$771: $I$1475„)
            .MarkerForegroundColorIndex = 1
            .MarkerBackgroundColorIndex = 9
        Estremità con
        ChtObj.Visible = allineano
    Concluder se
    ActiveSheet.PivotTables (“PivotTable3„) .PivotCache.Refresh
  
Application.ScreenUpdating = allineano
  
Sommergibile dell'estremità
Altre soluzioni  
 
programming4us programming4us