Formato con parpadeo

Puedes crear un estilo (Formato->Estilo) llamado Parpadeo, poner esto en el módulo del libro (ThisWorkbook):


Private Sub Workbook_BeforeClose(Cancel As Boolean)
DetenerParpadeo
End Sub

Private Sub Workbook_Open()
IniciarParpadeo
End Sub


y esto en un módulo creado por ti:


Dim dtSiguiente As Date

Sub IniciarParpadeo()
dtSiguiente = Now + TimeValue("00:00:01")
With ActiveWorkbook.Styles("Parpadeo").Interior
If .ColorIndex = 4 Then .ColorIndex = 6 Else .ColorIndex = 4
End With
Application.OnTime dtSiguiente, "IniciarParpadeo"
End Sub

Sub DetenerParpadeo()
Application.OnTime dtSiguiente, "IniciarParpadeo", schedule:=False
End Sub


Las celdas a las que apliques el estilo "Parpadeo" (de nuevo desde Formato->Estilo) parpadearán una vez que se ejecute el código.
Un saludo.


Fernando Arroyo
MS MVP - Excel


"Lao_España" SPAM> escribió en el mensaje news:%23Z5%

Hola Grupo.

Alguien tiene idea de como hacer un formato parpadeante. (Excel xp)

Muchas Gracias