Question

我在Excel上工作，我并不熟悉分配给图表的宏。基本上我有几张图表。我需要这些图表中的每一个都有与另一个名为“Data_SC”的电子表格中的数据相对应的标签。例如，我会：

Graph1： Label_1 = Data_SC！A1; Label_2 = Data_SC！A2 ...

Graph2： Label_1 = Data_SC！B1; Label_2 = Data_SC！B2 ......

我尝试仅针对每个图表的第一个标签执行此操作，但我收到错误“类型：不匹配”。这是我的代码： Sub Refresh_Labels（）

Dim cht As ChartObjects

For Each cht In Sheets("Sheet1").ChartObjects
    cht.SeriesCollection(1).Points(1).HasDataLabels = True
    cht.SeriesCollection(1).Points(1).DataLabel(1).Text =   Sheets("Data_SC").Range(A1)
Next cht

End Sub

你能帮帮我吗？

Answer 1

这应该有效：

Sub Refresh_Labels()
Dim cht As ChartObject

For Each cht In Sheets("Sheet1").ChartObjects
    cht.Chart.SeriesCollection(1).Points(1).HasDataLabel = True
    cht.Chart.SeriesCollection(1).Points(1).DataLabel.Text = Sheets("Data_SC").Range("A1")
Next cht

End Sub

Excel的宏以刷新标签图表

1 个答案: