[Toutes versions] format chart area/ ActiveChart/drawingObjects

[camad]

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

[Daniel.C]

Bonsoir,

Qu'est-ce que tu veux faire exactement ? et quelle est-ta version d'Excel ?