VBA 在图表(条形图)上写入值

Question

这是我用来

Dim ejex As String, ejey As String
Dim graficos As String
Worksheets("Sheet1").Activate

ejex = "C" + CStr(cont) + ":" + "C" + CStr(conta)
ejey = "K" + CStr(cont) + ":" + "N" + CStr(conta)

graficos = ejex & "," & ejey

Dim rng As Range
Dim cht As Object

Set rng = ActiveSheet.Range(graficos)
Set cht = ActiveSheet.Shapes.AddChart

cht.Chart.SetSourceData Source:=rng

这是预期的图表


无论如何要在该图的每个条形图上绘制这些值吗？我实际上是在图形上添加带有 excel 的文本框，我想通过宏添加它们，因为图形是自动的，并且每次宏处于事件状态时可能会发生变化。

Answer 1

您需要为每个绘制的系列添加数据标签:

...
cht.Chart.SetSourceData Source:=rng

Dim ser As Series
For Each ser In cht.Chart.FullSeriesCollection
    ser.ApplyDataLabels
Next