Bonjour,

J'ai des graphiques qui se créent à l'aide d'une macro Excel. Cependant, j'aimerais pouvoir mettre certains éléments de mise en forme particuliers.

Notamment : J'ai des lignes de points et je voudrais rajouter une ombre
J'ai des colonnes où je voudrais rajouter un biseau de type cercle. J'ai vu dans l'aide qu'il fallait mettre pour cela ThreeDFormat = msoBevelCircle
Cependant je ne connais pas la synthaxe.

Et les capture d'écran de ce que j'ai obtenu pour le moment :



Et ce que je veux obtenir :



Petite précision : Je travaille avec Excel 2007

Info : Voici le code actuel de création des graphiques :


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
Range("A1").Select 
ActiveSheet.Shapes.AddChart.Select 
ActiveChart.ChartType = xlLineMarkers 
ActiveChart.ChartArea.Select 
ActiveChart.Location Where:=xlLocationAsNewSheet 
ActiveChart.SeriesCollection.NewSeries 
ActiveChart.SeriesCollection(1).Name = "=Données!$F$3" 
ActiveChart.SeriesCollection(1).Values = "=Données!$F$" & j & ":$F$" & i - 1 
ActiveChart.SeriesCollection.NewSeries 
ActiveChart.SeriesCollection(2).Name = "=Données!$L$3" 
ActiveChart.SeriesCollection(2).Values = "=Données!$L$" & j & ":$L$" & i - 1 
ActiveChart.SeriesCollection.NewSeries 
ActiveChart.SeriesCollection(3).Values = "='Feuille calculs courbe'!$A$" & j - 2 & ":$A$" & i - 3 
ActiveChart.SeriesCollection.NewSeries 
ActiveChart.SeriesCollection(4).Values = "='Feuille calculs courbe'!$B$" & j - 2 & ":$B$" & i - 3 
ActiveChart.SeriesCollection.NewSeries 
ActiveChart.SeriesCollection(5).Values = "='Feuille calculs courbe'!$C$" & j - 2 & ":$C$" & i - 3 
ActiveChart.SeriesCollection.NewSeries 
ActiveChart.SeriesCollection(6).Name = "=Données!$N$3" 
ActiveChart.SeriesCollection(6).Values = "=Données!$N$" & j & ":$N$" & i - 1 
ActiveChart.SeriesCollection.NewSeries 
ActiveChart.SeriesCollection(7).Name = "=Données!$P$3" 
ActiveChart.SeriesCollection(7).Values = "=Données!$P$" & j & ":$P$" & i - 1 
ActiveChart.SeriesCollection(3).ChartType = xlAreaStacked 
ActiveChart.SeriesCollection(4).ChartType = xlAreaStacked 
ActiveChart.SeriesCollection(5).ChartType = xlAreaStacked 
ActiveChart.SeriesCollection(6).ChartType = xlColumnClustered 
ActiveChart.SeriesCollection(7).ChartType = xlColumnClustered 
ActiveChart.Legend.LegendEntries(3).Select 
Selection.Delete 
ActiveChart.Legend.LegendEntries(2).Select 
Selection.Delete 
ActiveChart.Legend.LegendEntries(1).Select 
Selection.Delete 
ActiveChart.SeriesCollection(7).AxisGroup = 2 
ActiveChart.SeriesCollection(6).AxisGroup = 2 
ActiveChart.SeriesCollection(6).ApplyDataLabels 
ActiveChart.SeriesCollection(7).ApplyDataLabels 
ActiveChart.Axes(xlValue, xlSecondary).MaximumScale = 15 
ActiveChart.Axes(xlValue, xlSecondary).MinimumScale = 0 
ActiveChart.SeriesCollection(3).Interior.ColorIndex = xlNone 
ActiveChart.SeriesCollection(4).Interior.Color = RGB(217, 150, 148) 
ActiveChart.SeriesCollection(7).Interior.Color = RGB(217, 150, 148) 
ActiveChart.SeriesCollection(6).Interior.Color = RGB(195, 214, 155) 
ActiveChart.SeriesCollection(5).Interior.Color = RGB(195, 214, 155)

Merci pour votre aide,

Cam'