VBA在图表（条形图）上写入值

这是我用来

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在图形上添加文本框，我想通过宏添加它们，因为图形是自动的，并且每次宏处于活动状态时都可能更改。

您需要向每个打印的序列添加数据标签：

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

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