Como fazer uma forma piscar repetidamente no Excel?

Se você deseja fazer uma forma piscar continuamente em uma planilha, este artigo mostrará como.

Fazer uma forma piscar repetidamente com código VBA

Fazer uma forma piscar repetidamente com código VBA

Na planilha, para criar um efeito de forma piscante, siga os passos abaixo.

1. Pressione as teclas Alt + F11 para abrir a janela Microsoft Visual Basic for Applications.

2. Na janela Microsoft Visual Basic for Applications, clique em Inserir > Módulo. Em seguida, copie e cole o código VBA na janela Código.

Código VBA: faça uma forma piscar repetidamente na planilha

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

Observações:

3. Pressione as teclas Alt + Q juntas para sair da janela Microsoft Visual Basic for Applications.

4. Insira um Botão na planilha clicando em Desenvolvedor > Inserir > Botão (Controle de Formulário), conforme mostrado na captura de tela abaixo.

5. Na caixa de diálogo Atribuir Macro que aparece, selecione Flash na caixa Nome da Macro e, em seguida, clique no botão OK.

6. Em seguida, altere o texto exibido no botão conforme necessário. Neste caso, altero o texto exibido para Iniciar piscando, conforme mostrado na captura de tela abaixo.

7. Repita os passos 4 e 5 acima para inserir um novo botão e atribuir a macro StopIt a este botão.

8. Altere o texto exibido deste novo botão.

Então você pode ver dois botões atribuídos com macros diferentes inseridos na planilha. Veja a captura de tela:

A partir de agora, ao clicar no botão Iniciar piscando, a forma começa a piscar com cores diferentes. Se você quiser parar o piscar, clique no botão Parar piscando.

Artigo relacionado:

• Como fazer o texto de uma célula específica piscar ou flash no Excel?