如何编写一个 vba 来删除电子表格中所有图表的所有 x 标签？答案

【问题标题】：How can I write a vba to delete all x lables for all charts in the spreadsheet?如何编写一个 vba 来删除电子表格中所有图表的所有 x 标签？
【发布时间】：2016-01-05 23:27:23
【问题描述】：

我在一个选项卡中有 7 个堆积柱形图。我想写一个 vba 来删除所有图表左侧的所有垂直标签。我以为这很简单，但事实并非如此！

【问题讨论】：

你试过录制宏吗？

标签： vba charts axes

【解决方案1】：

所以你想“删除所有 x 标签”或“删除左侧的所有垂直标签”？读起来好像您首先指的是水平 x 轴，然后是垂直 y 轴 - 有点混乱。如果您使用 Excel 术语 - 垂直轴或水平轴，则会有所帮助。并移除坐标轴、坐标轴标题或坐标轴刻度标签？

除此之外...您可以像这样遍历工作表中的所有图表对象：

Sub loopCharts()

Dim i As Integer

For i = 1 to ActiveSheet.ChartObjects.Count

    'do some stuff with the chart

Next i  

End Sub

比如要删除纵轴：

Sub delVertAxisAllCharts()

Dim i As Integer

For i = 1 to ActiveSheet.ChartObjects.Count

    ActiveSheet.ChartObjects(i).Chart.Axes(xlValue).Delete

Next i  

End Sub

如果您只想删除水平刻度标签：

Sub remHorizTickLabels()

Dim i As Integer

For i = 1 to ActiveSheet.ChartObjects.Count

    ActiveSheet.ChartObjects(i).Chart.Axes(xlCategory).TickLabelPosition = xlNone

Next i  

End Sub

希望对您有所帮助...

【讨论】：