如何用vba修改图表系列数据点的数据标签内容？ |
您所在的位置：网站首页 › ppt图表坐标名称无法修改 › 如何用vba修改图表系列数据点的数据标签内容？ |
如何用vba修改图表系列数据点的数据标签内容？
|
如何用vba修改图表系列数据点的数据标签内容？
2018年9月5日
作者：水星Excel
12,866 次浏览
暂无评论
如下图所示：
图表的数据标签可以显示为系列名称、类别名称、值，还可以是单元格中的值。 如果只显示系列名称、类别名称、值，数据标签内容的先后顺序一定是系列名称+类别名称+值，这个先后顺序是无法通过操作改变的。 但是，在vba中我们可以通过设置DataLabel对象的Text属性把数据标签的内容修改为任意的内容，比如将上图中的数据标签的内容修改为类别名称+系列名称+值的先后顺序形式。 代码如下： Sub QQ1722187970() Dim oWK As Worksheet Set oWK = Excel.ActiveSheet '内嵌在工作表的图表对象 Dim oChartObject As ChartObject Set oChartObject = oWK.ChartObjects(1) '图表对象 Dim oChart As Chart Set oChart = oChartObject.Chart '图表系列对象 Dim oSeries As Series '图表坐标轴对象 Dim oAxis As Axis '图表坐标轴集合对象 Dim oAxes As Axes '图表数据点对象 Dim oPoint As Point '图表数据点集合对象 Dim oPoints As Points Dim oDataLabel As DataLabel With oChart '隐藏图表中的所有数据标签 .ApplyDataLabels xlDataLabelsShowNone '第一个图表系列 Set oSeries = .SeriesCollection(1) With oSeries '系列名称 sName = .Name '分类名称 arrx = .XValues '值 arrY = .Values '显示整个系列的数据标签 .HasDataLabels = True Set oPoints = .Points For i = 1 To oPoints.Count '构造数据标签的文本内容 sText = arrx(i) & Chr(10) & sName & Chr(10) & arrY(i) Set oPoint = oPoints(i) With oPoint '设置数据标签的文本内容 .DataLabel.Text = sText End With Next i End With End With End Sub运行代码后，图表中的数据标签内容变成了如下图所示：
总结：通过DataLabel对象的Text属性可以将图表系列的数据标签的内容修改为任意的形式和内容。
其它相关文章推荐：如何用vba添加显示或删除隐藏图表的数据标签DataLabel？如何用vba设置图表系列数据点的数据标记的类型和大小？如何用vba设置图表的坐标轴的刻度线类型和刻度线标签的位置？如何用vba访问操作图表系列的数据点（Point）对象？如何用vba更改excel图表的类型？如何用vba返回或设置图表系列的X轴值、Y轴值、气泡大小值？ 分类 : VBA , 图表、图形 标签 : DataLabel , 值 , 数据标签 , 数据点 , 类别名称 , 系列名称 声明: 本站文章均属原创，未经作者同意必须保留此段声明，且在文章页面明显位置给出原文链接，否则视为侵权。如果想要每天都收到本站的技术文章推送，可以微信搜索公众号：水星Excel或者Excel_Office关注。其它事宜请加QQ：1722187970 或微信号：xycgenius 联系。 |
【本文地址】
今日新闻 |
推荐新闻 |