Este fórum está sendo desativado

[andre0803]

Boa tarde.

Amigos, tentei varias maneiras e até um código me passaram para tentar executar a tarefa de remover os rótulos dos meus gráficos.
O que preciso? - tenho vários gráficos com 3 linhas em cada, essas linhas contem cada dia do mês, como são vários gráficos, os rótulos com valor estão misturando deixando muito "poluído", eu gostaria de um macro para remover os rótulos e deixar rotulo apenas no ultimo dia, em anexo segue print de como esta o gráfico.

Abaixo segue um código que funciona quase 100%, porem nele só a linha em vermelho funciona, quando crio outra macro com o mesmo código não remove os rótulos, ou faz ao contrario, remove apenas o ultimo rótulo, poderiam me ajudar por gentileza?

Sub Usinagem()
Dim x As Point
Dim Eix, Graf As String
Dim i As Integer

Graf = "Grafico Teste"
Eix = "Usinagem 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 Su

[alexandrevba]

Boa tarde!!

Vc poderia por gentileza postar seu arquivo modelo?

Att

[andre0803]

Boa tarde Alexandre.

Segue um "pedaço" do arquivo, lembrando que no arquivo integral tem mais de 60 gráficos onde eu preciso remover os rótulos de tudo e deixar apenas o rotulo no ultimo dia (é feito diariamente, então a cada dia preciso remover os rótulos do dia anterior e deixar do dias atual).

[andre0803]

Boa tarde!!

Vc poderia por gentileza postar seu arquivo modelo?

Att

Bom dia Alexandre.

Conseguiu verificar, tem como fazer via VBA?