excel - 如何使用 excel vba 代码更改盒须图中系列的颜色？

Question

我无法编写任何会改变盒子和 mustache 图中系列颜色的代码，而且我在网上根本找不到任何提示。

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

这是我用来制作情节的代码:

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 打开的情况下运行它，我发现这个 Excel 经常崩溃，但在它关闭的情况下它工作得很好。

希望能帮助到你!