Добрый вечер!
Имеется скрипт, который в Гистограмме (сводной) добавляет подписи данных.
Он небольшой, выполняется быстро и более 10 значений в гистограмме не бывает, но всё же хотелось бы узнать,
что можно написать в скобках, чтоб не повторять по две строки для каждого значения, а записать всё в одну.
Можно ли воспользоваться For each? Если да, то подскажите, пожалуйста, как правильно записать?
Имеется скрипт, который в Гистограмме (сводной) добавляет подписи данных.
Он небольшой, выполняется быстро и более 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
|
