A angle control

[rintelen]

Hi, I want to make a control in VBA script that will simulate the angle of elevation - starting at 0 degrees and going up to 90 degrees. As the person moves the angle upwards it should change the value of a cell. The angles need to be to 1 place of decimal. e.g. 20.1 etc. So they must increment by 0.1.

How easy is it to do this? Does anyone know of an existing script
Cheers
John

 

[Scott Huish]

Couldn't you just use a Spin Button and the following event codes for it:

Private Sub SpinButton1_SpinDown()
If Range("A1") > 0 Then Range("A1") = Round(Range("A1") - 0.1, 1)
End Sub

Private Sub SpinButton1_SpinUp()
If Range("A1") < 90 Then Range("A1") = Range("A1") + 0.1
End Sub

Change range as necessary.