Custom Button para Macro con estado Activo / Inactivo

EN mi caso las imagenes son propias, por lo que no puedo setear .FaceId
lo que tuve que hacer es crear dos botones, y setear visible =true a uno y visible = false a otro e ir intercambiando

como puedo tener en la barra de botones un boton para una macro que mantenga dos estados, activo e inactivo.
O sea, que tenga el mismo comportamiento que el boton "Design Mode" de macros...
Necesito un boton para una macro con el mismo comportamiento...

dependiendo de cuando deba estar el boton "presionado" (o no)... ???
el siguiente ejemplo supone que existe...
- una barra de herramientas llamada Temporal
- un control (boton) -en este caso, estoy usando el primero de la serie-
(puedes usar la propiedad Caption del control y el nombre de la barra donde lo hayas puesto)
- y... switchea la imagen del boton (carita sonriente mientras se ejecuta y... carita triste mientras no)
asi como la propiedad State (como si estuviera presionado o no)

si cualquier duda... comentas?
saludos,
hector.

en un modulo de codigo normal ->la macro asignada<- al boton_1

Sub MiMacro()
With Application.CommandBars("temporal").Controls(1)
.State = msoButtonDown: .FaceId = 59: .Visible = True
MsgBox "Ahora estan ejecutandose las instrucciones de ""tu macro"""
.State = msoButtonUp: .FaceId = 276: .Visible = True
End With
End Sub

hola, jose !

> EN mi caso las imagenes son propias, por lo que no puedo setear .FaceId
> lo que tuve que hacer es crear dos botones, y setear visible =true a uno y visible = false a otro e ir intercambiando

(pues...) prueba dejando fuera lo del .FaceId y solo "aprovecha" lo del .State = msoButtonDown/msoButtonUp (???)

saludos,
hector.

__ previos __
>>> como puedo tener en la barra de botones un boton para una macro que mantenga dos estados, activo e inactivo.
>>> O sea, que tenga el mismo comportamiento que el boton "Design Mode" de macros...
>>> Necesito un boton para una macro con el mismo comportamiento...
>>
>> dependiendo de cuando deba estar el boton "presionado" (o no)... ???
>> el siguiente ejemplo supone que existe...
>> - una barra de herramientas llamada Temporal
>> - un control (boton) -en este caso, estoy usando el primero de la serie-
>> (puedes usar la propiedad Caption del control y el nombre de la barra donde lo hayas puesto)
>> - y... switchea la imagen del boton (carita sonriente mientras se ejecuta y... carita triste mientras no)
>> asi como la propiedad State (como si estuviera presionado o no)
>>
>> si cualquier duda... comentas?
>> saludos,
>> hector.
>>
>> en un modulo de codigo normal ->la macro asignada<- al boton_1
>>
>> Sub MiMacro()
>> With Application.CommandBars("temporal").Controls(1)
>> .State = msoButtonDown: .FaceId = 59: .Visible = True
>> MsgBox "Ahora estan ejecutandose las instrucciones de ""tu macro"""
>> .State = msoButtonUp: .FaceId = 276: .Visible = True
>> End With
>> End Sub

.State = msoButtonDown/msoButtonUp

no "sombrea" el boton.