I'm using the following code for a scroll bar, straight from the help menu.
I need the small change value to be "0.5".
In this instance it does not work.
Any ideas why?
regards
Wayne


Private Sub Workbook_Open()
Set sb = Worksheets(1).Shapes.AddFormControl(xlScrollBar, _
Left:=10, Top:=10, Width:=10, Height:=200)
With sb.ControlFormat
.LinkedCell = "D1"
.Max = 100
.Min = 0
.LargeChange = 10
.SmallChange = 0.5

End With


End Sub

If you check the Object Browser, you can see these properties of are longs,
hence no decimal part.
If you need this, multiply all properies by 10, then divide by 10 before
using the .Value.

NickHK

"PCH" wrote in message
...
I'm using the following code for a scroll bar, straight from the help
menu.
I need the small change value to be "0.5".
In this instance it does not work.
Any ideas why?
regards
Wayne


Private Sub Workbook_Open()
Set sb = Worksheets(1).Shapes.AddFormControl(xlScrollBar, _
Left:=10, Top:=10, Width:=10, Height:=200)
With sb.ControlFormat
.LinkedCell = "D1"
.Max = 100
.Min = 0
.LargeChange = 10
.SmallChange = 0.5

End With


End Sub