Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Generates a three-color color scale in range A1

Sub Add3ColorScale()     With Range("A1:A10")         .FormatConditions.Delete         ' Add the Color Scale as a 3-color scale         .FormatConditions.AddColorScale ColorScaleType:=3         ' Format the first color as light red         .FormatConditions(1).ColorScaleCriteria(1).Type = xlConditionValuePercent         .FormatConditions(1).ColorScaleCriteria(1).Value = 3         .FormatConditions(1).ColorScaleCriteria(1).FormatColor.Color = RGB(255, 0, 0)         .FormatConditions(1).ColorScaleCriteria(1).FormatColor.TintAndShade = 0.25         ' Format the second color as green at 50%         .FormatConditions(1).ColorScaleCriteria(2).Type = xlConditionValuePercent         .FormatConditions(1).ColorScaleCriteria(2).Value = 5         .FormatConditions(1).ColorScaleCriteria(2).FormatColor.Color = RGB(0, 255, 0)         .FormatConditions(1).ColorScaleCriteria(2).FormatColor.TintAndShade = 0         ' Format the third color as dark blue         .FormatConditions(1).ColorScaleCriteria(3).Type = xlConditionValuePercent         .FormatConditions(1).ColorScaleCriteria(3).Value = 8         .FormatConditions(1).ColorScaleCriteria(3).FormatColor.Color = RGB(0, 0, 255)         .FormatConditions(1).ColorScaleCriteria(3).FormatColor.TintAndShade = -0.25     End With End Sub