Различная заливка столбцов диаграммы

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Различная заливка столбцов диаграммы (Макросы/Sub)

DimOzerov

Дата: Среда, 24.07.2019, 07:12 | Сообщение № 1

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

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

Сообщений: 68

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

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

Excel 2013

Добрый день.

Подскажите пожалуйста - как решить вопрос с диаграммой.

Есть диаграмма со столбцами (она кажется называется - гистограмма. Размеры столбцов могут быть от 0 до 100. Цвет столбцов - по-умолчанию зеленый.

Как макросом Worksheet_Calculate сделать так, чтобы если один или несколько столбцов диаграммы - ниже 20 - то заливка этих конкретных столбцов становится такого же цвета, как заливка ячейки F2 ?
А если один или несколько столбцов диаграммы - выше 80 - то заливка этих конкретных столбцов - берется из картинки по адресу в ячейке F3

К сообщению приложен файл: 3679271.xls (34.5 Kb)

Ответить

китин

Дата: Среда, 24.07.2019, 07:21 | Сообщение № 2

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

Ранг: Экселист

Сообщений: 7014

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

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

Excel 2007;2010;2016

DimOzerov, Зачем дублировать темы? Дубль удалил

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852

Ответить

DimOzerov

Дата: Среда, 24.07.2019, 07:24 | Сообщение № 3

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

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

Сообщений: 68

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

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

Excel 2013

китин, случайно так получилось.
При первом размещении темы - сайт выдал ошибку.

Ответить

Pelena

Дата: Среда, 24.07.2019, 07:54 | Сообщение № 4

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

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

Сообщений: 19182

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

Замечаний: ±

Excel 365 & Mac Excel

Вариант без макроса

К сообщению приложен файл: 7541591.xls (52.0 Kb)

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

DimOzerov

Дата: Среда, 24.07.2019, 08:32 | Сообщение № 5

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

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

Сообщений: 68

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

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

Excel 2013

Pelena, большое спасибо.
Почему-то не работает.

Цвет из красной ячейки - не воспринимается.
(поменял цвет ячейки - на синий, но на диаграмме он по-прежнему - остался красным. )

Адрес картинки - также не воспринимается. Отображается совсем другая картинка, чем та, которая указана по адресу в ячейке.
На смену адреса картинки - диаграмма также не реагирует.

Ответить

Pelena

Дата: Среда, 24.07.2019, 10:24 | Сообщение № 6

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

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

Сообщений: 19182

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

Замечаний: ±

Excel 365 & Mac Excel

Там вручную сделана заливка, просто сам принцип показала. Можно макрорекодером записать действия

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

DimOzerov

Дата: Среда, 24.07.2019, 11:12 | Сообщение № 7

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

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

Сообщений: 68

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

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

Excel 2013

Pelena, ясно.
Я-то спрашивал про макрос работающий по событию Worksheet_Calculate

Как его макрорекордером записать - не представляю.

Ответить

Pelena

Дата: Среда, 24.07.2019, 11:28 | Сообщение № 8

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

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

Сообщений: 19182

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

Замечаний: ±

Excel 365 & Mac Excel

И да, изменение цвета ячейки не вызывает событие Worksheet_Calculate, отследить не удастся
[vba]

Код

Private Sub Worksheet_Calculate()
    ActiveSheet.ChartObjects("Диаграмма 1").Activate
    With ActiveChart.FullSeriesCollection(2).Format.Fill
        .Visible = msoTrue
        .UserPicture Range("G3").Value
        .TextureTile = msoFalse
    End With
    With ActiveChart.FullSeriesCollection(1).Format.Fill
        .Visible = msoTrue
        .ForeColor.RGB = Range("G2").Interior.Color
        .Solid
    End With
End Sub

[/vba]