Cambiar Colores con VB

Buenas Bloggeros

Hoy haremos algo facil espero les entretenga.
Lo que haremos es que con comandos de VB podamos cambiar el formato de un texto o cierto documento en excel.

Aca esta el formato que usaremos para poder grabar las 3 macros y asi poder generar lo que es el boton para poder cambiar los colores a voluntad.

Seleccionamo en el menu vista luego en macros luego grabar macro y seleccionamos los colores para cada estilo. Aca muestro como grabar la macro:

Ahora lo que sigue es grabar las macros como ya dimos click en grabar macro solo es de generar el formato con los colores deseados.

Recuerden que deben precionar el recuadro que lesseñale para detener la macro.

Asi les tendria que cambiar el boton al detener la macro.

Crean sus tres formatos de la misma manera y despues creamos el boton para el intercambio de los formatos asi:

Ya creado el boton devemos agregarle el codigo para que este cambie el tipo de formato.
Luego precionamos la tecla Alt+F11 para que despliegue el modulo en el que estan todos sus macros como lo varean en la imagen siguiente:

Luego lo que tenemos que hacer es condicionar cada uno de los codigos con If [E2] = 1 Then porque en E2 tenemos el espacio para poner el tipo de formato y haci lo hacemos con cada uno solo variando el numero de formato que tendremos asi:

Luego guardamos el documento como un documento de excel habilitado para macros y presionamos F5 para probar y nos damos cuenta que al precionar el boton cambio de formato funciona a la perfeccion.

Y asi terminamos este ejercicio espero les sirva para ahorrarse tiempo y cualquier duda o sugerencia sera bienvenida :D