Comment faire clignoter ou clignoter une forme encore et encore dans Excel?
Si vous souhaitez faire clignoter une forme à plusieurs reprises dans une feuille de calcul, une méthode de cet article peut vous aider.
Faire une forme clignotante encore et encore avec le code VBA
Faire une forme clignotante encore et encore avec le code VBA
Dans la feuille de calcul, pour faire clignoter une forme, procédez comme suit.
1. appuie sur le autre + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.
2. dans le Microsoft Visual Basic pour applications fenêtre, cliquez sur insérer > Module. Ensuite, copiez et collez le code VBA dans la fenêtre Code.
Code VBA: faire clignoter une forme encore et encore dans la feuille de calcul
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 SubNotes:
3. appuie sur le autre + Q touches ensemble pour quitter Microsoft Visual Basic pour applications fenêtre.
4. Insérez un bouton dans la feuille de calcul en cliquant sur Développeur > insérer > Bouton (contrôle de formulaire) comme ci-dessous la capture d'écran montrée.
5. Dans le pop-up Attribuer une macro boîte de dialogue, sélectionnez Flash dans l' Nom de la macro , puis cliquez sur le OK .
6. Modifiez ensuite le texte d'affichage sur le bouton selon vos besoins. Dans ce cas, je change le texte d'affichage pour Commencer à clignoter comme illustré ci-dessous.
7. Répétez les étapes 4 et 5 ci-dessus pour insérer un nouveau bouton et attribuer le Arrête ça macro sur ce bouton.
8. Modifiez le texte d'affichage de ce nouveau bouton.
Ensuite, vous pouvez voir deux boutons attribués avec différentes macros sont insérés dans la feuille de calcul. Voir la capture d'écran:
Désormais, en cliquant sur le bouton Démarrer le clignotement, la forme commence à clignoter avec des couleurs différentes. Si vous souhaitez arrêter le flash, cliquez sur le bouton Arrêter de clignoter.
Article connexe:
Meilleurs outils de productivité bureautique
Améliorez vos compétences Excel avec Kutools for Excel et faites l'expérience d'une efficacité comme jamais auparavant. Kutools for Excel offre plus de 300 fonctionnalités avancées pour augmenter la productivité et gagner du temps. Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte une interface à onglets à Office et facilite grandement votre travail
- Activer l'édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
- Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
- Augmente votre productivité de 50% et réduit des centaines de clics de souris chaque jour!
