隐藏单个图表除 1 之外的所有系列标签答案

【问题标题】：Hide Single Chart All series Labels Except 1隐藏单个图表除 1 之外的所有系列标签
【发布时间】：2021-08-28 08:46:19
【问题描述】：

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

任何帮助将不胜感激。我下面的代码在出现错误的地方并不完美 1Object does not support the property 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

【问题讨论】：

标签： excel vba charts label series

【解决方案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

【讨论】：

这令人印象深刻，谢谢。 @Darrell H