free knob needed...

  • Thread starter Thread starter pkrbff
  • Start date Start date
P

pkrbff

hello all,

I am working on a
spreadsheet for a financial model for
a particular project, and i need an
Activex control that would allow the
user to turn a knob and increase or
decrease a parameter.

Oh, one more thing... it has to be free!

Thanks
 
Hi!

Anything wrong with a spinbutton? That's a knob but in the y-z plan
rather than the x-y.

Al
 
Whilst the interaction would probably come from a spin button in some way, if
you are just looking to be a bit fancy with what he sees, then you could create
your own control knob using autoshapes. If you created a large circle, coloured
it grey, then put a small black circle neer the edge and gave the whole thing a
shadow, you could then rotate it with code along with the spin button changes.
Some quick and dirty recording and tweaking gave me this

Sub Rotate()
'
For x = 1 To 360
ActiveSheet.Shapes("Group 4").Select
Selection.ShapeRange.IncrementRotation 1#
'Assuming shape sits over B5
Range("B5").Select
For n = 1 To 10000
y = (y * n) ^ 5
Next k
Next x
End Sub

Didn't play to try and remove the selecting, and whilst not exactly what you are
after it may give you some ideas on how to get that kind of effect.
 
OK, sad I know, but if you set the border on the large circle to a series of
dots, that's not a bad effect as it turns ( hangs his head in shame :-> ).
 
Back
Top