Splash Screen com Gif Animado no Excel (Tela de Abertura)

Splash Screen com Gif Animado no Excel (Tela de Abertura)

Neste artigo você aprenderá como realizar a criação de uma tela de abertura no Excel, para aguardar a atualização de dados do Excel, utilizando um gif animado.

Conforme sugestão do leitor Walter Bernal, este post demonstra como ativar um splashs creen para que enquanto o Excel esteja atualizando seus dados uma tela seja apresentada em tela.

Para isso vamos seguir os seguintes passos:

1. Abra a guia Desenvolvedor e clique no ícone Visual Basic

2. Clique em Inserir->UserForm

3. Selecione o formulário incluído e altere a propriedade name para frmSplash

4. Altere a propriedade Caption para “Aguarde atualizando dados …”

5. Clique em Ferramentas -> Referências e marque a opção Microsoft Web Browser.

6. Você deve inserir um webbroser clicando em Ferramentas o ícone WebBroser desenhando na tela, a carga do gif animado ou página da internet é realizado via programação VBA.7. Clique duas vezes sobre a imagem do formulário (componente webbroser) criado e substitua o código criado pelo abaixo que realizará a chamada do splashscreen que ficará aberto por 5 segundos, que pode ser configurado, e depois realizada a atualização dos dados na sub KillForm.

Neste ponto altere o endereço do gif conforme a sua necessidade, pode apontar para um arquivo da internet diretamente ou ainda para um gif local.

Exemplo de gif local: D:\Rieper\Blog Guia do Excel\Gif Animado\loading-gif-transparent-10.gif

Exemplo de gif internet: https://i.pinimg.com/originals/90/80/60/9080607321ab98fa3e70dd24b2513a20.gif

Private Sub UserForm_Activate()
    WebBrowser1.Navigate "D:\Rieper\Blog Guia do Excel\Gif Animado\loading-gif-transparent-10.gif"
End Sub

Private Sub UserForm_Initialize()
    Application.OnTime Now + TimeValue("00:00:05"), "lsProcessa"
End Sub

8. Clique no ícone na guia da esquerda chamado “EstaPasta_de_trabalho” e inclua o código abaixo, este código irá chamar a abertura do formulário:

Private Sub Workbook_Open()
    frmSplash.Show
End Sub

9. Clique em Inserir->Módulo e digite o código abaixo, este código irá atualizar a planilha e fechar o formulário:

Public Sub lsProcessa()
    ActiveWorkbook.RefreshAll
    Unload frmSplash
End Sub

Splash screen Excel 1

Download

Realize o download do arquivo deste exemplo e da vídeo-aula acima neste botão abaixo. Basta se inscrever na nossa newsletter gratuita para o download automático.

Baixe a planilha