¿Hay en excel manera de que una palabra parpadee?

Menu formato... fuente

Saludos

"Eduardo" escribió en el mensaje
news:

A quien pueda ayudar:

Quisiera saber si hay una manera de que en una celda de una hoja de excel

se

pueda hacer que una palabra parpadee como es en el caso de word.

Sorry me resbale ... despues paso un codigo ejemplo para eso.

Saludos

sorry no recuerdo el link de dodne saque el codigo.
saludos


Public RunWhen As Double
Sub StartBlink()
If Range("A1").Font.ColorIndex = 2 Then
Range("A1").Font.ColorIndex = xlColorIndexAutomatic
Else
Range("A1").Font.ColorIndex = 2
End If
RunWhen = Now + TimeSerial(0, 0, 1)
Application.OnTime RunWhen, "StartBlink", , True
End Sub
Sub StopBlink()
Range("A1").Font.ColorIndex = xlColorIndexAutomatic
Application.OnTime RunWhen, "StartBlink", , False
End Sub


Private Sub Workbook_Open()
StartBlink
End Sub


Private Sub Workbook_BeforeClose(Cancel As Boolean)
StopBlink
End Sub

hola, Eduardo !

... manera de que en una celda de una hoja de excel se pueda hacer que una palabra parpadee como es en el caso de word.

te expongo un ejemplo al final.
si cualquier duda... comentas?
saludos,
hector.
=1) usa [menu] formato / formato condicional... [seleccionando previamente la/s celda/ que va/n a parpadear]
-> selecciona como condicion... -> formula
-> introduce [alg]una de las siguientes formulas:
a) si no te interesa condicionar [tambien] al valor/contenido/... de dicha/s celda/s...
=residuo(segundo(ahora()),2)=0
b) si necesitas condicionar [p.e.] a que el valor de la celda (1) de la seleccion [p.e. 'A1'] sea >= 100
=(a1>0)*(residuo(segundo(ahora()),2)=0)
-> aplica [boton formato...] los formatos de tu preferencia [fuente, color, bordes, trama, etc.]

2) copia/pega las siguientes lineas en...
en un modulo de codigo 'normal' ==Public Siguiente As Date
Sub IniciarParpadeo()
Siguiente = Now + TimeSerial(0, 0, 1)
Worksheets(1).Calculate
Application.OnTime Siguiente, "IniciarParpadeo"
End Sub
Sub DetenerParpadeo(): On Error Resume Next
Application.OnTime Siguiente, "IniciarParpadeo", Schedule:=False
End Sub
en el modulo de codigo del libro [ThisWorkbook] ==Private Sub Workbook_Open()
IniciarParpadeo
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
DetenerParpadeo
End Sub

3) 'observa' que en la macro 'IniciarParpadeo' [modulo 'normal']...
hay una linea que 'dice'... ->Worksheets(1).Calculate<- [incluso pudiera tratarse de una hoja 'fantasma/oculta/...']
-> si a tu modelo 'le afecta' que [cada TimeSerial(hrs, min, seg)] se este re/calculando la hoja1 del libro :-((
puedes usar una hoja 'oculta' como primera hoja en el libro -> Worksheets(1) o...
puedes modificar dicha instruccion a... ->Application.ScreenUpdating = True<-
-> la diferencia entre una instruccion y otra... es que
con el ScreenUpdating... veras un 'parpadeo general' [constante] de la pantalla 'completa' Y del cursor/mouse :-(
con el Calculate... solo veras el [ligero] parpdeo del mouse/cursor, pero... el re/calculo del modelo podria... :-((
-> solo 'para variar'... [parece que] todo tiene sus pros y contras [decide tu 'cual es cual´] :))