1

我想做一个图表，其中 X 轴上的刻度不是数字而是文本。以学习为目的：像“一月、八月、二月、十一月”或“苹果、香蕉、汽车”这样的月份。

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

也许这很容易。我只是不知道如何寻找它。过去几个小时我一直在尝试，但仍然没有。看这不是我想要更改的轴的标签，但是指向 Y 轴的每个数据都会有它的名称。

提前致谢。

4

2 回答 2

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

结果：

在此处输入图像描述

于 2014-07-03T18:09:11.003 回答
0

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

例如

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

会将显示的类别数据更改为 4、5、6。您可以通过编程方式生成所需的任何字符串并进行更改。

于 2014-07-03T18:04:16.643 回答