Karataev,нет, работает только с гистограммами. линейные графики не меняет.
Я так понимаю что в строке lr = Columns("Q") идет отсыл только к такому типу диаграмм xlColumnStacked100, поэтому в обычных графиках xlLine цвета остаются неизменными
upd. вру. просто в конце надо добавить srs.Format.Line.ForeColor.RGB = cl.Item(srs.Name), для этого типа

Юрий М, логично! ))
Если кому то пригодится, графики не отрабатывает, в тридцати гистограммах которые есть на листе цвета изменило на ура  

Karataev, спасибо Вам огромное! Опять выручаете.
Подскажите, на будущее, он работает со всеми типами диаграмм (график, гистограмма и т.д.), или только с гистограммами?  

Приходится опять возвращаться к этой теме, извините неумеху ))
В варианте ув.Karataev, все отлично работает для одной диаграммы. А как быть если на листе множество исходных таблиц, соответственно с кучей диаграмм(примерно около 50ти), которые собираются с других листов, и соответственно порядок во всех них меняется? Пробовал в предложенный макрос подставить
  Set chrt = ActiveSheet.ChartObjects(1).Chart
  Set chrt = ActiveSheet.ChartObjects(2).Chart
  Set chrt = ActiveSheet.ChartObjects(3).Chart и т.д., но цвета диаграмм менять не хочет? Кто может подсказать, в чем секрет?

Karataev,Спасибо Вам огромное. Работает отлично!

Добрый день, уважаемые форумчане.
Имеется проблема, прошу Вашей помощи. Есть таблица с данными (Табл1 примера), на ее основе построена диаграмма. Каждому полю в диаграмме присвоен свой цвет. На следующий месяц порядок этих данных меняется (Табл2 примера), и при подстановке в поле данных диаграммы цвета съезжают. Есть ли возможность закрепить за каждым наименованием поля свой уникальный цвет? Заранее благодарю за ответы.

Всем спасибо за участие! МВТ, Ваша формула работает. Еще раз огромное спасибо!

Доброго времени суток, уважаемые форумчане.
Есть вопрос. Имеется табличка в ячейках A:E. Так же имеется ценовая категория для каждой подгруппы продуктов. Как, отталкиваясь от средней цены продукта, подтянуть к нему наименование соответствующей ценовой категории (столбец М) ?
Заранее спасибо за помощь!

JayBhagavan, Спасибо огромное! Отлично работает!

Добрый день уважаемые форумчане. Не могу решить такую проблему:
Есть показатели продаж определенного товара. Необходимо отранжировать товар, в порядке убывания, по кол-ву продаж. Но, при одинаковых значениях количества, должен учитываться дополнительный критерий объема выручки. Пример во вложении. Заранее благодарю!