首页officeexcel正文

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

强国说学习2022-08-10102excel图表制作excel常用函数excel数据透视表Excel教程

Q:如下图1所示,我根据单元格区域A1:B10中的数据绘制了一个折线图,我现在想用VBA得到该折线图的第5个数据点的分类名(从数据表中可以得出其分类名为“桔子”),如何编写程序实现我的需求?

图1

A:可以使用下面的自定义函数来获得分类轴的类别名:

‘获取指定图表中指定系列上某数据点类别名

‘参数cht:代表图表

‘参数lSeriesNum:代表图表中的系列编号

‘参数lPointNum:代表系列中的数据点编号

Function GetCategoryLabel(cht As Chart, _

lSeriesNum As Long, _

该篇文章内容来源于网络,由强国说学习-WPS之家(wps.qiangguoshuo.com)收集,希望能为您提供帮助。

lPointNum As Long) As String

Dim srsCht As Series

Dim vCategory As Variant

‘获取图表系列

Set srsCht= cht.SeriesCollection(lSeriesNum)

‘类别数据

vCategory = srsCht.XValues

‘返回指定数据点的类别

GetCategoryLabel = vCategory(lPointNum)

End Function

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

Sub test()

Dim str As String

Dim cht As Chart

Dim lSeries As Long

Dim lPoint As Long

‘设置图表变量

Set cht = ActiveSheet.ChartObjects(1).Chart

‘系列1

lSeries = 1

‘第5个数据点

lPoint = 5

‘获取类别名

str = GetCategoryLabel(cht, lSeries, lPoint)

‘显示结果

MsgBox”系列”& lSeries & _

“中第”& lPoint & _

“点的类别名为:”& vbCrLf & str

End Sub

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

如想转载该文章请注明出处:强国说学习-qiangguoshuo.com
强国说学习

转载声明:本站发布文章及版权归原作者所有,转载本站文章请注明文章来源!

本文链接:https://www.qiangguoshuo.com/excel/19049.html