UpdateChart secundário público ()
ChtObj não ofuscante como ChartObject
PriceType não ofuscante como por muito tempo
Ajustar ChtObj = ActiveSheet.ChartObjects (1)
Application.ScreenUpdating = falso
PriceType = ActiveSheet.Cells (13, 20). Valor
Se PriceType = 1 então
Com ChtObj.Chart.SeriesCollection (1)
. Valores = ActiveSheet.Range (“771: 1475”)
.MarkerBackgroundColorIndex = 1
.MarkerBackgroundColorIndex = 4
Extremidade com
ChtObj.Visible = retificam
ElseIf PriceType = 2 então
Com ChtObj.Chart.SeriesCollection (1)
. Valores = ActiveSheet.Range (“$D$771: $D$1475”)
.MarkerForegroundColorIndex = 1
.MarkerBackgroundColorIndex = 5
Extremidade com
ChtObj.Visible = retificam
ElseIf PriceType = 3 então
Com ChtObj.Chart.SeriesCollection (1)
. Valores = ActiveSheet.Range (“$E$771: $E$1475”)
.MarkerForegroundColorIndex = 1
.MarkerBackgroundColorIndex = 3
Extremidade com
ChtObj.Visible = retificam
ElseIf PriceType = 4 então
Com ChtObj.Chart.SeriesCollection (1)
. Valores = ActiveSheet.Range (“$I$771: $I$1475”)
.MarkerForegroundColorIndex = 1
.MarkerBackgroundColorIndex = 9
Extremidade com
ChtObj.Visible = retificam
ElseIf PriceType = 5 então
Com ChtObj.Chart.SeriesCollection (1)
. Valores = ActiveSheet.Range (“$F$771: $F$1475”)
.MarkerForegroundColorIndex = 1
.MarkerBackgroundColorIndex = 7
Extremidade com
ChtObj.Visible = retificam
ElseIf PriceType = 6 então
Com ChtObj.Chart.SeriesCollection (1)
. Valores = ActiveSheet.Range (“D$771: $D$1475”)
.MarkerForegroundColorIndex = 1
.MarkerBackgroundColorIndex = 5
Extremidade com
ActiveChart.SeriesCollection.NewSeries
Com ChtObj.Chart.SeriesCollection (2)
. Valores = ActiveSheet.Range (“E$771: $E$1475”)
.MarkerForegroundColorIndex = 1
.MarkerBackgroundColorIndex = 3
Extremidade com
ActiveChart.SeriesCollection.NewSeries
Com ChtObj.Chart.SeriesCollection (3)
. Valores = ActiveSheet.Range (“I$771: $I$1475”)
.MarkerForegroundColorIndex = 1
.MarkerBackgroundColorIndex = 9
Extremidade com
ChtObj.Visible = retificam
Terminar se
ActiveSheet.PivotTables (“PivotTable3”) .PivotCache.Refresh
Application.ScreenUpdating = retificam
Submarino da extremidade
|