FullSeriesCollection生成＆＃34;编译错误：未找到方法或数据成员＆＃34;在Excel 2010中

Question

我创建了一个宏，它将数据标签添加到我的数据透视表中的两个系列。

Sub Data_Labels_On_Pivot2()
'
' Data_Labels_On_Pivot2 Macro
'

'
    ActiveSheet.Unprotect
    ActiveSheet.ChartObjects("Chart 14").Activate
    ActiveChart.SetElement (msoElementDataLabelCenter)
    ActiveSheet.ChartObjects("Chart 14").Activate
    ActiveChart.FullSeriesCollection(1).DataLabels.Select
    Selection.Position = xlLabelPositionOutsideEnd
    Application.CommandBars("Format Object").Visible = False
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

这适用于运行Excel 2013的计算机。

使用Excel 2010 .FullSeriesCollection(1)生成错误：

  

＆＃34;编译错误：未找到方法或数据成员＆＃34;

我用Google搜索了这个主题但无法找到任何内容。我确实在今年早些时候从Windows更新中遇到过ActiveX问题，并且无法在运行我正在测试的Excel 2010的计算机上找到任何.exd文件。

Answer 1

FullSeriesCollection是added in Excel 2013。它不是早期版本中的有效属性。

将FullSeriesCollection替换为SeriesCollection，这在Excel 2010中有效。

以Siddharth Rout发布此答案的comment的积分。