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)</
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)</