Gráfico Velocímetro com Movimento

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

Baixe a planilha