Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
С помощью макроса сменить заливку точки-маркера в графике
 
#1
03.04.2022 20:12:57
Здравствуйте. Есть точечная диаграмма.

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

Т.е. в приложенном изображении диаграмма строятся по столбцу S и T, а цвет заливки берется из столбца Q.

Также желательно, чтобы в коде макроса можно было поменять диапазон значений залитых ячеек.
Изменено: Кирилл Иржевский - 03.04.2022 20:14:25
 
 
 
#2
03.04.2022 20:53:16
Цитата
Кирилл Иржевский написал:
Необходимо с помощью макроса изменить заливку маркёра в соответствии с заливкой ряда ячеек, которые не участвуют в построении диаграммы.
Это как? Тех что нет на диаграмме заливать?
Я заливку делал так. К заливке ячеек не привязывался, впрочем там поправить всего ничего.

Код
Public Sub color_graph() 
    ActiveSheet.ChartObjects("Диаграмма 1").Activate 
    For Each icell In [C2:C102] 
        ActiveChart.FullSeriesCollection(1).Points(icell.Row - 1).Select 
        Selection.Format.Fill.ForeColor.RGB = RGB(255, 255, 255) 
If icell.Value = 0 Then Selection.Format.Fill.ForeColor.RGB = RGB(0, 255, 0) 
If icell.Value = 1 Then Selection.Format.Fill.ForeColor.RGB = RGB(0, 0, 255) 
If icell.Value = 2 Then Selection.Format.Fill.ForeColor.RGB = RGB(255, 0, 0)     
    Next 
End Sub

где
[C2:C102] - столбец указаний о заливке. Число точек равно числу маркеров графика.
Диаграмма 1 - название диаграммы, которую требуется обработать.
Изменено: tutochkin - 03.04.2022 20:55:42
 
 
 
#3
03.04.2022 20:57:20
Цитата
написал:
К заливке ячеек не привязывался, впрочем там поправить всего ничего.
Если не сложно, можете этот код написать, пожалуйста?
 
 
 
#4
03.04.2022 21:00:33
Цитата
Кирилл Иржевский написал:
Если не сложно, можете этот код написать, пожалуйста?
Давайте файл пример - посмотрим.
 
 
 
#5
03.04.2022 21:08:44
Цитата
написал:
Давайте файл пример - посмотрим.
Ну вот, что-то типо такого
 
 
 
#6
03.04.2022 21:16:32
, не растягивайте сообщение, разбавляя его пустыми строками.
 
 
 
#7
03.04.2022 21:35:08
Цитата
Кирилл Иржевский написал:
Ну вот, что-то типо такого
Код
Public Sub color_graph()
    ActiveSheet.ChartObjects("Диаграмма 1").Activate
    For Each icell In [A2:A24]
        ActiveChart.FullSeriesCollection(1).Points(icell.Row - 1).Select
        Selection.Format.Fill.ForeColor.RGB = icell.DisplayFormat.Interior.Color
    Next
End Sub
 
 
 
#8
03.04.2022 21:36:00
Цитата
написал:
1234567Public Sub color_graph()    ActiveSheet.ChartObjects("Диаграмма 1").Activate    For Each icell In [A2:A24]        ActiveChart.FullSeriesCollection(1).Points(icell.Row - 1).Select        Selection.Format.Fill.ForeColor.RGB = icell.DisplayFormat.Interior.Color    NextEnd Sub
А что за что здесь отвечает? Просто мне нужно этот макрос много раз использовать для разных данных
 
 
 
#9
03.04.2022 21:38:17
Цитата
Кирилл Иржевский написал:
А что за что здесь отвечает? Просто мне нужно этот макрос много раз использовать для разных данных
Цитата
tutochkin написал:
[C2:C102] - столбец указаний о заливке. Число точек равно числу маркеров графика.
Диаграмма 1 - название диаграммы, которую требуется обработать.
Изменено: tutochkin - 03.04.2022 21:38:35
 
 
 
#10
03.04.2022 21:38:50
Цитата
написал:
tutochkin  написал:[C2:C102]  - столбец указаний о заливке. Число точек равно числу маркеров графика.Диаграмма 1 - название диаграммы, которую требуется обработать.
Понял, спасибо огромное!
 
 
 
#11
03.04.2022 21:51:27
Цитата
написал:
Диаграмма 1 - название диаграммы, которую требуется обработать.
Возникла проблема. Когда ввожу название новой диаграммы, пишет что не может найти её. Нужно же брать название, которое сверху диаграммы?
 
 
 
#12
04.04.2022 10:00:54
Цитата
Кирилл Иржевский написал:
Нужно же брать название, которое сверху диаграммы?

И ещё про сдвиг диапазона не забудьте.
Изменено: tutochkin - 04.04.2022 10:41:23
 
 
 
#13
04.04.2022 17:29:51
tutochkin, Понял, спасибо огромное!
Изменено: Кирилл Иржевский - 04.04.2022 17:30:29
 
 
 
Страницы: 1
Наверх