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

Gráfico de Alvo e Flecha
Gráfico de Alvo e Flecha
12 de maio de 2011
Agendar execução de processos no Excel (Schedule)
Agendar execução de processos no Excel (Schedule)
18 de maio de 2011

Objetivo: Demonstrar a criação de uma tela de abertura no Excel, para aguardar a atualização de dados do Excel, utilizando um gif animado.


//

Lomadee, uma nova espécie na web. A maior plataforma de afiliados da América Latina.

 

Conforme sugestão do leitor Walter Bernal, este post demonstra como ativar um splashscreen 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 frmWait

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

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

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:

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

Private Sub UserForm_Activate()
    WebBrowser1.Navigate "C:\Excel\Blog Rieper Excel\Splash Screen Gif Animado\loading.gif"
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()
     frmWait.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:

Sub KillForm()
     ActiveWorkbook.RefreshAll
     Unload frmWait
End Sub

O resultado é um formulário que irá abrir antes da planilha abrir completamente, esta chamada já irá realizar a atualização dos dados do arquivo Excel caso ele tenha vínculos externos.

Abraço

Marcos Rieper

14 Comments

  1. Lucas Bernardes da Silva disse:

    Marcos, passo a passo deu 100 % mãããs o do link só falta inserir a imagem; deu a vara de pescar mas não deu o peixe ! HAHA

    Show de bola, desde o primeiro Splash Screen, já uso como personalização de minhas planilhas.

    Abraços !

  2. Raphael disse:

    Olá, Marcos

    estou precisando da sua ajuda neste tópico, será que vc poderia dar uma olhadinha?

    http://guiadoexcel.com.br/lista-com-filtro-de-dados-automatico-2

    agradecido desde já

  3. Walter Bernal disse:

    Boa noite!

    Marquito meu amigo ficou show de bola….Era realmente isso que pensava quando perguntei para você se era possível.

    Meus parabéns mais uma vez, mostrou que entende tudo de VBA.

    Um abraço!

  4. Walter Bernal disse:

    Boa tarde!

    Marcos, uma observação. Quando usei o arquivo disponibilizado por você, ocorreu tudo certo. Porém quando fui fazer em um arquivo diferente, não existe essa opção que você fala .

    ******”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”*******

    Esse WebBroser que você circulou na sua caixa de ferramentas, não está disponível na minha versão 2007 do Office. O que fazer?

    Abraço.

  5. Walter Bernal disse:

    Marcos,

    Desculpe, encontrei o Webbroser…rsrsrs

    Desculpe..Abraço

  6. Walter Bernal disse:

    Marcos,

    Desculpe, encontrei o Webbroser…rsrsrs

    Abraço

  7. Josealdo disse:

    Marcos se a planilha estiver em rede é possivel colocar as imagens para que todos os usuários vejam?

    Eu fiz o comando acima, mas como alguns usuários tem a letra difefente um do outro como nome do drive de rede então não funciona para todos. Isto tem solução?

  8. Josealdo disse:

    Vlw, muito bom. Funcionou a dica do drive de rede.
    Parabens.
    Obrigado

  9. alexandre disse:

    preciso de sua ajuda…por favor entre em contato

  10. Túlio disse:

    Marcos, boa noite!

    Ótimo, Splash Screen…. Muito obrigado por postar dicas que tornam nossos trabalhos mais sofisticados.

    Um forte abraço…

  11. Túlio disse:

    Marcos, bom dia!

    Como faço para executar este Splash Screen quando eu clicar na planilha para abrir e fazer com que ele execute até quando a planilha estiver completamente carregada (aberta).

  12. Flavio disse:

    “Você pode usar o controle WebBrowser. Para isto, selecione na lista de componentes do VB o item “Microsoft Internet Controls”. Quando fizer isto, você verá o controle WebBrowser na caixa de ferramentas”

    olá, eu fiz este procedimento mas não apareceu o controle WebBrowser na caixa de ferramentas!!! Estou usando o excel 2010

  13. Rodrigo disse:

    Marcos boa noite tudo bem

    Me ajuda por gentileza com uma dúvida tenho a macro abaixo na planilha, porém quando envio aos meus clientes o gif não funciona.
    Não posso enviar o gif junto , preciso que funcione na planilha de alguma forma, consegue me ajudar?

    Essa é a minha Macro

    Private Sub Worksheet_Activate()

    WebBrowser1.Navigate “C:\Users\rspatafora\Desktop\compre.gif”

    End Sub

Deixe uma resposta

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *

Esse site utiliza o Akismet para reduzir spam. Aprenda como seus dados de comentários são processados.

Inscreva-se no nosso canal do Youtube!


Junte-se ao nosso canal do Youtube. Começamos em abril de 2016, mas já temos mais de 06:00 h de treinamentos gratuitos e este número irá aumentar. Vídeos novos todos os sábados.