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

Muchas gracias por tu rápida respuesta.

Me funciona perfectamente.

Aunque al ponerlo en mi aplicación creo que puede ralentizarme un poco el
trabajo pues está continuamente ejecutándose, voy a intentar hacer alguna
modificación para que solo lo realice un número determinado de veces.

Gracias nuevamente.

"Fernando Arroyo" escribió en el mensaje
news:
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