Saltar al contenido

Contenido y color ToggleButton

publicado

Hola amigos,

Estoy intentando que el color de fondo de un ToggleButton cambie de color según si está pulsado (verde) o no (rojo). He probado varios código que he encontrado en la red, pero no lo he conseguido.

Además de eso se me produce un efecto no deseado con el contenido. Si pulso el botón en el formulario me muestra "Alta" y si no lo pulso muestra "Baja". Hasta ahí correcto, el problema es al grabar cambios, en la correspondiente columna de la hoja de cálculo guarda "VERDADERO" y "FALSO" y al volver a ejecutar el formulario me muestra precisamente eso, en lugar de "Alta" "Baja".

Agradezco vuestro tiempo!!

Trabajadores.xlsm

Featured Replies

publicado

Hola

Lo primero, cambia la propiedad "BackStyle" del "ToogleButton" a "1-fmBackStyleOpaque". Luego en la propiead "BackColor" elige un tono de rojo. Luego reemplaza la parte correspondiente por esto:

Private Sub ToggleButton1_Click()
If ToggleButton1.Value = True Then
    ToggleButton1.Caption = "Alta"
    ToggleButton1.BackColor = vbGreen
Else
    ToggleButton1.Caption = "Baja"
    ToggleButton1.BackColor = vbRed
End If
End Sub

OJO, estoy usando constantes de color pero podrías usar otra constante o incluso RGB.

También reemplaza así esta parte:

   hop.Range("G" & busco.Row) = ToggleButton1.Caption

Hay otra más, no solo esa en donde lo que quieres es usar el "Caption" del "ToogleButton".

Comentas

Abraham Valencia

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.