¿Cómo hacer que una forma parpadee continuamente en Excel?
Si desea que una forma parpadee continuamente en una hoja de cálculo, este artículo le mostrará cómo lograrlo.
Hacer que una forma parpadee repetidamente con código VBA
Hacer que una forma parpadee repetidamente con código VBA
En la hoja de cálculo, siga estos pasos para crear un efecto de forma parpadeante.
1. Pulse las teclas Alt + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.
2. En la ventana de Microsoft Visual Basic para Aplicaciones, haga clic en Insertar > Módulo. A continuación, copie y pegue el código VBA en la ventana de código.
Código VBA: hacer que una forma parpadee repetidamente en la hoja de cálculo
Dim NextTime As Date
Dim xColor As Long
Sub Flash()
NextTime = Now + TimeValue("00:00:01")
With ActiveSheet.Shapes("new").Fill.ForeColor
If xColor = 0 Then
xColor = .SchemeColor
End If
.SchemeColor = Int(Rnd() * 55 + 1)
End With
Application.OnTime NextTime, "Flash"
End Sub
Sub StopIt()
Application.OnTime NextTime, "Flash", schedule:=False
ActiveSheet.Shapes("new").Fill.ForeColor.SchemeColor = xColor
xColor = 0
End SubNotas:
3. Pulse simultáneamente las teclas Alt + Q para cerrar la ventana de Microsoft Visual Basic para Aplicaciones.
4. Inserte un botón en la hoja de cálculo haciendo clic en Desarrollador > Insertar > Botón (control de formulario), tal como se muestra en la siguiente captura de pantalla.
5. En el cuadro de diálogo Asignar macro que aparece, seleccione Flash en el campo Nombre de macro y, a continuación, haga clic en el botón Aceptar.
6. A continuación, modifique el texto que se muestra en el botón según sus necesidades. En este caso, he cambiado el texto a «Iniciar parpadeo», tal como se muestra en la siguiente captura de pantalla.
7. Repita los pasos anteriores 4 y 5 para insertar un nuevo botón y asignarle la macro StopIt.
8. Cambie el texto que se muestra en este nuevo botón.
A continuación, verá dos botones con macros distintas asignadas insertados en la hoja de cálculo. Consulte la siguiente captura de pantalla:
A partir de ahora, al hacer clic en el botón **Iniciar parpadeo**, la forma comenzará a parpadear con colores distintos. Para detener el efecto, simplemente haga clic en el botón **Detener parpadeo**.
Artículo relacionado:
Las mejores herramientas de productividad para Office
Potencie sus habilidades en Excel con Kutools para Excel y experimente una eficiencia como nunca antes.Kutools para Excel ofrece más de 300 funciones avanzadas para aumentar su productividad y Ahorrar tiempo.Haga clic aquí para obtener la función que más necesita...
Office Tab aporta una interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Active la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas dentro de la misma ventana, en lugar de hacerlo en ventanas separadas.
- ¡Aumente su productividad en un 50 % y elimine cientos de clics del ratón cada día!
Todos los complementos de Kutools en un solo instalador.
Kutools for Office es la suite que incluye complementos para Excel, Word, Outlook y PowerPoint, además de Office Tab Pro, ideal para equipos que trabajan en distintas aplicaciones de Office.
- Suite integral— complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
- Un instalador, una licencia— configuración en minutos (compatible con MSI)
- Rendimiento mejorado en conjunto— productividad optimizada en todas las aplicaciones de Office
- Prueba gratuita de 30 días con todas las funciones— sin registro ni tarjeta de crédito
- La mejor relación calidad-precio— ahorre frente a la compra individual de complementos