Excel VBA 批量更改坐标轴名称

最新推荐文章于 2021-10-12 15:02:20 发布

Hello_World_2021

最新推荐文章于 2021-10-12 15:02:20 发布

阅读量1.9k

点赞数 2

分类专栏： Excel VBA

本文链接：https://blog.csdn.net/Hello_World_2021/article/details/105513642

版权

Excel VBA 专栏收录该内容

6 篇文章 1 订阅

订阅专栏

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