Make shape blink

Question

Hi, I have a sheet which holds a shape “Rounded Rectangle 4” which appears when another cell holds a specific text using the below code:

Private Sub Worksheet_Calculate()

 ActiveSheet.Shapes(“Rounded Rectangle 4”).Visible = UCase(Range(“I34”).Value) = “Pass”

End Sub

Could anyone please advise on the best way to now make this shape blink when it is showing?

Answer 1

There is no built in function in excel for sharp blink.

Here is an workaround. If you need more help on VBA code, you can create a new post in Stack Overflow. There are also many experienced engineers and experts in the forums there.

==========================

Dim NextTime As Date

Dim xColor As Long

Sub Flash()

NextTime = Now + TimeValue("00:00:01")

With ActiveSheet.Shapes("Rounded Rectangle 4").Fill.ForeColor

If xColor = 0 Then

xColor = .SchemeColor

End If

.SchemeColor = Int(Rnd() * 55 + 1)

End With

Application.OnTime NextTime, "Flash"

End Sub

Sub StopIt()

Application.OnTime NextTime, "Flash", schedule:=False

ActiveSheet.Shapes("Rounded Rectangle 4").Fill.ForeColor.SchemeColor = xColor

xColor = 0

End Sub

==========================

Best Regards,

Snow Lu