VBA Excel 2007 - Couleurs graphiques

Bonjour,

J'ai créé une macro sous VBA Excel 2003 créant une série de graphique. J'ai une procédure qui met en forme ces graphiques avec des jolis dégradés...Jusque là tout va bien...

Problème : mon entreprise est passé sous Office 2007...et là, après quelques mises à jour de mon code, les couleurs des graphs sont très moches...

En effet la gestion des couleurs change...Dans 2007 on définit les couleurs point par point...et je n'ai pas trouvé de code VBA permettant de choisir les couleurs souhaitées point par point...

J'ai actuellement le code suivant pour customiser mes graph :


For i = 1 To 5
With ActiveChart.SeriesCollection(1).Points(i)
.Border.ColorIndex = 11
.Border.Weight = xlThin
.Border.LineStyle = xlContinuous
.Shadow = False
If i < 3 Then
.Fill.OneColorGradient Style:=msoGradientDiagonalUp, Variant:=1, Degree:=0.831357289997711
Else
.Fill.OneColorGradient Style:=msoGradientDiagonalUp, Variant:=2, Degree:=0.831357289997711
End If
.Fill.Visible = True
If i = 1 Then
.Fill.ForeColor.SchemeColor = 44
ElseIf i = 2 Then
.Fill.ForeColor.SchemeColor = 41
ElseIf i = 3 Then
.Fill.ForeColor.SchemeColor = 37
ElseIf i = 4 Then
.Fill.ForeColor.SchemeColor = 3
Else
.Fill.ForeColor.SchemeColor = 15
End If
End With
Next i



des suggestions ?