Cuestión : Agregando y quitando la serie para un gráfico de Excel usar VBA

Hola,
I que tiene dificultad el agregar de una serie a un gráfico que he generado usar VBA. Quiero demostrar diversa serie dependiendo del valor de un número en una célula de Excel. Esta parte del código trabaja bien; sin embargo, cuando intento agregar las series adicionales al gráfico de modo que pueda demostrarme a 3 diversos unos inmediatamente (mientras que codificación policromática que la serie señala) no están teniendo ninguna suerte - guardo el conseguir de un error sin importar cualquier sintaxis que I use.

I sepa que éste es bastante simple y tiene que hacer con conseguir el sintaxis correcto pero no pueda parecer entender lo que is.

As yo indicó, yo quiera poder exhibir una serie (cuál será diferente dependiendo del valor de la célula) para 5 opciones mientras que en la 6ta opción quiero ser exhibición capaz de t 3 series en la combinación. Si el usuario elige la opción 1 -5 después de elegir el otion 6, el gráfico debe exhibir solamente una serie otra vez (así que me puede tener que quitar la serie después de agregarla - no sure). el

Please examina el código attached. 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:
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 secundario >Public " notpretty " del id= " codeSnippet846158 " del
class= del

Respuesta : Agregando y quitando la serie para un gráfico de Excel usar VBA

también con los bloques ayudará a reducir el código redundante, esperan que esto es provechoso
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 secundario público ()
  
    ChtObj dévil como ChartObject
    PriceType dévil como de largo
    Fijar ChtObj = ActiveSheet.ChartObjects (1)
      
    Application.ScreenUpdating = falso
      
    PriceType = ActiveSheet.Cells (13, 20). Valor
      
    Si PriceType = 1 entonces
        Con ChtObj.Chart.SeriesCollection (1)
            . Valores = ActiveSheet.Range (“771: 1475”)
            .MarkerBackgroundColorIndex = 1
            .MarkerBackgroundColorIndex = 4
        Extremo con
        ChtObj.Visible = verdad
    ElseIf PriceType = 2 entonces
        Con ChtObj.Chart.SeriesCollection (1)
            . Valores = ActiveSheet.Range (“$D$771: $D$1475”)
            .MarkerForegroundColorIndex = 1
            .MarkerBackgroundColorIndex = 5
        Extremo con
        ChtObj.Visible = verdad
    ElseIf PriceType = 3 entonces
        Con ChtObj.Chart.SeriesCollection (1)
            . Valores = ActiveSheet.Range (“$E$771: $E$1475”)
            .MarkerForegroundColorIndex = 1
            .MarkerBackgroundColorIndex = 3
        Extremo con
        ChtObj.Visible = verdad
    ElseIf PriceType = 4 entonces
        Con ChtObj.Chart.SeriesCollection (1)
            . Valores = ActiveSheet.Range (“$I$771: $I$1475”)
            .MarkerForegroundColorIndex = 1
            .MarkerBackgroundColorIndex = 9
        Extremo con
        ChtObj.Visible = verdad
    ElseIf PriceType = 5 entonces
        Con ChtObj.Chart.SeriesCollection (1)
            . Valores = ActiveSheet.Range (“$F$771: $F$1475”)
            .MarkerForegroundColorIndex = 1
            .MarkerBackgroundColorIndex = 7
        Extremo con
        ChtObj.Visible = verdad
    ElseIf PriceType = 6 entonces
        Con ChtObj.Chart.SeriesCollection (1)
            . Valores = ActiveSheet.Range (“D$771: $D$1475”)
            .MarkerForegroundColorIndex = 1
            .MarkerBackgroundColorIndex = 5
        Extremo con
        ActiveChart.SeriesCollection.NewSeries
        Con ChtObj.Chart.SeriesCollection (2)
            . Valores = ActiveSheet.Range (“E$771: $E$1475”)
            .MarkerForegroundColorIndex = 1
            .MarkerBackgroundColorIndex = 3
        Extremo con
        ActiveChart.SeriesCollection.NewSeries
        Con ChtObj.Chart.SeriesCollection (3)
            . Valores = ActiveSheet.Range (“I$771: $I$1475”)
            .MarkerForegroundColorIndex = 1
            .MarkerBackgroundColorIndex = 9
        Extremo con
        ChtObj.Visible = verdad
    Terminar si
    ActiveSheet.PivotTables (“PivotTable3”) .PivotCache.Refresh
  
Application.ScreenUpdating = verdad
  
Submarino del extremo
Otras soluciones  
 
programming4us programming4us