如何获取Excel图表系列中指定数据点的类别名？
发布时间：2023-06-06 18:25:57
Q：如下图1所示，我根据单元格区域A1:B10中的数据绘制了一个折线图，我现在想用VBA得到该折线图的第5个数据点的分类名（从数据表中可以得出其分类名为“桔子”），如何编写程序实现我的需求？
图1
A：可以使用下面的自定义函数来获得分类轴的类别名：
‘获取指定图表中指定系列上某数据点类别名
‘参数cht:代表图表
‘参数lSeriesNum:代表图表中的系列编号
‘参数lPointNum:代表系列中的数据点编号
Function GetCategoryLabel(cht As Chart, _
lSeriesNum As Long, _
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所示。
0
投稿猜你喜欢
为了保证人与设备、设备与计算机之间正确的信息交换，人们编制的统一信息交换代码是ASCII码表，其全称是“美国信息交换标准代码”。我没有现成的- PowerPoint是微软的三大办公软件之一，是一种演示文稿图形程序，最常见的作用莫过于制作幻灯片了，如果制作多张幻灯片，观看的时候就需要一
- WPS演示怎么给内容添加动画效果操作方法教学。在制作PPT的时候，我们可以在导入的素材上添加一个动画效果，这样在演示文档的时候，素材播放过程
- Win11文件类型怎么改？有时候我们想要打开电脑文件时，却发现文件打不开的情况，出现这一情况有可能是文件损坏，又或者是当前文件的格式不符合打
- 别人的作品看起来就是不错，今天偶然发现他人的幻灯片模板很不错，想借用一下，不过上面有些文字，确实有些别扭，需要将其去除，一时也没有好的方法，
- 抖音网页版创作者服务中心在哪里？很多用户不知道如何在浏览器中打开这个网页。今天为大家带来它的官方地址。在里面用户可以去查看自己的视频数据，对
- 在制作wps文档的时候，怎么删除文档其中的一页呢?对于新手来说不熟悉使用wps怎么办？下面小编就为你介绍wps文字怎样删除一页的方法，希望能
- 操作系统是计算机的灵魂，不仅给我们提供了简单方便的操作界面，还管理着计算机硬件与软件的资源。现在操作系统有很多种类。今天，我就给大家介绍一下
- 下面我们就以图文形式相信的给 大家一个正确的让Word页码从第三页开始显示的设置方法，一定要认真仔细看哦！许多大学生在写毕业论文的时候往往会
- 其实一直以来被我们忽略的某些技巧，有时候非常实用~今天，就来为大家分享几个Word中比较实用的隐藏技巧
- 绝大多数主板都是支持USB-HDD启动的，首先要开启USB启动设备支持，来如果在启动类型中找不到“USBHDD”，那可能是BIOS将你的移动
- 使用过电脑的小伙伴都知道我们桌面右下角的任务栏可以显示时间，但是只能显示小时和分钟等，但是很多的用户们还想要看到现在是多少秒该怎么办呢？下面
- 还在用着128G、256G的SSD？是不是有点落后了？随着固态硬盘的不断发展，现在市面上已经出现了2T，甚至4T的SSD了，并且价格也越来越
- Win11系统是现在很多用户都在使用的电脑操作系统，全新的功能，很多用户还是使用不是很熟练，最近有用户问windows11锁屏快捷键是什么，
- 在Word中无法输入摄氏度，并念叨着说他在学习办公自动化时只学过上标下标，没学过摄氏度的要法，让我们手把手教她，教她在Word中摄氏度符号怎
- 光速输入法消失/不见了解决方法大家想知道吗?下文将告诉大家光速输入法突然不见了的解决方法，是什么原因造成这样的情况呢?请看下文相关介绍及解决
- 穿越火线中的烟雾头道具非常好用，可以通过烟雾都能看清敌人的位置。不过最近有网友反映自己的win7系统上玩游戏时，烟雾头看不清敌人位置，不知道
- Win7系统当中的网络适配器无法启动怎么办？我们平常在使用电脑的时候经常会碰到各种问题，其中就有网络适配器无法启动的问题，但是大部分用户却不
- 电脑的信息安全是非常重要的，如何保障电脑安全呢？这就离不开电脑开机密码了。不过电脑开机密码一般都是数字或字母组成的，看起来一点都不个性。如何
- everything软件搜索不到文件了怎么办？无法搜索全部文件的解决方法是什么样的？最近有很多小伙伴在使用everything软件出现找不到
