Sub DatLab()
  Dim x  As Point
  Dim Eix, Graf As String
  Dim i As Integer
  
  Graf = "Aqui o nome do gráfico"
  Eix = "aqui o nome do eixo"
  
  ActiveSheet.ChartObjects(Graf).Activate
  ActiveChart.FullSeriesCollection(Eix).ApplyDataLabels
  For Each x In ActiveChart.FullSeriesCollection(Eix).Points
    i = i + 1
    x.DataLabel.Delete
  Next
  ActiveChart.FullSeriesCollection(Eix).Points(i).ApplyDataLabels
End Sub

Não dava certo por que você precisa declarar variáveis, e quando você grava uma macro ela grava constantes.

Mais simples ainda clica em todos os rotulos deleta, depois clica somente no último ponto até somente ele ficar selecionado e adiciona o rótulo. (Sem macros)

Não dava certo por que você precisa declarar variáveis, e quando você grava uma macro ela grava constantes.

Mais simples ainda clica em todos os rótulos deleta, depois clica somente no último ponto até somente ele ficar selecionado e adiciona o rótulo. (Sem macros)

Boa Tarde.
Primeiramente, obrigado pela ajuda vbajr10.

Funcionou no eixo na cor vermelha no meu gráfico, porem tenho mais eixos (verde e azul) para efetuar a mesma tarefa, quando crio uma macro igual a que você passou para qualquer um deles (verde azul) não funciona, somente na linha vermelha esta correto, é retirado os rótulos e deixa apenas o ultimo.

Outra coisa, eu tenho vários gráficos nessa planilha e precisa efetuar essa tarefa em todos eles, tem como criar uma macro onde adiciono os nomes dos gráficos e eixos para remover os rótulos deixando apenas o ultimo?

Obrigado desde já.

Bom dia.

Amigos, alguém consegue me ajudar por gentileza?

Boa tarde!

Vai colando no mesmo sub as instruções do código mudando o nome do gráfico e eixo até obter todos, não é o melhor mas é simples e funcional e vai te ajudar.

Tchau

vbajr10, tentei fazer mas quando executo a macro não acontece nada, nao aparece erro, e nao altera nada, segue código abaixo, o que estou fazendo errado, poderia me ajudar por gentileza?

Sub RemoveRotulos()
  Dim x  As Point
  Dim Eix, Graf As String
  Dim i As Integer
  
  Graf = "Gráfico 65"
  Eix = "Usinagem Previsto"
  
  Graf = "Gráfico 66"
  Eix = "Usinagem Previsto"
  
  Graf = "Gráfico 67"
  Eix = "Usinagem Previsto"
  
  Graf = "Gráfico 65"
  Eix = "Usinagem Realizado"
  
  Graf = "Gráfico 66"
  Eix = "Usinagem Realizado"
  
  Graf = "Gráfico 67"
  Eix = "Usinagem Realizado"
  
  Graf = "Gráfico 65"
  Eix = "Injeção Realizado"
  
  Graf = "Gráfico 66"
  Eix = "Injeção Realizado"
  
  Graf = "Gráfico 67"
  Eix = "Injeção Realizado"
  
  ActiveSheet.ChartObjects(Graf).Activate
  ActiveChart.FullSeriesCollection(Eix).ApplyDataLabels
  For Each x In ActiveChart.FullSeriesCollection(Eix).Points
    i = i + 1
    x.DataLabel.Delete
  Next
  ActiveChart.FullSeriesCollection(Eix).Points(i).ApplyDataLabels
End Sub

Andre boa noite!
Está errado. Se ninguém corrigir amanhã a noite corrijo, estou indo dormir.

Andre boa noite!
Está errado. Se ninguém corrigir amanhã a noite corrijo, estou indo dormir.

Obrigado pela atenção vbajr10!

Eu não sou programador e também não tenho um nível expert em Excel, não consegui fazer essa tarefa, tentei de varias maneiras, o máximo que consegui foi remover os rótulos de todos os meus eixos dentro de 1 gráfico (até aí perfeito), mas o rotulo só fica no ultimo dia se realmente for ultimo dia nos meus dados, exemplo:

Minha macro remove todos rótulos de todos eixos, mas só deixa o rotulo de ultimo dia se o eixo estiver no ultimo dia do mês, quando está em qualquer dia que não seja o ultimo, não aparece o rotulo.

Em anexo deixo uma imagem para tentar ajudar na explicação.

Abaixo segue código que fiz com base no que vi aqui, pode ser que tenha varios erros, pois como disse nao sou programador, nao conheco a linguagem VB.

Sub RemoveRot()
  Dim x  As Point
  Dim Eix67, Eix67b, Eix67c, Graf67 As String
  Dim a, b, c As Integer
      
  Graf67 = "Gráfico 67"
  Eix67 = "Usinagem Realizado"
  Eix67b = "Injeção Realizado"
  Eix67c = "Usinagem Previsto"
    
'---------------------------------------------------------------
'Grafico 67
'Eixo Usinagem Realizado

  ActiveSheet.ChartObjects(Graf67).Activate
  ActiveChart.FullSeriesCollection(Eix67).ApplyDataLabels
  For Each x In ActiveChart.FullSeriesCollection(Eix67).Points
    a = a + 1
    x.DataLabel.Delete
  Next
  ActiveChart.FullSeriesCollection(Eix67).Points(a).ApplyDataLabels
'------------
  'Eixo Injeção Realizado
  
  ActiveChart.FullSeriesCollection(Eix67b).ApplyDataLabels
  For Each x In ActiveChart.FullSeriesCollection(Eix67b).Points
    b = b + 1
    x.DataLabel.Delete
  Next
  ActiveChart.FullSeriesCollection(Eix67b).Points(b).ApplyDataLabels
'------------
 'Eixo Usinagem Previsto
 
  ActiveChart.FullSeriesCollection(Eix67c).ApplyDataLabels
  For Each x In ActiveChart.FullSeriesCollection(Eix67c).Points
    c = c + 1
    x.DataLabel.Delete
  Next
  ActiveChart.FullSeriesCollection(Eix67c).Points(c).ApplyDataLabels
'----------------------------------------------------------------

  
End Sub

Oi. Envia a planilha com varios gráficos que vc usa que amanhã eu escrevo e te envio.

Oi. Envia a planilha com varios gráficos que vc usa que amanhã eu escrevo e te envio.

Boa tarde vbajr10!

Em anexo vou colocar um Excel com uma parte do que faço, é complicado colocar um arquivo integral da empresa, com esse anexo você entenderá e acredito que conseguirá fazer a macro, o que faltará pra mim é dar continuidade no código adicionando os nomes de gráficos e eixos dos mais de 60 gráficos que tenho.

Se precisar de alguma informação é só falar.

Muito Obrigado.

Boa tarde!

Boa tarde!

Boa tarde.

Vbrjr10, eu testei em casa (excel 2007), porem apresenta erro, anexei duas telas com o erro, poderia verificar quando tiver um tempo por favor?
Nao executa nada, ja vai pra tela de depuração.

Vbajr10,

Testei na versão Excel 2013 e não funcionou, não apareceu erro algum, porem só apresentou a MSGBox que você configurou e não alterou os rótulos.
Obs.: os nomes dos eixos são todos iguais, no seu código esta correto esses nomes, não precisei alterar.

Bom dia.

Prezados, alguém consegue me ajudar por gentileza?