Dashboard Excel – Mudar gráficos por botões

Planilha Excel de cotação de preços - Supermercados
Planilha Excel de cotação de preços – Supermercados
15 de maio de 2014
Habilitar guia Desenvolvedor no Excel 2011 para Mac - Editor visual basic VBA
Habilitar guia Desenvolvedor no Excel 2011 para Mac – Editor visual basic VBA
23 de maio de 2014

Objetivo: Realizar a mudança de gráficos em dashboard a partir de botões selecionados. Dashboard Excel – Mudar gráficos por botões

Dashboard mudar gráficos

Esta planilha demonstra a utilização da gravação de macros em VBA, mescladas com algumas alterações realizadas no código fonte para que os gráficos sejam configurados adequadamente a cada caso.

Ao clicar no botão Diário Qtde:

Dashboard mudar gráficos 1

Botão Vendedor Valor:

Dashboard mudar gráficos 2

Botão Produto Valor:

Dashboard mudar gráficos 3

Abaixo o código fonte utilizado para a construção da aplicação:

Sub Grafico_Linha_Quantidade()
    ActiveSheet.ChartObjects("Chart 1").Activate
    ActiveChart.SeriesCollection(1).ApplyDataLabels
    ActiveChart.SeriesCollection(1).DataLabels.Select
    ActiveChart.ChartType = xlLineMarkers
    ActiveChart.SetSourceData Source:=Range("Sumário!$A$2:$B$33")
    ActiveChart.Axes(xlValue).Select
    ActiveChart.Axes(xlValue).MinimumScale = 0
    ActiveChart.Axes(xlValue).MinimumScale = 250
    ActiveChart.Axes(xlValue).MaximumScale = 500
End Sub

Sub Grafico_Linha_Valor()
    ActiveSheet.ChartObjects("Chart 1").Activate
    ActiveChart.SeriesCollection(1).ApplyDataLabels
    ActiveChart.SeriesCollection(1).DataLabels.Select
    Selection.Delete
    ActiveChart.ChartType = xlLineMarkers
    ActiveChart.SetSourceData Source:=Sheets("Sumário").Range("A2:A33,C2:C33")
    ActiveSheet.ChartObjects("Chart 1").Activate
    ActiveChart.Axes(xlValue).Select
    ActiveChart.Axes(xlValue).MinimumScaleIsAuto = True
    ActiveChart.Axes(xlValue).MaximumScaleIsAuto = True
    ActiveChart.Axes(xlValue).MinimumScale = 250
    ActiveChart.Axes(xlValue).MinimumScale = 300000
    ActiveChart.Axes(xlValue).MinimumScale = 350000
End Sub
Sub Grafico_Vendedor_Qtde()
    ActiveSheet.ChartObjects("Chart 1").Activate
    ActiveChart.ChartType = xlBarClustered
    ActiveChart.SetSourceData Source:=Sheets("Sumário").Range("E2:F7")
    ActiveChart.Axes(xlValue).Select
    ActiveChart.Axes(xlValue).MinimumScaleIsAuto = True
    ActiveChart.SeriesCollection(1).Select
    ActiveChart.SeriesCollection(1).ApplyDataLabels
End Sub

Sub Grafico_Vendedor_Valor()
    ActiveSheet.ChartObjects("Chart 1").Activate
    ActiveChart.ChartType = xlBarClustered
    ActiveChart.SetSourceData Source:=Sheets("Sumário").Range("E2:E7")
    ActiveChart.SetSourceData Source:=Sheets("Sumário").Range("E2:E7,G2:G7")
    ActiveChart.Axes(xlValue).Select
    ActiveChart.Axes(xlValue).MinimumScaleIsAuto = True
    ActiveChart.SeriesCollection(1).Select
    ActiveChart.SeriesCollection(1).ApplyDataLabels
End Sub
Sub Grafico_Produto_Qtde()
    ActiveSheet.ChartObjects("Chart 1").Activate
    ActiveChart.SetSourceData Source:=Sheets("Sumário").Range("I2:J5")
    ActiveChart.ChartType = xl3DPie
    ActiveChart.SetElement (msoElementLegendRight)
End Sub
Sub Grafico_Produto_Valor()
    Range("O2").Select
    ActiveSheet.ChartObjects("Chart 1").Activate
    ActiveChart.SetSourceData Source:=Sheets("Sumário").Range("I2:I5")
    ActiveChart.SetSourceData Source:=Sheets("Sumário").Range("I2:I5,K2:K5")
    ActiveChart.ChartType = xl3DPie
End Sub

DIGITE O SEU EMAIL PARA FAZER O DOWNLOAD DOS ARQUIVOS:

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

9 Comentários

  1. Mark disse:

    Caro Marcos

    Por gentileza. Você pode me informar como devo fazer para ter o VBA no Mac?
    Abraços

    Mark

  2. Thifani disse:

    Boa tarde, excelente gráfico!.
    E se quiser incluir mais datas e criar um botão “MÊS”, como proceder?

    Obrigada.

  3. Lucas disse:

    arquivo corrompido

  4. joson disse:

    muito bom.. obrigadoo

  5. Sergio disse:

    Boa noite, poderia me ajudar: como faço uma macro para selecionar um grafico por vez em uma planilha com 20 graficos? inserindo botoes de avançar e recuar?

  6. Eduardo disse:

    Gostaria de receber o downloads dos arquivos … por favor.

    • Marcos Rieper disse:

      Estava com um problema, mas agora você já pode fazer o download normalmente. Para isso, no formulário ao final do artigo digite o seu nome e e-mail para que seja gerado um link de download imediatamente.

      Abraço
      Marcos Rieper

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.