Answers:
我可以通过首先绘制'值'系列并包含所有点的数据标签来解决它。接下来,将红色系列绘制为第二个'value2'系列,它是'value'系列的一个子集。然后,记录并修改与此类似的小宏,用“注释”标签替换所有“值”标签。这是我的小桌子和图表,以及宏。 (我将图表命名为'myChart'。)希望这有意义!
Sub CustomLabels()
Dim i, myCount
ActiveSheet.ChartObjects("myChart").Activate
myCount = ActiveChart.SeriesCollection(1).Points.Count
For i = 1 To myCount
ActiveChart.SeriesCollection(1).Points(i).DataLabel.Text = Range("C" & i + 1).Value
Next i
End Sub
你可以遵循这个协议:
将主X轴更改为文本类型。 在辅助轴上绘制第二个系列(注释)。 确保注释系列使用C列作为其类别标签。 删除Excel为您添加的任何辅助轴(系列仍将被视为在不同的轴上,但都将使用主要轴)。 使用“类别标签”选项向注释系列添加标签。
我不认为有一种内置的方法来做你想要的,因为数据标签仅限于系列名称X轴值或Y轴值,而不是另一个任意列。
有一个sourceforge项目插件看起来可能会有所帮助: http://xltoolbox.sourceforge.net/annotate.html