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
|