Avoir les mêmes couleurs sur les graphes

as-tu essayé avec Interior.ColorIndex = 'Index de la couleur (3 = Rouge
par ex.)....?
jps

mgm31 a écrit:

Quelqu'un peux-t-il m'indiquer comment faire pour avoir
les mêmes couleurs pour une même série sur divers
graphiques ?

J'ai développé une macro mais elle ne marche pas sur
serie.Interior.Color
Quelqu'un aurait-il fait un développement similaire ?

Merci.

Salut mgm31,

Ma feuille contient des graphiques en nuage de
points avec lissage sans marquage des données
et chaque graphique contient le même nombre
de séries. Je sélectionne alors un des graphiques
en maintenant la touche Ctrl enfoncée.
J'appelle alors cette macro :

Sub MêmeNuméroDeSérieMêmeCouleur()
Dim a(1 To 100)
ns = Selection.Chart.SeriesCollection.Count
For i = 1 To ns
a(i) = Selection.Chart.SeriesCollection(i).Border.ColorIndex
Next i
For Each graphe In ActiveSheet.ChartObjects
For j = 1 To ns
graphe.Chart.SeriesCollection(j).Border.ColorIndex = a(j)
Next j
Next
End Sub

Ai-je bien compris ?

Serge

"mgm31" <mgm31@wanadoo.fr> a écrit dans le message de news:
e0fa01c3efec$5ca9d460$a501280a@phx.gbl...
Quelqu'un peux-t-il m'indiquer comment faire pour avoir
les mêmes couleurs pour une même série sur divers
graphiques ?

J'ai développé une macro mais elle ne marche pas sur
serie.Interior.Color
Quelqu'un aurait-il fait un développement similaire ?

Merci.

En remplaçant Border par Interior, ça
fonctionne aussi avec des histogrammes :

Sub MêmeNuméroDeSérieMêmeCouleur()
Dim a(1 To 100)
ns = Selection.Chart.SeriesCollection.Count
For i = 1 To ns
a(i) = Selection.Chart.SeriesCollection(i).Interior.ColorIndex
Next i
For Each graphe In ActiveSheet.ChartObjects
For j = 1 To ns
graphe.Chart.SeriesCollection(j).Interior.ColorIndex = a(j)
Next j
Next
End Sub

Serge


"garnote" <rien@absent.net> a écrit dans le message de news:
oV7Wb.30608$2g.13546@charlie.risq.qc.ca...

Salut mgm31,

Ma feuille contient des graphiques en nuage de
points avec lissage sans marquage des données
et chaque graphique contient le même nombre
de séries. Je sélectionne alors un des graphiques
en maintenant la touche Ctrl enfoncée.
J'appelle alors cette macro :

Sub MêmeNuméroDeSérieMêmeCouleur()
Dim a(1 To 100)
ns = Selection.Chart.SeriesCollection.Count
For i = 1 To ns
a(i) = Selection.Chart.SeriesCollection(i).Border.ColorIndex
Next i
For Each graphe In ActiveSheet.ChartObjects
For j = 1 To ns
graphe.Chart.SeriesCollection(j).Border.ColorIndex = a(j)
Next j
Next
End Sub

Ai-je bien compris ?

Serge

"mgm31" <mgm31@wanadoo.fr> a écrit dans le message de news:
e0fa01c3efec$5ca9d460$a501280a@phx.gbl...
Quelqu'un peux-t-il m'indiquer comment faire pour avoir
les mêmes couleurs pour une même série sur divers
graphiques ?

J'ai développé une macro mais elle ne marche pas sur
serie.Interior.Color
Quelqu'un aurait-il fait un développement similaire ?

Merci.