PPT VBA中的SeriesCollection数组大小

Question

我正在尝试在条形图中为我的所有系列添加数据标签，但系列的数量因图表而异，因为这是一个用于许多图表的函数。所以，我使用For Loop来添加它们，但我需要确定SeriesCollection数组的大小。是否会有这样的功能？当我尝试使用.Size时，它会给我一个错误。

以下是我的尝试：

With Chart
    For i = 1 To .SeriesCollection.Size
    .SeriesCollection(i).Points(i).HasDataLabel = True
    Next i
End With

Answer 1

Chart对象模型中的一些内容未正确连接到Intellisense。当您输入.SeriesCollection时，您会注意到没有任何建议。

我认为，

.SeriesCollection.Count会为您提供您所追求的目标。