Как изменить цвет фигуры в зависимости от значения ячейки

Категория Помощь

Добрый день! ЧТо-то нигде не могу найти ответ. На листе есть разные фигуры. Можно ли сделать так, чтобы в зависимости,например, от того какое значение в ячейки А1 менялся цвет фигуры? Добрый день! ЧТо-то нигде не могу найти ответ. На листе есть разные фигуры. Можно ли сделать так, чтобы в зависимости,например, от того какое значение в ячейки А1 менялся цвет фигуры?

Комментарии  

 
0 #4 anna 27.05.2013 21:37
У нас есть такой файл, карта отделений и в зависимости от значения в ячейках хотелось бы, чтобы цвета кусочков карты (а кусочки карт - это фигуры разные) менялись автоматически, а не перекрашивать их каждый раз к отчету.
Цитировать
 
 
0 #3 dmitrij 19.05.2013 02:24
как нибудь так:
Sub ColorRect()
Dim Sp As Shape
For Each Sp In Shapes
If [a1] > 0 [censored]n
Sp.Fill.ForeCol or.SchemeColor = 17
Else
Sp.Fill.ForeCol or.SchemeColor = 12
End If
Next
End Sub
Цитировать
 
 
0 #2 dmitrij 17.05.2013 09:14
Anna, можно и так, тока если все фигуры на листе охватить, пробегитесь по ним циклом и будет вам счатсье.
Цитировать
 
 
0 #1 anna 15.05.2013 05:10
Похоже,можно так
Sub ColorRect()
Set r = ActiveSheet.Sha pes("Прямоуголь ник1")

If Range("a1").Val ue > 0 [censored]n
r.Fill.ForeColo r.SchemeColor = 17
Else: r.Fill.ForeColo r.SchemeColor = 12
End If
End Sub

Может еще по другому можно, подскажите, если знаете.
Спасибо!
Цитировать
 

Добавить комментарий


Защитный код
Обновить