2.7.Построение диаграмм
2.7.5. Задание цветов серий


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


 Sub Цвет()
ActiveSheet.ChartObjects(1).Activate
With ActiveChart
.SeriesCollection(1).Interior.Color = Range("b1").Interior.Color
.SeriesCollection(2).Interior.Color = Range("c1").Interior.Color
End With
End Sub






  
ПОИСК
МОЯ КНОПКА
Контакты
МБОУ "Лицей им.Атякшева"

628260 г. Югорск, ул. Ленина 24,
ХМАО-Югра, Тюменская область
Телефон: 8 (34675)2-48-30
Факс: 8 (34675)2-48-30



89222596815 nady_er@mail.ru
Карта
sample map