Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Закрепление цвета диаграммы
 
#1
14.08.2015 11:44:23
Добрый день, уважаемые форумчане.
Имеется проблема, прошу Вашей помощи. Есть таблица с данными (Табл1 примера), на ее основе построена диаграмма. Каждому полю в диаграмме присвоен свой цвет. На следующий месяц порядок этих данных меняется (Табл2 примера), и при подстановке в поле данных диаграммы цвета съезжают. Есть ли возможность закрепить за каждым наименованием поля свой уникальный цвет? Заранее благодарю за ответы.
 
 
 
#2
14.08.2015 17:20:42
Реализация с помощью макроса.
В столбце Q название серии, в столбце R цвет для серии.
После того, как выберите новые данные для диаграммы, запустите макрос (кликните кнопку в столбце N).
 
 
 
#3
14.08.2015 18:18:20
Karataev,Спасибо Вам огромное. Работает отлично!
 
 
 
#4
19.08.2015 12:18:05
Приходится опять возвращаться к этой теме, извините неумеху ))
В варианте ув.Karataev, все отлично работает для одной диаграммы. А как быть если на листе множество исходных таблиц, соответственно с кучей диаграмм(примерно около 50ти), которые собираются с других листов, и соответственно порядок во всех них меняется? Пробовал в предложенный макрос подставить
  Set chrt = ActiveSheet.ChartObjects(1).Chart
  Set chrt = ActiveSheet.ChartObjects(2).Chart
  Set chrt = ActiveSheet.ChartObjects(3).Chart и т.д., но цвета диаграмм менять не хочет? Кто может подсказать, в чем секрет?
 
 
 
#5
19.08.2015 16:33:11
Протестируйте. Макрос работает со всеми диаграммами, которые есть на активном листе, а не только с последней вставленной.
 
 
 
#6
20.08.2015 12:04:47
Karataev, спасибо Вам огромное! Опять выручаете.
Подскажите, на будущее, он работает со всеми типами диаграмм (график, гистограмма и т.д.), или только с гистограммами?  
 
 
 
#7
20.08.2015 12:23:28
А проверить самостоятельно нет возможности? )
 
 
 
#8
20.08.2015 12:27:03
Юрий М, логично! ))
Если кому то пригодится, графики не отрабатывает, в тридцати гистограммах которые есть на листе цвета изменило на ура  :)
 
 
 
#9
20.08.2015 13:14:42
Цитата
premium85 написал:
Подскажите, на будущее, он работает со всеми типами диаграмм (график, гистограмма и т.д.), или только с гистограммами?
макрос из поста 5 работает со всеми видами диаграмм. Если нужно, чтобы работал только с гистограммами, то нужно изменить макрос.
 
 
 
#10
20.08.2015 13:23:19
Karataev,нет, работает только с гистограммами. линейные графики не меняет.
Я так понимаю что в строке lr = Columns("Q") идет отсыл только к такому типу диаграмм xlColumnStacked100, поэтому в обычных графиках xlLine цвета остаются неизменными
upd. вру. просто в конце надо добавить srs.Format.Line.ForeColor.RGB = cl.Item(srs.Name), для этого типа
Изменено: premium85 - 20.08.2015 13:47:45
 
 
 
#11
20.08.2015 13:52:37
premium85, вот так надо, если есть гистограммы и графики:
макрос
 
 
 
#12
03.12.2020 20:31:12
Добрый день, уважаемые форумчане.
Битый час пытаюсь понять как исправить этот макрос для работы с круговой диаграммой и не получается.
Помогите пжл )
 
 
 
Страницы: 1
Читают тему
Наверх