Ayuda para que la imagen cambie de color

[yonder]

Buen dí­a,

Que macro puedo utilizar para que cuando le de click al cí­rculo cambie de color verde a amarillo y luego a rojo?

Espero no molestar.

Saludos!!

 

[ioyama]

Hola yonder

Revisa el adjunto.

Un saludo desde Vitoria.

 

[yonder]

Muchas gracias, la verdad que aún estoy muy pobre en esto de las macros, más cuando no tienes quién te pueda asesorar.
Saludos!!
Muchas Gracias!!

 

[galileogali]

El mismo codigo de ioyama, con algunos retoques semanticos...pero con identica estructura

 

[morfeo]

Hola compañeros excelucionarios
Bueno ahora revisando los foros veo este post esta muy interesantisimo la verdad sirve para muchas cosas, pero me nace una pregunta ¿como puedo cambiarle el brillo...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[ST]

la respuesta puede estar en la propiedad 'fill' modificando algo como esto:

Selection.ShapeRange.Fill.UserPicture _
"C:\Documents and Settings\tucuenta\Mis documentos\Mis...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[morfeo]

Hola amigo ST, de ante mano muchas gracias por responderme con tal prontitud... en verdad muchas gracias.

Ahora creo que expuse mal mi pregunta lo que deseo hacer es que al ingresar al libro...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[galileogali]

Perdon por saltear la hilacion, pero se nota que el codigo que pegue, no quedo pegado, asi que ahi va

Sub Semáforo()
Set shp = ActiveSheet.Shapes("Elipse 4").Fill.ForeColor

colora =...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[ioyama]

Hola morfeo

Prueba a poner en ThisWorkbook

Private Sub Workbook_Open()
numfot = ActiveSheet.Shapes.Count
For i = 1 To numfot
ActiveSheet.Shapes(i).Select
If...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí