Слетает цвет столбцов гистограммы

Старая форма входа

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

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Слетает цвет столбцов гистограммы (Графики и диаграммы/Charts)

denstyle

Дата: Четверг, 11.05.2017, 16:39 | Сообщение № 1

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

Ранг: Участник

Сообщений: 56

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

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

Excel 2010

Здравствуйте! Построил динамическую комбинированную гистограмму (счетчик, и полоса прокрутки) и столкнулся с такой бедой, при увеличение/уменьшении количества столбцов на гистограмме нет-нет слетает цвет, настраиваю снова, пару столбцов добавляю/убавляю и опять слет, в чем проблема?

С уважнием, Денис.

Ответить

_Boroda_

Дата: Четверг, 11.05.2017, 16:53 | Сообщение № 2

Группа: Модераторы

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

Сообщений: 16675

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

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

2003; 2007; 2010; 2013 RUS

Нужно смотреть файл. Смотря как Вы добавляете-убавляете столбцы.
У Вас цвета вручную поставлены или автопокраска? Если автопокраска и Вы убиваете столбцы в середине, то те столбцы, что правее убитых, должны поменять цвет. Это если Вы их реально убиваете, а не скрываете. Короче, смотреть нужно

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

Ответить

denstyle

Дата: Четверг, 11.05.2017, 17:03 | Сообщение № 3

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

Ранг: Участник

Сообщений: 56

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

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

Excel 2010

_Boroda_, цвета в ручную поставлены,

С уважнием, Денис.

Ответить

sboy

Дата: Четверг, 11.05.2017, 17:30 | Сообщение № 4

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2566

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

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

Excel 2010

Добрый день.
Можно красить макросом, есть тупенький-простенький пример, если не сможете его адаптировать, приложите свой файл
[vba]

Код

Sub Цвета()
For Each sh In ActiveWorkbook.Sheets
If Not sh.ChartObjects.Count = Empty Then
sh.ChartObjects(1).Activate
With ActiveChart
q = .SeriesCollection.Count
        For x = 1 To 6
        If x = 1 Then c = RGB(130, 56, 123)
        If x = 2 Then c = RGB(255, 192, 0)
        If x = 3 Then c = RGB(0, 176, 80)
        If x = 4 Then c = RGB(255, 42, 0)
        If x = 5 Then c = RGB(0, 119, 192)
        If x = 6 Then c = RGB(255, 255, 0)
        .SeriesCollection(q).Interior.Color = c
        q = q - 1
        Next x

.Legend.Width = 73
'.Legend.Left = 281
.PlotArea.Width = 221.664
.Axes(xlValue).MajorGridlines.Delete
.ChartArea.Interior.Pattern = xlNone
.ChartArea.Border.LineStyle = xlNone

End With
End If
Next sh
End Sub

[/vba]