Gráfico de líneas de Excel múltiples series relacionadas, colorear

Question

Estoy usando MS Excel 2010.

Tengo una hoja de trabajo que se parece a esta

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

Me gustaría crear un gráfico de líneas con cada columna como una serie, pero coloreada de modo que todas las series con los mismos dos primeros dígitos sean del mismo color pero con diferentes tonos (por lo que 10** serían todas rojas (por ejemplo), pero con tonos de rojo cada vez más claros). ).

¿Alguna sugerencia? Gracias por cualquier ayuda.

Answer 1

Puedes usar algo como esto:

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

PERO, el algoritmo concreto para automatizar el sombreado y el color depende de usted;)

Este es sólo un ejemplo de cómo podrías hacer esto.