Blinking Stars Effect for Shapes (VBA)

[ybr_15]

I see a post at Blinking Text In Excel for blinking text. I just wondering how to make blinking stars effect in excel using shapes?. Example, I have 10 stars shape in excel and how to make them blinking like stars (randomly maybe, not in the same time). And I want 1 button to start and 1 button to stop them too. Thank you

 

[Rick Rothstein]

Maybe you can get an idea of how from my mini-blog article here...

<!-- title / author block --> [h=3]A Blinking Christmas Tree[/h]

 

[ybr_15]

Maybe you can get an idea of how from my mini-blog article here...

<!-- title / author block --> A Blinking Christmas Tree

Thanks for your answer, Rick. It's like what I want but I have a question. I want using just 3 colors (RGB color code) for blinking. Can you help me how do that? Thank you very much

Here your code before:

Dim X As Long, Colors As Variant  Colors = Array(255, 16711680, 16751001, 65535, 52377, 26367)
  Do
    DoEvents
    If Not OnOffToggle Then Exit Sub
    For X = 1 To ActiveSheet.Shapes.Count
      ActiveSheet.Shapes(X).Fill.ForeColor.RGB = CLng(Colors(Int(6 * Rnd)))
    Next
    DoEvents
    Application.Wait Now + TimeSerial(0, 0, 1)
  Loop

 

[Rick Rothstein]

I want using just 3 colors (RGB color code) for blinking. Can you help me how do that?

When you say "just 3 colors (RGB color codes)", do you mean the 3 color values RedVal, GreenVal, BlueVal in RGB(RedVal,GreenVal,BlueVal) or do you mean three separate physical colors for the shape's color? If the latter, then what are the actual colors and did you want them randomly assigned?

 

[ybr_15]

Hi Rick, thanks again for your reply. What I mean is this: I have 3 color RGB, they are (237,85,101), (79,193,233), and (160,212,104). How can I implement this code? and can you explain about CLng in your code (why do you use it)? Thank you very much