RincewindWIZZ
Board Regular
- Joined
- Feb 22, 2005
- Messages
- 81
I have a scrollbar whose values will be between 0 and 5
I would like to illustrate the value by having the background to the slider change colour - effectively 'fill up'
There seems no default way to do this
So I was going to make the slider cover 5 cells and set a conditional format for each cell to change colour.
But I cant find a way to make the background of the slider transparent
I've borrowed some code as follows
And somewhere else it suggested that there was a .Transparent property . . . but there isn't
So please how do I make the backcolor transparent?
TFAI
I would like to illustrate the value by having the background to the slider change colour - effectively 'fill up'
There seems no default way to do this
So I was going to make the slider cover 5 cells and set a conditional format for each cell to change colour.
But I cant find a way to make the background of the slider transparent
I've borrowed some code as follows
Code:
Sub CtrlTollbx_Scrollbar()
Dim oScr As MSForms.ScrollBar
Dim objControl As Object
Set objControl = Worksheets(1).Shapes("ScrollBar1").OLEFormat.Object
Set oScr = objControl.Object
oScr.Max = 5
MsgBox "Minimum: " & oScr.Min ' Max value is changed.
oScr.BackColor = 16777215 'I found a post suggesting this made it transparent but it doesn't
Set oScr = Nothing
Set objControl = Nothing
End Sub
And somewhere else it suggested that there was a .Transparent property . . . but there isn't
So please how do I make the backcolor transparent?
TFAI