[VBA-E] Rafraichissement d'un graphe
Bonjour,
J'ai un petit souci de mise en forme.
Mon objectif est de faire apparaître un graphe avec plusieurs courbes avec une courbe qui change de couleur à chaque passage de boucle (pour avoir un effet visuel de progression : en gros une courbe rouge se "balade" au milieu de courbes noires).
Ci joint le code :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
Dim j As Single
ActiveSheet.ChartObjects("Graphique 1").Activate
For j = 1 To 5 'ttes courbes en noir
ActiveChart.SeriesCollection(j).Select
With Selection.Border
.ColorIndex = 1
End With
Next j
For num = 1 To 5 'courbe active en rouge
ActiveChart.SeriesCollection(num).Select
With Selection.Border
.ColorIndex = 3
End With
If num > 1 Then 'on remet courbe précédente en noir
ActiveChart.SeriesCollection(num - 1).Select
With Selection.Border
.ColorIndex = 1
End With
End If
Sleep (200)
Next num |
Ça marche sauf que à chaque changement de couleur de courbe, le graphe est rafraichi dans sa totalité ce qui fait que les axes, les légendes "clignotent" : ce n'est pas beau, ce n'est pas fluide.
Y a t'il un moyen pour éviter ce rafraichissement ?
