Change form spinner max/min in VBA?

[3link]

Trying to find a way to set max/min values for form spinners. The value of max/min will depend on cell values. Thus far, I have only found VBA information on the activex control spinners. I have managed to get the activex spinners to do the job, but they really look like crap. Whenever I access the activex spinner, these little boxes appear within the control, making the arrows indiscernible (see below).
<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>

Thanks

 

[Gary McMaster]

Maybe the "ControlFormat" property is what you need?

Gary

Public Sub Test()

Dim oSpinner As Shape

'Assumes spinner name "Spinner 1" exsists on active sheet.
Set oSpinner = ActiveSheet.Shapes("Spinner 1")

oSpinner.ControlFormat.Max = 20
oSpinner.ControlFormat.Min = 5
oSpinner.ControlFormat.Value = 10


End Sub

 

[3link]

Thank you, Gary. That does it.