A family of Microsoft spreadsheet software with tools for analyzing, charting, and communicating data.
Christoffer,
The only workaround I found is to draw a rectangle with a thick black frame and no fill over the cell.
.
Make a suggestion to Microsoft, a colored databar looks a nice and useful.
How do I give feedback on Microsoft Office? - Office Support
Andreas.
Sub Test()
Dim Ws As Worksheet
Dim R As Range
Dim Sh As Shape
Set Ws = ActiveSheet
#If Develop Then
'Delete all existing shapes
For Each Sh In Ws.Shapes
If Sh.Type <> msoComment Then Sh.Delete
Next
#End If
For Each R In Range("D1:E37")
Set Sh = Ws.Shapes.AddShape(msoShapeRectangle, R.Left, R.Top, R.Width, R.Height)
With Sh
.Fill.Visible = False 'No fill
With .Line
.Visible = True 'Add frame
.Weight = 3 'Thickness
.ForeColor.RGB = 0 'Color
End With
End With
Next
End Sub