Pivot Chart - Fixed Series Patterns

N

Nacho

I have to make a pivot chart, but i want to set fixed fill color for every
series (and them to stay tha same when i and or filter some data in the
pivot chart)

Any ideas?

Thks

--

Nacho Chiviló
_______________________________________________________________________
mail: [email protected]
msn: [email protected]
Tel. (54-11) 4792-8757



..
 
D

Daniel Barelli

Its simple, just make a macro that identify the series and assign the color
that you want then call it at the "calculate" event of the chart.
A code like this:

Sub MacroColorGraph()

Dim x As Integer

For x = 1 To 10
On Error Resume Next
Select Case ActiveChart.SeriesCollection(x).Name
Case "Serie1"
ActiveChart.SeriesCollection(x).Interior.ColorIndex = 36
Case "Serie2"
ActiveChart.SeriesCollection(x).Interior.ColorIndex = 37
Case "Serie3"
ActiveChart.SeriesCollection(x).Interior.ColorIndex = 38
Case "Serie4"
ActiveChart.SeriesCollection(x).Interior.ColorIndex = 39
Case "Serie5"
ActiveChart.SeriesCollection(x).Interior.ColorIndex = 40
Case "Serie6"
ActiveChart.SeriesCollection(x).Interior.ColorIndex = 41
Case "Serie7"
ActiveChart.SeriesCollection(x).Interior.ColorIndex = 42
Case "Serie8"
ActiveChart.SeriesCollection(x).Interior.ColorIndex = 43
Case "Serie9"
ActiveChart.SeriesCollection(x).Interior.ColorIndex = 44
Case "Serie10"
ActiveChart.SeriesCollection(x).Interior.ColorIndex = 45
End Select
Next x
End Sub

See you. Dan ;)
 
Top