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

ColorScaleCriteria Интерфейс

  • Ссылка

Определение

Пространство имен:
Microsoft.Office.Interop.Excel
Сборка:
Microsoft.Office.Interop.Excel.dll

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

public interface class ColorScaleCriteria : System::Collections::IEnumerable
[System.Runtime.InteropServices.Guid("00024494-0000-0000-C000-000000000046")]
[System.Runtime.InteropServices.InterfaceType(2)]
public interface ColorScaleCriteria : System.Collections.IEnumerable
Public Interface ColorScaleCriteria
Implements IEnumerable
Атрибуты
GuidAttribute InterfaceTypeAttribute
Реализации
IEnumerable

Примеры

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

<span class="label">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.</span>
<i>ColorScaleCriteria(1)</i>
<span class="label">.FormatColor.Color = RGB(255, 0, 0)     cfColorScale.</span>
<i>ColorScaleCriteria(2)</i>
<span class="label">.FormatColor.Color = RGB(0, 0, 255)          End Sub </span>

Комментарии

Чтобы вернуть коллекцию ColorScaleCriteria , используйте ColorScaleCriteria свойство ColorScale объекта .

Свойства

_Default[Object]

Зарезервировано для внутреннего использования.
Count

Возвращает целочисленное значение, указывающее количество условий для правила условного формата цветовой шкалы. Только для чтения.
Item[Object]

Возвращает один ColorScaleCriterion объект из ColorScaleCriteriaколлекции. Только для чтения.

Методы

GetEnumerator()

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

Применяется к