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>

Свойства

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

Методы

GetEnumerator()

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

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