Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
VBA. Как с помощью команды ActiveChart.SeriesCollection выбрать все значения?
 
Добрый вечер!

Имеется скрипт, который в Гистограмме (сводной) добавляет подписи данных.
Он небольшой, выполняется быстро и более 10 значений в гистограмме не бывает, но всё же хотелось бы узнать,
что можно написать в скобках, чтоб не повторять по две строки для каждого значения, а записать всё в одну.

Можно ли воспользоваться For each? Если да, то подскажите, пожалуйста, как правильно записать?
Код
ActiveSheet.ChartObjects("Диаграмма 6").Activate
    ActiveChart.SeriesCollection(1).Select
    ActiveChart.SeriesCollection(1).ApplyDataLabels
        ActiveChart.SeriesCollection(2).Select
    ActiveChart.SeriesCollection(2).ApplyDataLabels
        ActiveChart.SeriesCollection(3).Select
    ActiveChart.SeriesCollection(3).ApplyDataLabels
        ActiveChart.SeriesCollection(4).Select
    ActiveChart.SeriesCollection(4).ApplyDataLabels
        ActiveChart.SeriesCollection(5).Select
    ActiveChart.SeriesCollection(5).ApplyDataLabels
        ActiveChart.SeriesCollection(6).Select
    ActiveChart.SeriesCollection(6).ApplyDataLabels
        ActiveChart.SeriesCollection(7).Select
    ActiveChart.SeriesCollection(7).ApplyDataLabels
           ActiveChart.SeriesCollection(.Select
    ActiveChart.SeriesCollection(.ApplyDataLabels
           ActiveChart.SeriesCollection(9).Select
    ActiveChart.SeriesCollection(9).ApplyDataLabels
           ActiveChart.SeriesCollection(10).Select
    ActiveChart.SeriesCollection(10).ApplyDataLabels
 
Ко всем рядам сразу
Код
ActiveSheet.ChartObjects("Диаграмма 6").chart.ApplyDataLabels
 
Казанский,Спасибо!)
Страницы: 1
Читают тему (гостей: 1)
Наверх