Vba 根据Excle中的X轴标题更改图表中的条形图颜色

我想在导出的excel文件中自动更改基于季度分组的图表的条形图颜色，而无需进行最少的手动操作。我试着用VBA来做，但由于不知道如何获得X轴标题而受阻

ActiveSheet.ChartObjects("Chart 1").Activate
ActiveChart.SeriesCollection(1).Select

'Check bar caption
'If bar captioin = 'FY13 Q1' then do following...

ActiveChart.SeriesCollection(1).Points(1).Select
With Selection.Format.Fill
    .Visible = msoTrue
    .ForeColor.ObjectThemeColor = msoThemeColorAccent6
    .ForeColor.TintAndShade = 0
    .ForeColor.Brightness = -0.25
    .Transparency = 0
    .Solid
End With

我的问题:

VBA是最好的方法吗？ 还有更好的办法吗？一些excel内置函数已经支持这样做了吗？ 如果我想尽可能地自动化整个过程，如何在不创建宏->复制->粘贴的情况下将宏集成到导出的excel文件中。 我会使用VBA是的，但那正是我使用的 你要找的房产是 ActiveSheet.ChartsChart 1.AxesxlCategory.AxisTitle.Text

要确保宏在所有工作表中都可用，请创建一个加载项文件并要求未来用户安装它。您没有提到您正在使用的Excel版本，但Addins上的Excel 2010参考是 编辑：重读你的文章，我想你可能是想问数据标签，而不是X轴标题。在这种情况下，您需要使用：

ActiveSheet.ChartsChart 1.SeriesCollection1.Points1.DataLabel.Text

现在，通过以上步骤，您需要确保标题/数据标签首先存在，例如：

如果ActiveSheet.ChartsChart 1.SeriesCollection1.Points1.HasDataLabel，则

如果你在这方面需要帮助，或者在图表/点之间循环，最好先寻找答案，如果找不到，再问一个单独的问题

干杯

调试到“如果ActiveChart.SeriesCollection1.XValues1=FY13 Q1，则。。。如果结束，谁能给我一些建议？