format chart area/ ActiveChart/drawingObjects
Bonjour,
Je tente de "customiser" les graphiques générés par ma macro sur VBA.
Mes graphiques n ont pas de noms donc j utilise ActiveChart dans le code. J ai un bout de code qui coince pour changer le format du graphe (je l ai indiqué en rouge).
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
| With ActiveChart.ChartArea.Border
.ColorIndex = 57
.Weight = 2
.LineStyle = 1
End With
Sheets("Synthese").DrawingObjects.RoundedCorners = False
Sheets("Synthese").DrawingObjects.Shadow = False
Sheets("Synthese").DrawingObjects.Select
Selection.DrawingObjects.Fill.OneColorGradient Style:=msoGradientFromCenter, Variant:=2, _
Degree:=0.231372549019608 With ActiveChart.SeriesCollection(2).Border
.ColorIndex = 50
.Weight = xlThin
.LineStyle = xlContinuous
End With |
Merci d avance à celui ou celle qui m aidera ;)
