ColorScaleCriteria Schnittstelle

Referenz

Definition

Namespace:: Microsoft.Office.Interop.Excel

Assembly:: Microsoft.Office.Interop.Excel.dll

Wichtig

Einige Informationen beziehen sich auf Vorabversionen, die vor dem Release ggf. grundlegend überarbeitet werden. Microsoft übernimmt hinsichtlich der hier bereitgestellten Informationen keine Gewährleistungen, seien sie ausdrücklich oder konkludent.

Eine Auflistung von ColorScaleCriterion -Objekten, die alle Kriterien für ein bedingtes Farbskalaformat darstellt. Jedes Kriterium gibt den niedrigsten, mittleren und höchsten Schwellenwert für die Farbskala an.

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

Attribute: GuidAttribute InterfaceTypeAttribute

Implementiert: IEnumerable

Beispiele

Im folgenden Codebeispiel wird ein Zahlenbereich erstellt und dann eine Regel zur bedingten Formatierung von Farbskalen mit zwei Farben auf den Bereich angewendet. Die Farbe für den niedrigsten Schwellenwert wird dann auf Rot und die des maximalen Schwellenwerts auf Blau festgelegt, indem ein Index in der ColorScaleCriteria-Auflistung zum Festlegen der einzelnen Kriterien erstellt wird.

<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>

Hinweise

Um die ColorScaleCriteria-Auflistung zurückzugeben, verwenden Sie die ColorScaleCriteria -Eigenschaft des ColorScale -Objekts.

Eigenschaften

_Default[Object]	Für die interne Verwendung reserviert.
Count	Gibt einen Integer-Wert zurück, der die Anzahl der Kriterien für eine Bedingungsformatregel für farbskala angibt. Schreibgeschützt.
Item[Object]	Gibt ein einzelnes ColorScaleCriterion Objekt aus der ColorScaleCriteriaAuflistung zurück. Schreibgeschützt.

Methoden

GetEnumerator()

Gilt für: