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	返回一个 Integer 值，该值指定色阶条件格式规则的条件数。 此为只读属性。
Item[Object]	从ColorScaleCriteria集合中返回单个 ColorScaleCriterion 对象。 此为只读属性。

方法

GetEnumerator()

对象的集合 ColorScaleCriterion ，表示色阶条件格式的所有条件。 每个条件指定了色阶的最小、中点或最大阈值。