Coloring of different shapes based on time

[Davidj13]

Hi There,

I am trying to solve the problem with coloring the shapes based on time and I am struggling with it for some time so hope someone can help me with this.

I have 19 shapes on excel sheet and each is having the name Bankomat_ and then number from 1 to 19. The output should be that shapes are "blinking" with yellow color one after another from 1 to 19 and then again start with 1 always in 2 seconds interval.

The blinking itself works fine but I have a problem with transfer to each of the shapes. Currently with the code pasted only the first shape is blinking and I tried to use for cycle but then it was always all the shapes blinking. I think its connected to the application itself but I just don't know how to move from "Bankomat_1" to "Bankomat_2".

If anyone would have some ideas how to work this out I would appreciate it

Thanks!
Jan

 

[Davidj13]

I am also putting code in text, in case it would be easier for some of you

Sub Prebarvovani_2()

RunTimer = Now + TimeValue("00:00:02")

Application.OnTime RunTimer, "Prebarvovani_2"

i = 1

If ActiveSheet.Shapes("Bankomat_" & i).Fill.ForeColor = RGB(255, 255, 255) Then

With ActiveSheet.Shapes("Bankomat_" & i)
.Fill.ForeColor.RGB = RGB(255, 255, 0)
End With

Else

With ActiveSheet.Shapes("Bankomat_" & i)
.Fill.ForeColor.RGB = RGB(255, 255, 255)

End With

End If

End Sub

 

[Marc L]

Hi,​

​

yes better but far less than linking your workbook on a files host website like Dropbox …​