CRIAR GRÁFICO EM MOVIMENTO NO EXCEL 2007 OU EXCEL 2010

Gravar Macro
HABILITANDO A GUIA DESENVOLVEDOR E COPIANDO PROCEDIMENTOS VBA ntos VBA (SUB) DA INTERNET
4 de setembro de 2010
Gráfico de Bolha
GRÁFICO DE BOLHAS EXCEL
6 de setembro de 2010

Gráfico em movimento

Olá, neste post você encontrará um gráfico animado no Excel.

Uma forma muito interessante de incrementar a apresentação de uma planilha é utilizando gráficos.

Com a macro que utilizei hoje, criei um gráfico que se movimenta ao clicar no botão de execução.

Gráfico em movimento

Gráfico em movimento


O procedimento determina a quantidade de eixos, os valores máximo e mínimo para o eixo Y, e para cada eixo faz ele ser incrementado percentualmente em 10% até o seu máximo.

Para isso o gráfico está apontando para uma planilha com a fonte branca para não aparecer. Ela serve como base saindo de 0 e incrementando até o valor máximo para cada um dos itens.

Este exemplo pode ser facilmente adaptado a outros gráficos que você tenha na sua empresa, para isto basta abrir na guia Desenvolvedor no botão Visual Basic e procurar pelo procedimento lsGrafico que possui os devidos comentários sobre cada etapa do código.

Para verificar o código faça:

1. Clique no botão Gráfico e em Atribuir Macro, note que a macro apontada para ele é lsGrafico;

2. Clique na guia Desenvolvedor e no botão Visual Basic;

3.  No project Explorer clique em Modulo1;

4. Clique no procedimento lsGrafico que realiza a animação do gráfico;

5. Agora você pode estudar o código,  sendo que para cada ponto importante do código existem comentários.

Abraço

Marcos Rieper


Clique aqui e leia mais sobre Excel VBA. https://www.guiadoexcel.com.br/vba/ O Guia do Excel foi criado por Marcos Rieper e oferece artigos, dicas, tutoriais e modelos de planilhas prontas. Aqui você encontra tudo sobre Excel, seja de nível básico, intermediário,  avançado e VBA. O Guia do Excel oferece diversos materiais completamente gratuitos para download. Navegue em nosso site e confira! Conheça também a nossa Loja do Excel https://loja.guiadoexcel.com.br/
Cursos

Curso Excel Completo – Curso Excel Básico + Curso Excel Avançado – Acesso Vitalício

R$218,00 R$179,00

COMPRAR
Cursos

Curso Excel Master – Curso Excel Básico + Curso Excel Avançado + Curso VBA Excel + LP – Acesso Vitalício

R$357,00 R$249,00

COMPRAR
Cursos

Curso Excel PRO – Curso Excel Avançado + Curso VBA Excel + Lógica de programação – Acesso Vitalício

R$258,00 R$199,00

COMPRAR
Cursos

Curso Excel Web – Curso VBA Excel + Lógica de programação + Curso Web Scraping VBA- Acesso Vitalício

R$388,90 R$309,00

COMPRAR

29 Comentários

  1. Fábio disse:

    muito legal esse. nao entendi mt bem como q vc fez e como fazer com outra origem de dados.. mas estudarei

  2. […] 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. […]

  3. juao disse:

    como faz um grafico?

  4. Guilherme Pontes disse:

    Marcos,

    Primeiramente gostaria de elogiar os post sobre dashboard e scoreboards. Eles estão sendo muito útil para mim no meu trabalho.
    Infelizmente a minha empresa só possui o office 2003, como eu faço a movimentação nessa versão? É a mesma coisa??

  5. nao consigo baixar o grafico em movimento
    parece que a problemas com o link

  6. Neto disse:

    Não estou conseguindo baixar o arquivo do arquivo “CRIAR GRÁFICO EM MOVIMENTO NO EXCEL 2007 OU EXCEL 2010”. Poderia, por favor, me enviar por email? Grato.

  7. carlos satriani disse:

    Gostaria de saber se no caso mudar o grafico
    para pizza ele funcinaria ou em que linha da
    programção teria que mexer.
    Grato

  8. Luiz disse:

    Muito bom o grafico em movimento, porem eu tentei adicionar mais 7 colunas e não consegui. Como posso adicionar essas colunas para o grafico ficar com o total de 12 colunas.

    Abraços.

  9. Luiz disse:

    Boa noite Marcos, muito obrigado pela resposta, fiz o que vc falou add mais linhas e alterei a fonte de onde ele busca os dados, so que da a seguinte mensagem: erro em tempo de execução “9” subscrito fora do intervalo.
    Se vc poder adicionar as 12 colunas que preciso e deixar o grafico funcionando lhe agradeço muito.

    Vc pode fazer o teste adicionando mais colunas quando chegar na decima primeira ele dar erro.
    vc poderia verificar por favor.

    Abraços.

  10. Nonato disse:

    Prezado, tudo aqui é muito interessante, é tanta coisa que talvez tenha o que eu precise. Veja só, estou precisando de um gráfico com barras que mudem de cor de acordo com um valor (abaixo ou acima de uma meta). Já baixei um arquivo na net que ajudou, mas não resolveu, pois foram criadas várias séries e preciso que a barra de meta fique logo do lado da barra do valor a qual vai estar na cor de acordo com o seu resultado. Até onde vi o problema só é solucionado em VBA, mesmo copiando algumas coisas no excel não consegui (exemplos abaixo). Você teria alguma planilha já pronta?

    FORMA 1+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

    Code Snippet

    Public Function muda_cor_grafico(faixa As Range, meta As Range, nome_grafico As String)
    For Each Celula In faixa.Cells
    Dim grafico_bar As Integer
    grafico_bar = grafico_bar + 1
    If (Celula.Value >= meta.Cells(grafico_bar)) Then
    Charts(nome_grafico).SeriesCollection(1).Points(grafico_bar).Interior.Color = RGB(0, 107, 50)
    Else
    Charts(nome_grafico).SeriesCollection(1).Points(grafico_bar).Interior.Color = RGB(204, 3, 42)
    End If
    Next
    End Function

    FORMA 2+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

    Code Snippet

    Option Explicit

    Sub FormataBarra(ValorApurado As Currency, ValorMeta As Currency)
    Dim chObj As ChartObject
    Dim ch As Chart

    On Error GoTo ErrHandler

    Set chObj = Sheet1.ChartObjects(1)
    Set ch = chObj.Chart

    If ValorApurado >= ValorMeta Then
    ch.SeriesCollection(1).Interior.Color = RGB(0, 100, 0)
    Else
    ch.SeriesCollection(1).Interior.Color = vbRed
    End If

    ExitHere:
    Exit Sub

    ErrHandler:
    MsgBox Err.Description & vbCrLf & Err.Number & vbCrLf & Err.Source, vbCritical, “Sheet1-FormataBarra”
    Resume ExitHere
    End Sub

    Private Sub Worksheet_Change(ByVal Target As Range)

    On Error GoTo ErrHandler

    ‘Muda a cor da barra do gráfico
    If Not Intersect(Target, Sheet1.Range(“B1:C1”).Precedents) Is Nothing Then
    ‘Usuário alterou a célula B1 (valor apurado) ou C1 (meta)
    If IsNumeric(Sheet1.Range(“B1”).Value) = True And IsNumeric(Sheet1.Range(“C1”).Value) = True Then
    Call FormataBarra(Sheet1.Range(“B1”).Value, Sheet1.Range(“C1”).Value)
    End If
    End If

    ExitHere:
    Exit Sub

    ErrHandler:
    MsgBox Err.Description & vbCrLf & Err.Number & vbCrLf & Err.Source, vbCritical, “Sheet1-Worksheet_Change”
    Resume ExitHere
    End Sub

  11. Leandro disse:

    Marcos bom dia,

    Que erro é esse?
    To usando o 2003

    lValorTotal(i) = Cells(i + 1, 2).Value

    Aproveitando Marcos tem algum modelo de painel com Gráficos?

  12. Nilton Oliveira disse:

    Prezado Marcos,

    Preciso construir um gráfico com os seguintes dados:
    Em uma entrevista de 317 pessoas
    Menos de 18 anos = 161 pessoas
    de 19 a 20 = 146 pessoas
    21 a 30 = 16 pessoas
    31 a 50 = 8 pessoas
    51 acima = 4 pessoas

    Preciso do gráfico mostrando a porcentagem
    Como fazer?

    grato

  13. Rita disse:

    Estou a trabalhar na apresentação da minha tese de dissertação e tenho algumas dúvidas sobre excel:
    1. estou a construir um gráfico de bolhas, que pretendo que seja animado; mas não sei como chegar ao código do gráfico para depois atribuir um botão que inicie a animação do gráfico!alguém me pode dizer como encontro esse código?
    2. a apresentação será feita em power point; sei que em power point há ligação directa a ficheiros de excel… mas a minha dúvida é: depois de fazer o gráfico e animá-lo, e depois de o copiar para power point, a animação do gráfico funciona direito?ou é preciso ir ao ficheiro de excel para ver a animação?
    agradeço desde já qualquer ajuda que venha 🙂

  14. leonardo disse:

    ola, primeiro parabens pelo site, esta me ajudando muito!

    Eu sou iniciante em VBA, estou começando a utilizar, por isso acredito que nao conseguir adaptar esse recurso em um arquivo que ja tenho pronto, poderias me passar como posso fazer essa adaptação?

    obrigado

  15. como vc fez para apontar para planilha em branco para não aparecer, que formula vc usou.

  16. Alexandre disse:

    Ola meu amigo, sou muito fã de seu site. Preciso por favor de sua ajuda, preciso fazer um gráfico de barras que as barras mudam de cor de acordo com a seleção do produto que eu fizer. As barras são independentes, ou seja, cada barra é um produto e serão cores diferentes para cada uma delas. Me ajude, por favor

  17. Gostaria de informações sobre como criar um gráfico em excel para análise de 9box.

  18. Renan disse:

    Boa tarde Marcos…
    Legal sua idéia…estou tentando executar a macro, mas, ela falha na parte ” lValorTotal(i) = Cells(i + 1, 2).Value “.

    Abs

  19. Marcos,

    Preciso de sua ajuda, tenho uma planilha com gráfico e filtro, mas não estou conseguindo gerar a macro.

    Pode me ajudar?

  20. […] Veja este artigo em português: http://guiadoexcel.com.br/criar-grafico-em-movimento-no-excel-2007-ou-excel-2010 […]

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.