循环访问数据标签，选择下一行

Question

当前参数适用于第一个条形图：

 ActiveChart.SeriesCollection(1).ApplyDataLabels
 ActiveChart.FullSeriesCollection(1).DataLabels.Select
 ActiveChart.SeriesCollection(1).DataLabels.Format.TextFrame2.TextRange. _
    InsertChartField msoChartFieldRange, "='Percent of Total Change'!$E$4", 0

其中＆＃34; =＆＃39;总变化的百分比＆＃39;！$ E $ 4＆＃34;是标签所在的工作表位置和单元格。注意：默认标签是一个值，我想根据选定的单元格/范围选择我的值。

当我想循环标签时出现问题，E4 + n {其中n = 1到19} 对于.Values代码，我使用过：

  .Values = Range("='Percent of Total Change'!$D$3").Offset(n, 0)

但是VBA不允许我对标签使用这个偏移量。

我也试图使用Cell（4 + n，5）循环。