quicktibong
XLDnaute Nouveau
Bonjour,
j'ai créé des TCD. A partir de ces tableaux j'ai créé des graphiques dont je voudrais changer la mise en forme et autres petits détails à l'aide d'une macro.
Mais je n'arrive pas à trouver la procédure pour appeler mon graphique. J'ai essayé plusieurs combinaisons dans les 5/6 premières lignes mais aucune de fonctionne. Auriez vous une syntaxe à me proposer ?
En vous remerciant par avance pour l'aide.
j'ai créé des TCD. A partir de ces tableaux j'ai créé des graphiques dont je voudrais changer la mise en forme et autres petits détails à l'aide d'une macro.
Mais je n'arrive pas à trouver la procédure pour appeler mon graphique. J'ai essayé plusieurs combinaisons dans les 5/6 premières lignes mais aucune de fonctionne. Auriez vous une syntaxe à me proposer ?
Code:
Sub Mise_en_forme_Graph1()
Dim Montants_Loc As Worksheet
Dim Graph1 As Chart
Set Montants_Loc = ThisWorkbook.Sheets("Montants locations")
'Set Graph1 = Montants_Loc.Charts("Graphique 1")
Montants_Loc.ChartObjects(Graph1).Name = "Graphique 1"
Montants_Loc.ChartObjects("Graphique 1").Activate
With Graph1.ChartArea.Format.Fill
.Visible = msoTrue
.Solid
.ColorIndex = 2
End With
With Graph1.ChartArea.Format.Line
.Visible = msoCTrue
.DashStyle = msoLineSolid
.Weight = 4
End With
With Graph1.SeriesCollection(1).Interior
.ColorIndex = 32
.Pattern = xlSolid
End With
End Sub
En vous remerciant par avance pour l'aide.