如何获取Excel图表系列中指定数据点的类别名称？

问：如下图1所示，我已经根据A1:B10单元格区域的数据画了一个折线图。现在我想用VBA得到折线图第五个数据点的分类名称(分类名称可以是数据表中的“橙色”)。如何编写一个程序来满足我的需求？

图1

答：可以使用以下用户自定义函数获取分类轴的类别名称：

获取指定图表中指定系列的数据点的类别名称。

参数cht:代表图表。

参数lSeriesNum:表示图表中的系列号。

参数lPointNum:表示序列中的数据点编号。

函数GetCategoryLabel(cht As Chart，_

lSeriesNum As Long，_

作为字符串

作为系列调光

作为变体的暗淡视频

获取图表系列。

设置srsCht=cht。SeriesCollection(lSeriesNum)

类别数据。

vCategory=srsCht。XValues

返回指定数据点的类别。

GetCategoryLabel=vCategory(lPointNum)

结束功能

使用以下代码调用GetCategoryLabel函数，获取图表中指定系列上某个点的类别名称。

子测试()

将字符串变暗为字符串

将cht调成图表

昏暗的房间一样长

暗淡点一样长

设置图表变量。

设置cht=ActiveSheet。图表对象(1)。图表

系列1。

lSeries=1

第五个数据点。

lPoint=5

获取类别名称。

str=GetCategoryLabel(cht，lSeries，lPoint)

显示结果。

MsgBox“系列”lSeries _

“中间”点

“点的类别名称是：”vbCrLf字符串。

末端接头

运行上述代码，Excel在当前工作表的第一张图表上显示系列1第5个数据点的类别名称，如下图2所示。