2017-04-19 69 views

回答

0

您只需循环Chart.SeriesCollection并将series.Interior.Color设置为所需的RGB整数值即可。

  For i = 1 To chart.SeriesCollection.count 
      Dim series As Series = chart.SeriesCollection(i) 
       series.Interior.Color = newColor 
      Next 
+0

什么是'newColor'?我已经尝试了一个实际的Color.red类型元素,并且我还将RGB值作为整数传入。两者都给我一个例外。 – Gargoyle

+0

它是一个整数的RGB值。将其设置为0应该使您的列变黑。表单/图表是否受到保护?例外说什么? – misterfrb

+0

参数无效。因为图表只是通过代码生成的,所以没有任何保护。 – Gargoyle