Fråga : Tillfoga och ta bort serien för en Excelgraf using VBA

Hi förmiddag för
I har svårighet tillfoga en serie till en graf som jag har frambragt using VBA. Jag önskar att visa olik serie beroende av värdera av en numrera i en Excelcell. Denna del av kodifiera fungerar väl; emellertid när I-försök att tillfoga extra serie till grafen, så att jag kan visa 3 olika en strax (tag, färgar kodifiera serien pekar), I-förmiddagen som inte har någon lycka - I-uppehället som får ett fel utan hänsyn till någon syntax, som I use.

I vet att detta är nätt enkelt och måste att göra med att få syntaxen korrekt, men jag kan inte verka för att figurera ut vad den is.

As mig påstod, mig önskar att vara kompetent att visa en serie (vilka ska är olika beroende av värdera av cellen), för 5 val som stunder på det 6th primat mig önskar att vara kompetent t-skärm 3 serie i kombination. Om användaren väljer alternativ 1 -5, når han har valt otion 6, grafen måste endast visa en serie igen (så mig kan måste att ta bort serien, når att ha tillfogat dem - inte sure).

Please undersöker kodifiera attached.
> för
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:
" codeBody " class= " notpretty " >Public underUpdateChart för
" klar "

Svar : Tillfoga och ta bort serien för en Excelgraf using VBA

också med kvarter ska hjälp förminskar det överflödigt kodifierar, hoppas detta är hjälpsamt
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:
Offentliga underUpdateChart ()
  
    Dunkla ChtObj som ChartObject
    Dunkla PriceType som Long
    Fastställda ChtObj = ActiveSheet.ChartObjects (1)
      
    Application.ScreenUpdating = falskt
      
    PriceType = ActiveSheet.Cells (13, 20). Värdera
      
    Om PriceType = 1 därefter
        Med ChtObj.Chart.SeriesCollection (1)
            . Värderar = ActiveSheet.Range (”771: 1475”)
            .MarkerBackgroundColorIndex = 1
            .MarkerBackgroundColorIndex = 4
        Avsluta med
        ChtObj.Visible = True
    ElseIf PriceType = 2 därefter
        Med ChtObj.Chart.SeriesCollection (1)
            . Värderar = ActiveSheet.Range (”$D$771: $D$1475”)
            .MarkerForegroundColorIndex = 1
            .MarkerBackgroundColorIndex = 5
        Avsluta med
        ChtObj.Visible = True
    ElseIf PriceType = 3 därefter
        Med ChtObj.Chart.SeriesCollection (1)
            . Värderar = ActiveSheet.Range (”$E$771: $E$1475”)
            .MarkerForegroundColorIndex = 1
            .MarkerBackgroundColorIndex = 3
        Avsluta med
        ChtObj.Visible = True
    ElseIf PriceType = 4 därefter
        Med ChtObj.Chart.SeriesCollection (1)
            . Värderar = ActiveSheet.Range (”$I$771: $I$1475”)
            .MarkerForegroundColorIndex = 1
            .MarkerBackgroundColorIndex = 9
        Avsluta med
        ChtObj.Visible = True
    ElseIf PriceType = 5 därefter
        Med ChtObj.Chart.SeriesCollection (1)
            . Värderar = ActiveSheet.Range (”$F$771: $F$1475”)
            .MarkerForegroundColorIndex = 1
            .MarkerBackgroundColorIndex = 7
        Avsluta med
        ChtObj.Visible = True
    ElseIf PriceType = 6 därefter
        Med ChtObj.Chart.SeriesCollection (1)
            . Värderar = ActiveSheet.Range (”D$771: $D$1475”)
            .MarkerForegroundColorIndex = 1
            .MarkerBackgroundColorIndex = 5
        Avsluta med
        ActiveChart.SeriesCollection.NewSeries
        Med ChtObj.Chart.SeriesCollection (2)
            . Värderar = ActiveSheet.Range (”E$771: $E$1475”)
            .MarkerForegroundColorIndex = 1
            .MarkerBackgroundColorIndex = 3
        Avsluta med
        ActiveChart.SeriesCollection.NewSeries
        Med ChtObj.Chart.SeriesCollection (3)
            . Värderar = ActiveSheet.Range (”I$771: $I$1475”)
            .MarkerForegroundColorIndex = 1
            .MarkerBackgroundColorIndex = 9
        Avsluta med
        ChtObj.Visible = True
    Avsluta om
    ActiveSheet.PivotTables (”PivotTable3”) .PivotCache.Refresh
  
Application.ScreenUpdating = True
  
Avsluta suben
Andra lösningar  
 
programming4us programming4us