| Вопрос: Как изменить цвет одного столбца в гистограмме | Добавлено: 18.10.07 12:21 |
Автор вопроса:  george | ICQ: 301137589 |
|
Возникла такая задача: необходимо изменить цвет лишь одного столбца в гистограмме по определенным критериям. Код как этот столбец выделить приведен ниже
ActiveSheet.ChartObjects("chart 5").Activate
ActiveChart.SeriesCollection(1).Select ActiveSheet.ChartObjects("chart 5").Activate Cells.Range("c14:c19").Find(What:="50/50 micex/micex bonds", LookIn:=xlValues).Select k = ActiveCell.Row - 13 ActiveChart.SeriesCollection(1).Points(k).Select Что делать дальше? Заранее огромное спасибо |
| Ответы | Всего ответов: 5 |
|
Номер ответа: 1 Автор ответа:  george ICQ: 301137589 Вопросов: 18 Ответов: 31 |
Профиль | | #1 | Добавлено: 18.10.07 13:17 |
|
немного не такой код, перепутал малеха
Cells.Range("c14:c19"  .Find(What:="50/50 micex/micex bonds", LookIn:=xlValues).Select
k = ActiveCell.Row - 13 ActiveChart.SeriesCollection(1).Select ActiveSheet.ChartObjects("chart 5" .Activate
ActiveChart.SeriesCollection(1).Points(k).Select |
||
|
Номер ответа: 2 Автор ответа: GenyaA Вопросов: 0 Ответов: 185 |
Web-сайт: Профиль | | #2 | Добавлено: 18.10.07 14:29 |
| Запиши это действие в макрорекордер и смотри код... Там все будет ясно. | ||
|
Номер ответа: 3 Автор ответа: georgeICQ: 301137589 Вопросов: 18 Ответов: 31 |
Профиль | | #3 | Добавлено: 18.10.07 14:36 |
| Макрорекодер не записывает это действие. В том и проблема. Не обращался бы сюда в этом случае | ||
|
Номер ответа: 4 Автор ответа: GenyaAВопросов: 0 Ответов: 185 |
Web-сайт: Профиль | | #4 | Добавлено: 18.10.07 14:46 |
|
Странно... Вот так получится?:
With Selection.Interior
.ColorIndex = 43 .Pattern = xlSolid End With |
||
|
Номер ответа: 5 Автор ответа: georgeICQ: 301137589 Вопросов: 18 Ответов: 31 |
Профиль | | #5 | Добавлено: 18.10.07 15:07 |
| респект тебе, чувак, и уважуха. Ты просто спас меня от жесткого дрочения над диаграммами | ||
Страница: 1 |