Изменение цвета диаграммы (vba)

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Изменение цвета диаграммы (vba) (Формулы/Formulas)

bar171

Дата: Вторник, 17.02.2015, 20:18 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 6

Репутация: 0 ±

Замечаний: 20% ±

Excel 2010

Добрый вечер, уважаемые форумчане!

Наткнулся на задачку которая вроде бы несложная, но при этом вызывает у меня затруднения, суть в следующем:
Имею исходные, далее создаю сводную таблицу, после чего создаю диаграмму на основе сводной ...

Хочу изменить цвет на диаграмме: каждому столбцу свой цвет. Реализовал следующим образом (пример прикрепил),
но данные будут меняться а значит и расположение животных тоже(сейчас Зубр на первом месте, после изменения может быть на 5), значит
придется сравнивать все строки и присваивать каждому животному свой цвет ... может быть есть другой способ, более изящный?

К сообщению приложен файл: Example1.xlsm (25.2 Kb)

Ответить

_Boroda_

Дата: Вторник, 17.02.2015, 21:07 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 16911

Репутация: 6616 ±

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Тау нужно? Файл _1
[vba]

Код

Sub Кнопка2_Щелчок()
With ThisWorkbook.Worksheets("Сводная")
     .ChartObjects("Диаграмма 1").Activate
     a1_ = "Зубр"
     b1_ = RGB(0, 300, 0)
     n1_ = WorksheetFunction.Match(a1_, Range("A4:A999"), 0)
     ActiveChart.SeriesCollection(1).Points(n1_).Format.Fill.ForeColor.RGB = b1_
End With
End Sub

[/vba]
Или поменяйте вид отображения и заранее раскрасьте зубра вручную. Файл _2

К сообщению приложен файл: 65894257_1.xlsm (26.5 Kb) · 65894257_2.xlsm (25.2 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

Изменение цвета диаграммы (vba) (Формулы/Formulas)

Страница 1 из 1
1