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
Adjunto | Tamaño |
---|---|
efecto_excel.xls | 35 KB |
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
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
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
muchisimas gracias