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

9 Comments

  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. 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?

  5. 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.