Gráfico com zoom desloc e exibir e ocultar rótulos no Excel

Controle de ordem de produção Excel download
Planilha Ordem de Produção Excel
7 de julho de 2018
Validação de dados tripla dinâmica no Excel
Validação de Dados Tripla Dinâmica no Excel
25 de julho de 2018

Gráfico com zoom desloc e exibir e ocultar rótulos no Excel

Neste artigo temos um exemplo de gráfico com zoom utilizando desloc e como exibir e ocultar rótulos em gráficos no Excel.

O gráfico é movimentado e redimensionado á partir de duas barras de rolagem e os rótulos de dados do gráfico são ocultos e exibidos utilizando para isso VBA no Excel conforme pode ser visto no gif abaixo.

Gráfico com zoom desloc

Veja mais detalhes abaixo da planihla e ao final do artigo como fazer o download.

BASE DE DADOS

A base de dados utilizada contém uma data e horário na coluna Data e uma coliuna simples com valores aleatórios.

Gráfico com zoom desloc e exibir e ocultar rótulos

AJUSTE AUTOMÁTICO DO TAMANHO DO GRÁFICO

Para que o gráfico seja ajustado automaticamente pelas barras de rolagem foram criados dois Nomes Definidos no Excel, um para a data e outro para o valor.

Para o intervalo de Data foi criada a fórmula abaixo no Gerenciador de Nomes.

=DESLOC(Planilha1!$A$2;Planilha1!$F$1;0;Planilha1!$G$2;1)

E para o intervalo de Valor foi criada a fórmula seguinte que é bastante parecida com a anterior.

=DESLOC(Planilha1!$B$2;Planilha1!$F$1;0;Planilha1!$G$2;1)

Sendo que os parâmetros passados á função são os DESLOC(REF, LINS, COLS, [ALTURA],[LARGURA] ), temos o A2 como a primeira data na tabela de dados, o F1 como a quantidade de linhas que será deslocado para baixo, e no G2 a quantidade de linhas do intervalo. A célula F1 e a G2 são movimentadas pelas barras de rolagem.

Gráfico com zoom desloc e exibir e ocultar rótulos 6

CRIAR GRÁFICO COM ZOOM

Antes de criar um gráfico com dados á partir de um intervalo nomeado é necessário que a planilha seja salva.

No campo de valor do gráfico utilize o caminho completo do arquivo como intervalo nomeado =’Gráfico com zoom.xlsm’!Valor.Gráfico com zoom desloc e exibir e ocultar rótulos 4

De forma semelkhante para o rótulo de eixo horizontal utilizamos o intervalo nomeado =’Gráfico com zoom.xlsm’!Data. Atenção, caso não esteja salvo o gráfico irá acusar um erro e não funcionará.Gráfico com zoom desloc e exibir e ocultar rótulos 5

BARRAS DE ZOOM PARA O GRÁFICO

A primeira tarefa, caso você não tenha habilitada, é habilitar a guia Desenvolvedor.

Para isso, clique em Arquivo->Opções.

Clique em Opções e na aba Personalizar Faixa de Opções marque a opção Mostrar guia desenvolvedor na Faixa de Opções.

Habilitar guia desenvolvedor Excel 2010 2013 2016

Na Guia Desenvolvedor clicamos no botão Inserir e selecionamos a opção Barra de Rolagem

Gráfico com zoom desloc e exibir e ocultar rótulos 1

Na primeira barra de rolagem configuramos da seguinte forma.

Gráfico com zoom desloc e exibir e ocultar rótulos 2

No valor mínimo colocamos 1, pois é a quantidade de linhas que serão deslocadas no mínimo, e no valor máximo colocamos a quantidade total de linhas da nossa base de dados. Na célula F1 temos a célula de controle da quantidade de linhas que serão deslocados para baixo no intervalo.

Na outra barra temos uma configuração semelhante, apenas mudamos para a célula G1.

Gráfico com zoom desloc e exibir e ocultar rótulos 3

Na célula G2, que utilizamos nas fórmulas dos nomes definidos o cálculo de =G1-F1 para definirmos pelo intervalo nomeado a quantidade de linhas que serão exibidas no gráfico.

EXIBIR RÓTULOS DE DADOS

Como o rótulo de dados pode atrapalhar a visualização em gráficos que contém muitos dados nós fizemos um código VBA para ocultar os rótulos de dados ou exibir ao executar o código no Excel.

O código para exibir ou ocultar os rótulos de dados do gráfico é o seguinte:

 

Global lflRotulos As Boolean

Sub lsColocarLabels()

    If lflRotulos = False Then
        ActiveSheet.ChartObjects("Gráfico 5").Activate
        ActiveChart.FullSeriesCollection(1).ApplyDataLabels
        ActiveChart.FullSeriesCollection(1).DataLabels.Select
        Selection.NumberFormat = "#.##0,00"
        Range("H7").Select
        lflRotulos = True
    Else
        ActiveSheet.ChartObjects("Gráfico 5").Activate
        ActiveChart.FullSeriesCollection(1).DataLabels.Select
        Selection.Delete
        Range("H7").Select
        lflRotulos = False
    End If
End Sub

O código é executado ao clicar no botão que está linkado ao código acima.

Gráfico com zoom desloc no Excel

Abraço

Marcos Rieper

Veja mais em guiadoexcel.com.br


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 Básico – 1 ano de acesso

R$99,00

COMPRAR
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

7 Comentários

  1. Valdir De Nez disse:

    Parabéns pelo seu trabalho!

  2. claudio disse:

    Gostei muito!!

  3. Cláudio disse:

    Bom Dia, Marcos tudo bem? mão estou conseguindo colocar o intervalo nomeado no grafico, sempre que tento aparece uma msg de erro

    • Marcos Rieper disse:

      Olá Cláudio,

      Obrigado pelo seu contato. Veja que para colocar o intervalo nomeado tem que colocar o caminho completo da planilha e o nome do intervalo nomeado, assim como está na planilha exemplo, ou melhor, veja no vídeo que eu demonstro como fazer esta tarefa.

      Abraço
      Marcos Rieper

  4. Cláudio disse:

    Boa Tarde Marcos td bem?´muito bom esse artigo, eu não estou conseguindo colocar o nome da planilha na serie do grfico,aparece um erro,ja salvei a planilha de criar o gráfico , mas não funciona, o que faço?

  5. Cleomir disse:

    Bom dia Marcos…

    Excelente trabalho, mas estou tendo erro em seu código VBA…ao clicar no botão Exibir Rótulos o mesmo me retorna erro de compilação: Método ou membros de dados não encontrado…

    Essa parte do código fica em amarelo…” Sub lsColocarLabels()..”

Deixe uma resposta

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *

This site uses Akismet to reduce spam. Learn how your comment data is processed.

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.