Auf Englisch lesen

Freigeben über


ColorScale-Objekt (Excel)

Stellt eine Regel zur bedingten Formatierung einer Farbskala dar.

Hinweise

Alle Objekte der bedingten Formatierung sind in einem FormatConditions-Auflistungsobjekt enthalten, das ein untergeordnetes Element einer Range-Auflistung ist. Sie können eine Farbskalaformatierungsregel erstellen, indem Sie entweder die Add- oder AddColorScale-Methode der FormatConditions-Auflistung verwenden.

Bei Farbskalen handelt es sich um visuelle Hilfen, durch die Sie die Datenverteilung und -streuung leichter erkennen können. Sie können auf einen Datenbereich, Daten in einer Tabelle oder Daten in einem PivotTable-Bericht Skalen mit zwei oder drei Farben anwenden. Bei einer bedingten Formatierung mit zwei Farben weisen Sie den Wert, Typ und die Farbe den niedrigsten und höchsten Schwellenwerten eines Bereichs zu. Eine Farbskala mit drei Farben verfügt außerdem über eine mittlere Schwelle.

Jeder dieser Schwellenwerte wird durch Festlegen der Eigenschaften des ColorScaleCriteria-Objekts bestimmt. Bei dem ColorScaleCriteria-Objekt (einem untergeordneten Element des ColorScale-Objekts) handelt es sich um eine Auflistung aller ColorScaleCriterion-Objekte für die Farbskala.

Beispiel

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.

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

Methoden

Eigenschaften

Siehe auch

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.