|
With ch.Chart
.ChartType = xlXYScatterSmooth
.SeriesCollection.NewSeries
.SeriesCollection(1).Values = ws.Range("c2:c" & lastrow)
.SeriesCollection(1).XValues = ws.Range("a2:a" & lastrow)
' .SeriesCollection(1).Name = [c2]
.SeriesCollection(1).Interior.Color = RGB(0, 0, 0)
.SeriesCollection.NewSeries
.SeriesCollection(2).Values = ws.Range("L18:L19")
.SeriesCollection(2).XValues = ws.Range("K18:K19")
'.SeriesCollection(2).Name = [L18]
.SeriesCollection(2).Interior.Color = RGB(0, 0, 0)
End With
楼主老师你好,看了你的帖子讲的很详细,再次感谢。有个问题,为什么我设置了系列的颜色,修改不了呢。还是默认的蓝色和橙色,我哪儿弄错了,请指教 |
|