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 Sub

Florales:

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 le 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:

• Comment clignoter ou flasher le texte de la cellule spécifiée dans Excel?