Palette couleur d'une legende d'un graph surface

  • Initiateur de la discussion bicoun
  • Date de début
B

bicoun

Guest
Salut,

Je continue a poser mes questions ici, ca a l'air de répondre plutot pas mal.

J'ai une representation 3D de 29*33 données. Appelons z la valeur de chaque couple (x,y), z est compris entre -4 et +4.
Je veux que les données aient une couleur virant du bleu au rouge quand on s'approche des extrémités de mon intervale [-4,+4]

Actuellement, je fais comme ca:

Private Sub Chart_Activate()
Static InitColors As Boolean
If InitColors = False Then
iNbLegend = 16
iMilieuLegend = iNbLegend / 2
For i = 0 To iMilieuLegend Step 1
iColorB = 511 * i / iNbLegend
iColorR = 255 - iColorB
ActiveWorkbook.Colors(56 - i) = RGB(iColorR, 0, iColorB)
Next i
For i = iMilieuLegend To iNbLegend Step 1
iColorB = 511 - 511 * i / iNbLegend
iColorR = 255 - iColorB
ActiveWorkbook.Colors(56 - i) = RGB(iColorR, 0, iColorB)
Next i

iNbLegend = 16
For i = 1 To iNbLegend Step 1
Sheets("Shift Lin. Error").Select
ActiveChart.legend.LegendEntries(i).LegendKey.Select
With Selection.Interior
.ColorIndex = 56 - i
End With
Next i
InitColors = True
End If

End Sub


C'est bourrin, parce qu'a chaque chaque passage dans la macro, ca fait retracer le graphe a cheque step de chaque boucle: 8+8+16 rafraichissements, bé c trop lent

J'aurais donc besoin d'un truc pour définir des couleurs de légende plus facilement, ou alors un truc pour faire rafraichir mon chart uniquement à la fin de ma macro

Merci