Adding DataBar with VBA, minimum and maximum to automatic

[Jaymond Flurrie]

First time trying Conditional Formatting with VBA.

I need a DataBar that is similar to manually adding one and in the Edit Formatting Rule dialog "Format all cells based on their values" in the "Edit Rule Description" has in the "Minimum" and "Maximum" as type "Automatic".

I know this all the way to adding the DataBar with Lowest Value and Highest Value in the Type.

Like:

Private Sub cf()

    Dim target As Range
    Set target = Range("C3:S3")
    
    target.FormatConditions.Delete
    Dim db As Databar
    Set db = target.FormatConditions.AddDatabar
'    With db
'
'    End With
End Sub

My guess is that it is some property that needs to be set in the With-block, but what?

 

[Jaymond Flurrie]

Ok, got it (feel free to improve this):

Private Sub adddatabar()

    Dim target As Range
    Set target = Range("C3:S3")
    
    target.FormatConditions.Delete
    target.FormatConditions.AddDatabar
    target.FormatConditions(target.FormatConditions.Count).ShowValue = True
    target.FormatConditions(target.FormatConditions.Count).SetFirstPriority
    
    With target.FormatConditions(1)
        .MinPoint.Modify newtype:=xlConditionValueAutomaticMin
        .MaxPoint.Modify newtype:=xlConditionValueAutomaticMax
    End With
End Sub