Ряды в диаграмме

[maxic]

Доброго времени суток.
Возникла необходимость сделать макрос на автоматическое приведение диаграммы к определенному виду (изменить типы рядов, их цвета, надписи на диаграмме и т.п.) Сама диаграмма строится на основе сводной таблицы.

Макрос я вроде сделала, но! При возникновении внештатной ситуации, а именно: если один из рядов не содержит данных (соответственно, если нет линии на диаграмме). Мое творение вываливается в ошибку на ActiveChart.SeriesCollection(…).Sel ect.
Пожалуйста, подскажите, как можно избежать таких «ляпов».
Мне пока что не пришло в голову ничего лучше, чем по ячейкам проверить заполнение ряда и потом обрабатывать его график. Но такое решение, во-первых, в моем случае достаточно трудоемкое, во-вторых, не похоже, что правильное...

Очень надеюсь на Ваше внимание и опыт в решении подобных задач

[EducatedFool]

Вряд ли кто-то Вам сможет помочь без примера файла...
(кстати, поэтому в Вашей предыдущей теме никто так и не ответил)

Выкладывайте файл со своим макросом, и укажите, на какой строке кода вылетает ошибка.
Не забудьте на другом листе для примера создать вручную диаграмму в том виде, в котором Вы желаете её увидеть.

[maxic]

Вряд ли кто-то Вам сможет помочь без примера файла...
(кстати, поэтому в Вашей предыдущей теме никто так и не ответил)

Каюсь, грешна.

Выкладывайте файл

Прикрепила файлик для примера.
В представленном Макросе1 ошибка вылетает на второй строке
(ActiveChart.SeriesCollection(4).Se lect)
если выбрать в поле страницы Контрагент1 и запустить макрос 2 раза.
(Почему именно на втором и последующих запусках я не могу понять)

Не забудьте на другом листе для примера создать вручную диаграмму в том виде, в котором Вы желаете её увидеть.

Извините за наглость, но мне важно понять почему так происходит. Если сейчас пойти путем "решите все мои проблемы", то в скором времени Вам придется решать все мои задачи, а мне высылать Вам свою зарплату

[pivas]

А если вовсе отказаться от второй и четвёртой строки это что-то изменит?

[EducatedFool]

Если отказаться от использования метода Select (а его лучше вообще никогда не использовать, поскольку, чтобы изменить какой-то объект, его вовсе не обязательно выделять), то код начинает работать.

Sub Макрос1()
    ActiveSheet.ChartObjects(1).Activate
    With ActiveChart
        .SeriesCollection(4).ChartType = xlLine
        .SeriesCollection(3).ChartType = xlLine
        
        With .SeriesCollection(2)
            .Border.Weight = xlThin: .Border.LineStyle = xlAutomatic
            .Shadow = False: .InvertIfNegative = False
            .Interior.ColorIndex = 45: .Interior.Pattern = xlSolid
        End With

        With .SeriesCollection(1)
            .Shadow = False: .InvertIfNegative = False
            .Interior.ColorIndex = 50: .Interior.Pattern = xlSolid
        End With
    End With
End Sub

[maxic]

EducatedFool, большое спасибо!
Пойду применять Ваши советы на практике )