如何取得图表系列上面的值

rfb0204421 · 发表于 2011-4-7 11:57

各位大虾，如何取得图表中系列上面每一个值。如附件，领导要求百分比少于95%的标为红色，现在我的问题是如何用VBA取得上面的百分比值，然后进行判断，标色的程序我知道。

rfb0204421 · 发表于 2011-4-7 11:59

if ActiveChart.SeriesCollection(1).DataLabels(1)......后面不知道怎么写

rfb0204421 · 发表于 2011-4-7 14:00

自己頂下，期待高人

rfb0204421 · 发表于 2011-4-7 14:41

我頂，我再頂，不能沉了

rfb0204421 · 发表于 2011-4-7 15:07

rfb0204421 · 发表于 2011-4-7 16:18

jiulongpo · 发表于 2011-4-7 16:46

Dim Mych As ChartObject    '声明变量为嵌入式图表对象
Set Mych = ActiveSheet.ChartObjects("Chart 1")    '设置对象

For Each bq In Mych.Chart.SeriesCollection(1).DataLabels    '在系列1的所有标签中循环
If Val(bq.Text) < 95 Then bq.Font.ColorIndex = 3    '标签文本转换,小于95的设置字体为红色
Next

[ 本帖最后由 jiulongpo 于 2011-4-7 16:49 编辑 ]

ning84 · 发表于 2023-2-1 20:00

jiulongpo 发表于 2011-4-7 16:46
Dim Mych As ChartObject '声明变量为嵌入式图表对象
Set Mych = ActiveSheet.ChartObjects("Chart 1" ...

For Each bq In Mych.Chart.SeriesCollection(1).DataLabels '在系列1的所有标签中循环

Next
在Excel的Chart可行。在Excel Graph就不行了。

DataLabels 集合 (Excel Graph) | Microsoft Learn https://learn.microsoft.com/zh-cn/office/vba/api/excel.datalabels(collection)
解决办法是

With myChart.SeriesCollection(1)
.HasDataLabels = True
.DataLabels.NumberFormat = "##.##"
End With

		自动登录	找回密码
密码			免费注册

[求助] 如何取得图表系列上面的值