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à
|