Gráfico Velocímetro com Movimento

Função de soma condicional no Excel Somase
Função de soma condicional no Excel Somase
3 de outubro de 2010
Gráfico Velocímetro Excel com Indicadores Empresariais
Gráfico Velocímetro Excel com Indicadores Empresariais
5 de outubro de 2010

Objetivo: Demonstrar um exemplo de gráfico velocímetro no Excel utilizando VBA para realizar sua animação.

Este artigo foi uma sugestão do leitor Maurício, que questionou se seria possível criar o mesmo gráfico do artigo Gráfico de ponteiro Excel – Velocímetro de em movimento como no post Criar Gráfico em Movimento no Excel 2007 ou Excel 2010.

Para isso foi utilizado como base a própria planilha de ponteiros e foi utilizado o seguinte código fonte comentado para criar o movimento:

Public Sub lsAnimarPonteiro()
    Dim lValorTotal As Double
    Dim lAcrescimo  As Double

    ActiveSheet.ChartObjects("Gráfico 5").Activate

    lValorTotal = Range("B6").Value

    lAcrescimo = lValorTotal / 100

    Range("B6").Value = 0

    While Range("B6").Value < lValorTotal
        Range("B6").Value = Range("B6").Value + lAcrescimo
        Charts.Application.Calculate
    Wend

    Cells(1, 1).Select
End Sub

Com poucas alterações você poderá aplicar o mesmo gráfico em suas aplicações.

Abraço

Marcos Rieper

9 Comments

  1. Dexter disse:

    Muito bom!
    Nunca tinha vista isso hehe

  2. Paulo Santos disse:

    Ótima funcionalidade. Parabéns pela explicação e ajuda.
    Só uma dúvida: Mando muito relatório com gráficos por e-mail via outlook. é possível encaminhar gráficos dessa forma pelo outlook? com a animação? Obrigado.

  3. Alexandre disse:

    por favor preciso de sua ajuda com uma planilha específica

  4. foxffsa disse:

    Vc pode fazer uma aplicação no excel onde eu tenho um dado que fica atualizando em tempo real.
    Portanto eu preciso criar uma macro que permita construir uma planilha automaticamente ,e com essa planilha eu consiga
    construir um grafico de tendencia (tipo um historico) onde no eixo X eu tenha a data-hora-minuto-segundos e no eixo Y eu tenha o valor daquele dado.

  5. João Vitor Gonzales disse:

    Olá Marcos!
    Parabéns pelos posts! Tenho aprendido muito por aqui!

  6. tania disse:

    Oi Amei seu velocimetro, era um sonho de consumo utilizar este gráfico para meus kpi´s na empresa. Mas como não entendo ainda , utilizei como esqueleto sua planilha, mas agora está aparecendo esse erro
    ActiveSheet.ChartObjects(“Gráfico 5”).Activate
    estou com medo de estar perdendo algo na minha base de dados de 5 mil linhas. poderia me deixar conformtavel se posso apagar esta linha ou o que eu faço pra não aparecer este depurar? muito obrigada.

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.