Comprar a Coleção de 15.000 Macros, Funções e Fórmulas do Excel        Dicas


Questão 23:

Minha coluna A Range("a1:an") contem valores das cotações de determinada Ação. Quero traçar um gráfico linear de tal forma que quando o valor da ação cair a linha deve ficar vermelha, e quando a ação subir a linha deve ficar verde.

Solução 23:

Sub ColorLine( )
ActiveSheet.ChartObjects("Chart 1").Activate
AChart = ActiveChart.SeriesCollection(1).Values
For i = 2 To ActiveChart.SeriesCollection(1).Points.Count
With ActiveChart.SeriesCollection(1).Points(i).Border
If AChart(i) >= AChart(i - 1) Then
  .Color = RGB(0, 255, 0)
Else
  .Color = RGB(255, 0, 0)
End If
End With
Next
End Sub