Question

我根据C＆amp; C列绘制了XY图表。 D值。我想使用B列中的值将数据标签添加到图表中的选定点。我编写了下面的代码，但是Rn-Time错误消息一直弹出......它说“对象'点'的方法'DataLabel'失败”。

Sub AddLabelsToSelected()

Dim Cht As Chart
Dim i, ptcnt, ptindx, rownum As Integer

Set Cht = ActiveSheet.ChartObjects(1).Chart

' Add labels to these many selected points
ptcnt = Range("A1").Value

For i = 1 To ptcnt

ptindx = Cells(i + 29, 1).Value
rownum = Cells(i + 29, 1).Value + 29

    Cht.SeriesCollection(1).Points(ptindx).DataLabel.Text = _
      ActiveSheet.Cells(rownum, 2).Value
Next i

End Sub

提前致谢！

Answer 1

ptindx正在成为Points（）使用的无效值... 反过来，Points（ptindx）.DataLabels指的是不存在或不能与datalabel相关联的东西。

或许，您可能必须首先看到数据标签。即.Points(ptindx).HasDataLabel = TRUE

Excel XY图表：VBA将数据标签添加到动态选定点

1 个答案: