Flashing Object

[RogerC]

I've searched the board and found out how to makes cells flash in a Worksheet, but I need to make an object flash when the user activates a macro. In this case the object is a .jpg image. Has anyone ever done this?

 

[Barry Katcher]

No, but I sure would like to know how you got your cell to flash, tried that recently and retreated in frustration.

 

[kskinne]

check out this excellent message thread on the subject - there is some great code that will make a cell flash if it meets a certain criteria

http://www.mrexcel.com/board/viewtopic.php?topic=8399&forum=2

HTH
kevin

 

[ylijohe]

http://www.geocities.com/ylijohe/problem.html

Click to download the excel-file, it contains the necessary macros to flash cells..
click the upper left corner of the excel sheet to see cells flashing...and meanwhile, help me solve the problem, please.

 

[Dragracer]

Roger, I modified the code supplied by Joe Was to flash a jpg. Give it a try and see if it works for you.

<pre>
Sub Flashjpg()
'modified code from Joe Was

Dim myJPG As Object
Dim x As Integer
Dim fSpeed

'Make this picture flash!
Set myJPG = ActiveSheet.Pictures("picture 1")
Application.DisplayStatusBar = True
Application.StatusBar = "... Select Cell to Stop and Edit or Wait for Flashing to Stop! "

'Make the cell range flash fast: 0.01 to slow: 0.99
fSpeed = 0.2

'Make cell flash, this many times!
Do Until x = 35

'Run loop!
DoEvents
Start = Timer
Delay = Start + fSpeed
Do Until Timer > Delay
DoEvents
myJPG.Visible = False

Loop
Start = Timer
Delay = Start + fSpeed
Do Until Timer > Delay
DoEvents
myJPG.Visible = True

Loop
x = x + 1
Loop
Application.StatusBar = False
Application.DisplayStatusBar = Application.DisplayStatusBar
End Sub

</pre>

 

[RogerC]

That worked perfectly Dragracer! Just the effect I was looking for. Thanks!