Excel Line chart várias séries relacionadas, colorindo

Question

Estou usando o MS Excel 2010.

Eu tenho uma planilha que se parece com isso

---/ 1001 / 1002 / 1003 / 1101 / 1102 / 1201 / 1202 / 1203 / 1204
R2 / ... 
R3 / ...
...

Eu gostaria de criar um gráfico de linhas com cada coluna de uma série, mas coloridas para que todas as séries com os mesmos dois primeiros dígitos sejam da mesma cor, mas tons diferentes (então 10 ** seriam todos vermelhos (digamos), mas cada vez mais leves tons de vermelho).

Alguma sugestão? Obrigado por qualquer ajuda.

    

Answer 1

Você pode usar algo assim:

Sub ColorLines()

  Dim objSeries As series

  Dim strLastDigits As String

  Dim lngColorIndex As Long

  lngColorIndex = 2
  strLastDigits = ""

  For Each objSeries In Diagramm1.SeriesCollection

    If Left(objSeries.Name, 2) <> strLastDigits Then
      'set new color
      lngColorIndex = lngColorIndex + 1
      objSeries.Border.ColorIndex = lngColorIndex
    Else
      'set shade of current color
      If objSeries.Border.Color > 50 Then
        objSeries.Border.Color = objSeries.Border.Color - 50
      End If
    End If

    strLastDigits = Left(objSeries.Name, 2)
  Next objSeries

End Sub

MAS - o algoritmo concreto para automatizar o sombreamento e a coloração depende de você;)

Este é apenas um exemplo de como você pode fazer isso.