Macro para pintar rótulo de dados em gráfico

[Carol1985]

Gente, boa noite!

Preciso da ajuda de vocês. Tenho um gráfico e nele preciso pintar diariamente o rótulo de dados com valores acima de 120.

É possível executar isso via macro? Há a possibilidade de fazer a formatação condicional via fórmula?

Abraços,

Carol.

[Patropi]

Boa noite Carol

Se eu entendi bem o que você deseja, dá para fazer sem usar VBA.

Neste link tem um tutorial:

http://adilsonsoledade.blogspot.com.br/2010/01/criando-um-grafico-de-colunas-com-cores.html

Dê retorno.

Um abraço.

[Carol1985]

Oi Patropi, eu li o tutorial, no entanto, preciso que aquela caixinha que vai o número do gráfico seja pintada, ou seja, total vez que aquele número for maior que 120, a caixinha deve ficar vermelha, por exemplo.

Beijos,

[Carol1985]

Patropi, olha só...achei este link com uma planilha que faz algo parecido com o que eu necessito. Toda vez que o valor no rótulo de dados for maior que 100% ele deixa a cor do texto do rótulo de dados em vermelho e em negrito, mas não pinta aquela caixa do rótulo.

O link é http://www.4shared.com/file/p3svVSfd/frmtLBL.html

Seria possível adaptar esta macro? Segue o código da mesma (bom, copiei tudo que estava no módulo);

Sub Rotular()

Call Macro1

Call Macro2

End Sub

Sub Macro1()

Dim lbl As DataLabel

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

ActiveChart.SeriesCollection(1).DataLabels.Select

i = 1

For Each lbl In ActiveChart.SeriesCollection(1).DataLabels

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

x = lbl.Text

If x <> "" Then

t = Len(x)

y = Mid(x, 1, t - 1)

If CDbl(y) > 100 Then

With Selection.Format.TextFrame2.TextRange.Font

.Fill.ForeColor.RGB = RGB(255, 0, 0)

.Bold = msoTrue

End With

Else

With Selection.Format.TextFrame2.TextRange.Font

.Fill.ForeColor.RGB = RGB(255, 255, 255)

.Bold = msoFalse

End With

End If

End If

i = i + 1

Next

End Sub

Sub Macro2()

Dim lbl As DataLabel

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

ActiveChart.SeriesCollection(1).DataLabels.Select

i = 1

For Each lbl In ActiveChart.SeriesCollection(2).DataLabels

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

x = lbl.Text

If x <> "" Then

t = Len(x)

y = Mid(x, 1, t - 1)

If CDbl(y) > 100 Then

With Selection.Format.TextFrame2.TextRange.Font

.Fill.ForeColor.RGB = RGB(255, 0, 0)

.Bold = msoTrue

End With

Else

With Selection.Format.TextFrame2.TextRange.Font

.Fill.ForeColor.RGB = RGB(255, 255, 255)

.Bold = msoFalse

End With

End If

End If

i = i + 1

Next

End Sub

Obrigada.