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 :

http://www.upix.fr/images/6mnaftsh4iwu2dna55o.jpg

Et ce que je veux obtenir :

http://www.upix.fr/images/x99rls55ds09imavnavb.jpg

Petite précision : Je travaille avec Excel 2007

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


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'

Configuration: Windows XP
Internet Explorer 6.0