在excel中如何用VBA给图表添加坐标轴标题，或者给多个图表添加相同的横轴标题？

Sub 宏()
Dim co As ChartObject
  i=0
    For Each co In ActiveSheet.ChartObjects '处理当前工作表中所有的图表
        i=i+1
        co.Chart.Axes(xlCategory).HasTitle = True '显示横轴标题
        co.Chart.Axes(xlCategory).AxisTitle.Text =cells(i,1) '请修改为统一标题内容
    Next co
End Sub

借用一百℃猪高手的代码修改下，未运行仅供测试。

横轴标题

Sub 宏()
Dim co As ChartObject

    For Each co In ActiveSheet.ChartObjects '处理当前工作表中所有的图表
        co.Chart.Axes(xlValue).HasTitle = True '显示横轴标题
        co.Chart.Axes(xlValue).AxisTitle.Text = "标题" '请修改为统一标题内容
    Next co
End Sub