如何使用excel vba代码在箱形图和晶须图中更改系列的颜色？

Question

我无法编码任何会改变框和晶须图中的系列颜色的东西，而且我在网上也找不到任何提示。

我曾尝试使用/修改代码来更改散点图中系列的颜色，但这些代码不适用于箱形图和晶须图。我尝试记录一个宏，但是它生成的代码没有显示任何颜色变化，它只是显示我选择系列，然后代码结束，完全省去了颜色变化，这是我从未见过的我尝试执行的其他任何类型的情节。

这是我用来绘制情节的代码：

Worksheets("Data Summary").Activate
Range(cells(4, 2), cells(y + 3, a + 1)).Select
ActiveSheet.Shapes.AddChart2(406, xlBoxwhisker).Select
For seriesNumber = 1 To a
    ActiveChart.SeriesCollection(seriesNumber).Name = cells(3,   seriesNumber + 1).Value
Next seriesNumber    


Set capacityChart = ActiveSheet.Shapes(1)
capacityChart.Name = "Data Chart"

ActiveSheet.ChartObjects("Data Chart").Activate
ActiveChart.SetElement (301)
ActiveChart.SetElement (307)
ActiveChart.Axes(xlValue).AxisTitle.Select
Selection.Caption = "x axis name"
ActiveChart.Axes(xlCategory).AxisTitle.Select
ActiveChart.SetElement (300)
ActiveChart.SetElement (msoElementChartTitleAboveChart)
ActiveChart.ChartTitle.Select
Selection.Caption = "y axis name"
ActiveChart.Axes(xlCategory).Select
ActiveChart.SetElement (348)
ActiveChart.HasLegend = True

Answer 1

希望如果您仍然需要它，将会对您有所帮助：

Dim cht As Chart
Dim s As Series

ActiveSheet.Shapes(1).Select
Set cht = ActiveChart
Set s = cht.SeriesCollection(1)
s.Format.Fill.ForeColor.RGB = 49407

抬起头来，如果我在打开VBE的情况下运行它，我经常发现它经常崩溃，但是在关闭它的情况下，它工作得很好。

希望有帮助！