Macro Do Excel

[nobu]

Eu montei uma macro para excluir as legendas que possuem 0% em sua caixa de texto, mas eu não consigo deefinir uma condição para exclui-las, aqui vai a macro se alguem tiver alguma ideia por favor me ajude.

ActiveSheet.ChartObjects("Gráfico 31").Activate

ActiveChart.SeriesCollection(1).DataLabels.Select

ActiveChart.SeriesCollection(1).Points(5).DataLabel.Select

If ActiveChart.SeriesCollection(1).Points(5).DataLabel.Text = "0%" Then

ActiveChart.SeriesCollection(1).Points(5).DataLabel.Select

Selection.Delete

Else

ActiveChart.SeriesCollection(1).DataLabels.Select

ActiveChart.SeriesCollection(1).Points(4).DataLabel.Select

If ActiveChart.SeriesCollection(1).Points(4).DataLabel.Text = "0%" Then

ActiveChart.SeriesCollection(1).Points(4).DataLabel.Select

Selection.Delete

Else

ActiveChart.SeriesCollection(1).DataLabels.Select

ActiveChart.SeriesCollection(1).Points(3).DataLabel.Select

If ActiveChart.SeriesCollection(1).Points(3).DataLabel.Text = "0%" Then

ActiveChart.SeriesCollection(1).Points(3).DataLabel.Select

Selection.Delete

Else

ActiveChart.SeriesCollection(1).DataLabels.Select

ActiveChart.SeriesCollection(1).Points(2).DataLabel.Select

If ActiveChart.SeriesCollection(1).Points(2).DataLabel.Text = "0%" Then

ActiveChart.SeriesCollection(1).Points(2).DataLabel.Select

Selection.Delete

Else

ActiveChart.SeriesCollection(1).DataLabels.Select

ActiveChart.SeriesCollection(1).Points(1).DataLabel.Select

If ActiveChart.SeriesCollection(1).Points(1).DataLabel.Text = "A 0%" Then

ActiveChart.SeriesCollection(1).Points(1).DataLabel.Select

Selection.Delete

End If

End If

End If

End If

End If

Obrigado.