DataBar-Objekt (Excel)

Stellt eine eine Regel zur bedingten Formatierung von Datenbalken dar. Durch das Anwenden eines Datenbalkens auf einen Bereich können Sie den Wert einer Zelle relativ zu anderen Zellen anzeigen.

Bemerkungen

Alle Objekte für die bedingte Formatierung sind in einem FormatConditions-Auflistungsobjekt enthalten, das ein untergeordnetes Objekt einer Range-Auflistung ist. Sie können eine Formatierungsregel für Datenbalken mithilfe der Add- oder AddDataBar-Methoden der FormatConditions-Auflistung erstellen.

Sie verwenden die MinPoint- und MaxPoint-Eigenschaften des DataBar-Objekts, um die Werte des kürzesten und längsten Balkens eines Datenbereichs zu festlegen. Diese Eigenschaften geben ein ConditionValue-Objekt zurück, mit dem Sie angeben können, wie die Schwellenwerte ausgewertet werden.

Das DataBar-Objekt bietet auch Eigenschaften, mit denen Sie eine Achsenlinie angeben können, die angezeigt wird, wenn negative Werte vorhanden sind, und die Farbe und Formatierung von Datenbalken anzugeben.

Beispiel

Im folgenden Beispiel wird ein Datenbereich erstellt und anschließend eine Datenleiste auf den Bereich angewendet. Sie werden feststellen, dass die mittleren Werte datenbalken von ähnlicher Länge sind, da der Bereich extrem niedrig und hoch ist. Um die mittleren Werte deutlicher zu unterscheiden, wird im Beispielcode das ConditionValue-Objekt verwendet, um die Auswertung der Schwellenwerte in Perzentile zu ändern.

Sub CreateDataBarCF() 
 
 Dim cfDataBar As DataBar 
 
 ' Create a range of data with a couple of extreme values 
 With ActiveSheet 
 .Range("D1") = 1 
 .Range("D2") = 45 
 .Range("D3") = 50 
 .Range("D2:D3").AutoFill Destination:=Range("D2:D8") 
 .Range("D9") = 500 
 End With 
 
 Range("D1:D9").Select 
 
 ' Create a data bar with default behavior 
 Set cfDataBar = Selection.FormatConditions.AddDatabar 
 MsgBox "Because of the extreme values, middle data bars are very similar" 
 
 ' The MinPoint and MaxPoint properties return a ConditionValue object 
 ' which you can use to change threshold parameters 
 cfDataBar.MinPoint.Modify newtype:=xlConditionValuePercentile, _ 
 newvalue:=5 
 cfDataBar.MaxPoint.Modify newtype:=xlConditionValuePercentile, _ 
 newvalue:=75 
 
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.