隐藏单个图表所有系列标签，除了 1

Question

我一直在尝试创建一个 VBA 代码来隐藏所有系列数据标签和单个系列的可见数据标签，即 4。

如有任何帮助，我们将不胜感激。我下面的代码在出现错误的地方并不完美 1Object does not support the 属性 or method`

With Sheet16
.ChartObjects("Chart 7").Chart.SeriesCollection(4).DataLabels
.ChartObjects("Chart 7").Chart.SeriesCollection(4).DataLabels.Position = xlLabelPositionCenter
.ChartObjects("Chart 7").Chart.SeriesCollection(1).hide
.ChartObjects("Chart 7").Chart.SeriesCollection(2).hide
.ChartObjects("Chart 7").Chart.SeriesCollection(3).hide
End With

Answer 1

Hide 不是不显示项目的通用答案。对于 Series，您使用以下内容：

With Sheet16
.ChartObjects("Chart 7").Chart.SeriesCollection(4).DataLabels
.ChartObjects("Chart 7").Chart.SeriesCollection(4).DataLabels.Position = xlLabelPositionCenter
.ChartObjects("Chart 7").Chart.SeriesCollection(1).HasDataLabels = False
.ChartObjects("Chart 7").Chart.SeriesCollection(2).HasDataLabels = False
.ChartObjects("Chart 7").Chart.SeriesCollection(3).HasDataLabels = False
End With