使用VBA而不使用任何单元格的Excel图表中的类别名称

我想做一个图表，在X轴上的滴答不是数字，而是文本。 以学习为目的：“一月，八月，二月，十一月”或“苹果，香蕉，汽车”等。

诀窍是我不希望这些信息来自任何单元格。 它将在Excel VBA上编码。

也许这很容易。 我只是不知道如何find它。 过去几个小时我都在努力尝试，但还是一无所获。 看看它不是我想要改变的轴的标签，但是在Y轴上指出的每个数据都会有它的名字。

提前致谢。

Answer 1

您可以直接使用VBA将数据填充到图表中，而无需使用单元格

例如

 ActiveChart.SeriesCollection(1).XValues = "={4,5,6}" 

会将显示的类别数据更改为4,5,6。 您可以通过编程生成任何需要的string并进行更改。

Answer 2

从看起来像这样的数据开始：

您可以使用以下行设置轴标签：

 ActiveChart.SeriesCollection(1).XValues = "={""Jan"",""Feb"",""Mar"",""Apr"",""May"",""Jun""}" 

---

完整的示例代码：

 Sub AddChart() ActiveSheet.Shapes.AddChart.Select ActiveChart.ChartType = xlBarClustered ActiveChart.SeriesCollection.NewSeries ActiveChart.SeriesCollection(1).Values = "=Sheet1!$A$1:$A$6" ActiveChart.SeriesCollection(1).XValues = "={""Jan"",""Feb"",""Mar"",""Apr"",""May"",""Jun""}" End Sub 

---

结果：