Discussion :

[cameleon33]

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'

[AlainTech]

As-tu essayé de créer ton graphique en activant l'enregistreur de macro?

C'est la meilleure manière de connaître les syntaxes de tout ce qui est mise en forme.

[cameleon33]

As-tu essayé de créer ton graphique en activant l'enregistreur de macro?

C'est la meilleure manière de connaître les syntaxes de tout ce qui est mise en forme.

Merci pour ta réponse.

Oui j'ai essayé en utilisant l'enregistreur de macro, mais il n'enregistre pas la mise en forme (changement des couleurs, ombres etc...)

Pourtant j'ai trouvé la synthaxe pour le changement de couleurs. Je suppose donc qu'il est possible qu'il existe des fonctions pour les ombres et les biseaux.

Cam'

[JMPS.VBA]

J'arrive un peu tard si j'en juge par la date du poste ...

pour ajouter de l'ombre :
ActiveChart.SeriesCollection(1).Shadow = True

pour la mise en forme de l'ombre c'est plus compliqué... mais ça doit être possible...

c'est tout ce que je peux faire...
------------
Je reste très étonné que les questions de mise en forme de graphiques ou de formes (shape) dans excel soient si peu courues....
Et si mal documentées dans l'aide de Microsoft

[JMPS.VBA]

SilkRoad a répondu à ma question je répond à la tienne sur ce lien dans le forum

SOURCE