Efecto de manera permanente

5 envíos / 0 nuevos
Último envío
yonigrinwod
Imagen de yonigrinwod
Offline
última acción: Hace 10 años 2 meses
Nivel 1 - 200 puntosNivel 2 - 500 puntos
alta: 18/09/2010 - 20:28
Puntos: 875
Efecto de manera permanente

Me pueden ayudar por favor a que la siguiente macro se active de una manera permanente al abrir el libro

y que no haya necesidad de correr la macro

 

 

Option Private Module
Public Declare Sub Sleep Lib "Kernel32" (ByVal Millisecundos As Long)
Public velocidad%, color%, n%, i%, ciclos%

Sub color_banner()
On Error Resume Next
velocidad = 1
    With [C3]
    .Value = "Efecto letras de colores cambiante"
        For color = 1 To 14
            For i = 1 To Len(.Text)
                .Characters(i, 1).Font.color = QBColor(color)
                DoEvents
                Sleep velocidad
             
            Next
        Next
       .Clear
    End With
End Sub

 

Public Sub blink()
On Error Resume Next
velocidad = 100
    With [C21]
        For color = 1 To 10
            For i = 2 To 3
                .Font.ColorIndex = i
                DoEvents
                Sleep velocidad * 2
            Next
        Next
       
    End With
End Sub

 

 

 

AdjuntoTamaño
Office spreadsheet icon efecto_excel.xls35 KB
Cron
Imagen de Cron
Offline
última acción: Hace 8 meses 2 días
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntos
alta: 23/06/2010 - 12:30
Puntos: 12735
Re: Efecto de manera permanente

Ahora tienes el código en el módulo 1.

Deberías escribir código en la hoja donde quieras que se ejecute el código. Por ejemplo, en la Hoja 1(Efectos Texto) en tu caso.

Ahí debes seleccionar en los desplegables de arriba lo siguiente:

 

En el izquierdo --> Worksheet

En el derecho --> por ejemplo, Activate

 

Esto te genera el encabezado de la rutina que se ejecutará cuando se active la hoja 1.

 

Dentro de esta rutina haz la llamada al código que quieras que se ejecute. En tu caso, blink()

 

Saludos

visitante (no verificado)
Imagen de visitante
Re: Efecto de manera permanente

la verdad es que no se prigramar solo ocupo este efecto para llamar la atencion de un  ususario

o entiendo en que lugares se tiene que hacer la correcion ya que este codigo lo descargue de internet

 

me puedes apoyar por favor a modificarlo

 

muchas gracias saludos

Cron
Imagen de Cron
Offline
última acción: Hace 8 meses 2 días
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntos
alta: 23/06/2010 - 12:30
Puntos: 12735
Re: Efecto de manera permanente

Imagino que sí sabes que el editor se activa con Ctrl+F11

 

Una vez ahí, sigue los pasos que te comenté antes, y que te marco en rojo en la imagen.

 

 

Dentro del cuerpo solo tendrás que escribir:

 

Private Sub Worksheet_Activate()

 

  Módulo1.blink

 

End Sub

 
 
Un saludo
AdjuntoTamaño
Image icon excel1.jpg112.76 KB
visitante (no verificado)
Imagen de visitante
Re: Efecto de manera permanente

muchisimas gracias