#excel #vba #charts #label #series
Вопрос:
Я пытался создать код VBA, который скрывал бы все метки данных серии и видимую метку данных для одной серии, равной 4.
Любая помощь будет оценена по достоинству. Мой приведенный ниже код не идеален там, где появляется ошибка 1Объект не поддерживает свойство или метод`
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
Ответ №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
Комментарии:
1. Это впечатляет, спасибо. @Даррелл Х