Código VBA que no cambia propiedades de un (botón) spinner

[Caliche]

El siguiente código no me está funcionando (el valor de .Max no se está cambiando):

Worksheets(Neg).Activate

With ActiveSheet.Shapes(Neg & "_Bot1").ControlFormat
.Max = dias
.SmallChange = 1
End With

With ActiveSheet.Shapes(Neg & "_Bot2").ControlFormat
.Max = dias
.SmallChange = 1
End With

Neg y dias tienen valores correctos (ya verifiqué).

y el siguiente código (modificación del código generado con el grabador de macros), tampoco funciona:

Worksheets(Neg).Select ' Activate?

ActiveSheet.Shapes(Neg & "_Bot1").Select
With Selection
.Max = dias
.SmallChange = 1
End With

ActiveSheet.Shapes(Neg & "_Bot2").Select
With Selection
.Max = dias
.SmallChange = 1
End With

Este código (exactamente igual) funciona perfecto en otro libro. Cual será mi problema?.

Estoy trabajando con un botón "spinner" de la barra de herramientas de formularios , ya que corriendo un código que encontré en MrExcel, ví que algunas de sus propiedades son:

Shape FormControltype =9
Shape Type = 8
Shape Autoshapetype = -2

No sé si esta nformación será util, pero debo aclarar que la hoja de cálculo que contiene el spinner que nofunciona , es una copia de la hoja de cálculoque contiene el spinner que funciona correctamente.

Muchas gracias por su ayuda.

Caliche

 

[Greg Truby]

No sé qué decirle. Lo que usted está usando en su primer ejemplo debe funcionar. Para mí, funcionó.

<SPAN style="color:#00007F">Sub</SPAN> prueba()
    <SPAN style="color:#00007F">Dim</SPAN> s <SPAN style="color:#00007F">As</SPAN> Shape
    
    <SPAN style="color:#00007F">Set</SPAN> s = Sheet1.Shapes("Spinner 5")
    <SPAN style="color:#00007F">With</SPAN> s.ControlFormat
        .Value = 15
        .Min = 5
        .Max = 75
        .SmallChange = 5
    <SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">With</SPAN>
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN>

 

[Caliche]

Re: Código VBA que no cambia propiedades de un (botón) spinn

Greg: borré los botones, los he creado de nuevo y está funcionando perfectamente. Quedo con cierta sensación de aburrimiento porque no supe que pasó.

Mil gracias por su tiempo.

Caliche