A
arno433
Guest
Bonjoue a tous,
J'ai quelques souci sur excel et j'espere que vous allé pouvoir m'aider.
J'ai plein de graphiques sous plusieurs onglets (un graphique par onglet)
Suir chaque graphique j'ai trois courbes.
J'aimerai changer la couleur et l'epaisseur de chaque courbe pour tous les onglets.
Pour le moment j'ai essayé de le faire pour un seul onglet et voici ce que j'ai:
ActiveChart.SeriesCollection(3).Select
With Selection.Border
.ColorIndex = 3
.Weight = xlMedium
.LineStyle = xlContinuous
.MarkerSize = 3
End With
With Selection
.MarkerBackgroundColorIndex = xlNone
.MarkerForegroundColorIndex = xlNone
.MarkerStyle = xlNone
.Smooth = False
.MarkerSize = 3
.Shadow = False
End With
ActiveChart.SeriesCollection(2).Select
With Selection.Border
.ColorIndex = 11
.Weight = xlMedium
.LineStyle = xlContinuous
End With
With Selection
.MarkerBackgroundColorIndex = xlNone
.MarkerForegroundColorIndex = xlNone
.MarkerStyle = xlNone
.Smooth = False
.MarkerSize = 3
.Shadow = False
End With
ActiveChart.SeriesCollection(1).Select
With Selection.Border
.ColorIndex = 4
.Weight = xlMedium
.LineStyle = xlContinuous
End With
With Selection
.MarkerBackgroundColorIndex = xlNone
.MarkerForegroundColorIndex = xlNone
.MarkerStyle = xlNone
.Smooth = False
.MarkerSize = 3
.Shadow = False
End With
End Sub
Le probleme c'est que quand je lance la macro, il applique les modification a une seule courbes et non au trois.
Pouvez vous m'aider svp????
merci
J'ai quelques souci sur excel et j'espere que vous allé pouvoir m'aider.
J'ai plein de graphiques sous plusieurs onglets (un graphique par onglet)
Suir chaque graphique j'ai trois courbes.
J'aimerai changer la couleur et l'epaisseur de chaque courbe pour tous les onglets.
Pour le moment j'ai essayé de le faire pour un seul onglet et voici ce que j'ai:
ActiveChart.SeriesCollection(3).Select
With Selection.Border
.ColorIndex = 3
.Weight = xlMedium
.LineStyle = xlContinuous
.MarkerSize = 3
End With
With Selection
.MarkerBackgroundColorIndex = xlNone
.MarkerForegroundColorIndex = xlNone
.MarkerStyle = xlNone
.Smooth = False
.MarkerSize = 3
.Shadow = False
End With
ActiveChart.SeriesCollection(2).Select
With Selection.Border
.ColorIndex = 11
.Weight = xlMedium
.LineStyle = xlContinuous
End With
With Selection
.MarkerBackgroundColorIndex = xlNone
.MarkerForegroundColorIndex = xlNone
.MarkerStyle = xlNone
.Smooth = False
.MarkerSize = 3
.Shadow = False
End With
ActiveChart.SeriesCollection(1).Select
With Selection.Border
.ColorIndex = 4
.Weight = xlMedium
.LineStyle = xlContinuous
End With
With Selection
.MarkerBackgroundColorIndex = xlNone
.MarkerForegroundColorIndex = xlNone
.MarkerStyle = xlNone
.Smooth = False
.MarkerSize = 3
.Shadow = False
End With
End Sub
Le probleme c'est que quand je lance la macro, il applique les modification a une seule courbes et non au trois.
Pouvez vous m'aider svp????
merci