Объект ColorScaleCriterion (Excel)

Статья
04/07/2023

Представляет критерии минимального, среднего или максимального порогового значения для условного формата цветового формата.

Замечания

Каждый объект ColorScaleCriterion является частью коллекции ColorScaleCriteria . Используйте ColorScaleCriteria (index), чтобы вернуть отдельное условие.

Вы можете задать тип, значение и formatcolor для каждого порогового значения цветовой шкалы.

Пример

В следующем примере кода создается диапазон чисел, а затем применяется правило условного форматирования двухцветной шкалы к данному диапазону. Цвет для минимального порогового значения затем присваивается красному, а максимальный порог — синему путем индексирования в коллекции ColorScaleCriteria для задания отдельных критериев.

Sub CreateColorScaleCF() 
 
 Dim cfColorScale As ColorScale 
 
 'Fill cells with sample data from 1 to 10 
 With ActiveSheet 
 .Range("C1") = 1 
 .Range("C2") = 2 
 .Range("C1:C2").AutoFill Destination:=Range("C1:C10") 
 End With 
 
 Range("C1:C10").Select 
 
 'Create a two-color ColorScale object for the created sample data range 
 Set cfColorScale = Selection.FormatConditions.AddColorScale(ColorScaleType:=2) 
 
 'Set the minimum threshold to red and maximum threshold to blue 
 cfColorScale.ColorScaleCriteria(1).FormatColor.Color = RGB(255, 0, 0) 
 cfColorScale.ColorScaleCriteria(2).FormatColor.Color = RGB(0, 0, 255) 
 
End Sub

Свойства

См. также

Справочник по объектной модели Excel

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Поделиться через