Comment est-ce que je modifie par programme la couleur de ligne pour une série dans un graphique dans Excel 2007

Question

J'ai un graphique avec une série qui dénote un grand ensemble (1000) de mesures discrètes. Certains d'entre eux sont de mauvaises mesures et je veux colorer la ligne pour la série en fonction d'un autre ensemble de données qui décrit la précision des mesures. Les mauvaises mesures doivent être en rouge et les bonnes mesures en vert et entre les deux sur une sorte de dégradé allant du rouge au jaune au vert.

Cela devrait pouvoir être programmé avec VBA mais je n'ai aucune idée de ce qu'il faut faire. Quelqu'un peut-il me donner quelques conseils?

Answer 1

Il est assez facile de colorer une ligne de graphique en VBA. Voici quelques notes.

Dim cht As Chart 
Dim sc As Series 
Dim blnBad As Boolean 
Dim j 

j = 85 'RGB orange ' 
blnBad = False 

'This is a chart called Chart 1, it would be possible ' 
'to use the charts collection ' 
Set cht = ActiveSheet.ChartObjects("Chart 1").Chart 
'A chart is composed of series of data ... ' 
For Each sc In cht.SeriesCollection 
    ' ... that you can iterate through to pick up ' 
    ' the individual data values, or a data range. ' 
    ' Values in this case. ' 
    For i = LBound(sc.Values) To UBound(sc.Values) 
     ' That can be checked against another set of ' 
     ' values in the range Bad. ' 
     With ActiveSheet.Range("Bad") 
      ' So, look for the value ... ' 
      Set c = .Find(sc.Values(i), lookat:=xlWhole, LookIn:=xlValues) 
      ' and if it is found ... ' 
      If Not c Is Nothing Then 
       ' ... then set the Bad flag ' 
       blnBad = True 
      End If 
     End With 
    Next 
    ' So, this range contains a Bad value ' 
    ' and we will colour it red ... ' 
    If blnBad Then 
     sc.Border.Color = RGB(255, 0, 0) 
     ' ... not forgetting the markers ' 
     sc.MarkerForegroundColor = RGB(255, 0, 0) 
    Else 
     ' Otherwise, use an increasingly yellow colour ' 
     sc.Border.Color = RGB(255, j, 0) 
     sc.MarkerForegroundColor = RGB(255, j, 0) 

     j = j + 30 ' getting more yellow 
     ' Debug.Print j ' uncomment to see j in the immediate window ' 
    End If 
    blnBad = False 
Next 
End Sub 

Answer 2

Êtes-vous verrouillé sur VBA? Une façon d'y parvenir est d'ouvrir votre archive de documents OOXML .xlsx (il s'agit en fait d'une archive Zip). Ensuite, vous avez un accès gratuit aux données XML qui composent le document lui-même. Cela pourrait être couru à travers une feuille de style XSL ou tout autre script de votre choix, puis rezipped.