Databar Object - Microsoft Office Excel

Version Information
Version Added: Excel

Remarks

All conditional formatting objects are contained within a FormatConditions collection object, which is a child of a Range collection. You can create a data bar formatting rule by using either the Add or AddDatabar method of the FormatConditions collection.

You use the MinPoint and MaxPoint properties of the Databar object to set the values of the shortest bar and longest bar of a range of data. These properites return a ConditionValue object, in which you can specify how the thresholds are evaluated.

Example

The following example creates a range of data and then applies a data bar to the range. You will notice that because there is an extremely low and high value in the range, the middle values have data bars that are of similiar length. To disambiguate the middle values, the sample code uses the ConditionValue object to change how the thresholds are evaluated to percentiles.

Visual Basic for Applications

Visual Basic for Applications
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

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

See also: