Ir ao conteúdo
  • Cadastre-se
Entre para seguir isso  
nobu

Macro

Recommended Posts

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.

:-BEER

Compartilhar este post


Link para o post
Compartilhar em outros sites

Tópico bloqueado.

Motivos:

1) Fora do local adequado (o correto seria a área Office)

2) Usuário já postou o mesmo tópico neste link: url=http://forum.clubedohardware.com.br/index.php?showtopic=162999

Peço que não repitam tópicos, com o intuito de obter respostas com mais urgência (ou qualquer outra intenção). Mantenham a discussão no primeiro tópico aberto, afim de manter a ordem e organização no Fórum.

Grato pela compreensão.

Compartilhar este post


Link para o post
Compartilhar em outros sites
Visitante
Este tópico está impedido de receber novos posts.
Entre para seguir isso  





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×