Неограниченное изменение цвета градиента

Question

Я работаю над макросом форматирования, который выбирает и форматирует их в соответствии с выбранными значениями в пользовательской форме. Один из этих вариантов создает большую объединенную ячейку с цветовым градиентом от светлого до темно-красного.

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

Если я использую макет формата, чтобы вытащить нечеткую ячейку и протестировать ее в другом месте, новая сломанная/изменяющаяся цветовая схема перемещается вместе с ней. Я включил код, который форматирует объединенную ячейку ниже. Возможно, проблема связана с тем, как я обозначаю цвет интерьера?

With Range(WorkingRange(1, 2), WorkingRange(1, WorkingRange.Count - 1)) 
    .Merge 
    .HorizontalAlignment = xlLeft 
    .WrapText = True 
    .Interior.Pattern = xlPatternLinearGradient 
    .Interior.Gradient.ColorStops.Add(0).Color = 255 
    .Interior.Gradient.ColorStops.Add(0).TintAndShade = 0 
    .Interior.Gradient.ColorStops.Add(1).Color = 130 
    .Font.Bold = True 
End With 

Answer 1

Вы добавляете ColorStop 0 два раза. Второй раз с цветом по умолчанию.

Должно быть

... 
    .Interior.Pattern = xlPatternLinearGradient 
    .Interior.Gradient.ColorStops.Clear 
    With .Interior.Gradient.ColorStops.Add(0) 
    .Color = RGB(255, 0, 0) 
    .TintAndShade = 0 
    End With 
    .Interior.Gradient.ColorStops.Add(1).Color = RGB(130, 0, 0) 
... 

Использование функции RGB сделает его более гибким для использования с различными цветами.