pivotChart en Seriescollection naam

[Dolfke]

Hallo allemaal ,

Ik probeer via vba een pivotchart grafiek op te bouwen .
dit is me al aardig gelukt maar ik stuit echter op nog 1 probleem.

In mijn grafiek maak ik gebruik van meerdere grafiek types en verschillende grafiek kleuren.

met onderstaande weet ik hoeveel seriescollection ik heb

seriescollection.count

Hier omtrent bouw ik dan een loop om deze 1 per 1 te doorlopen .
Met onderstaande code kijk ik welke naam de seriescollection heeft.

Seriescollection(i).Name

De volledige code die ik gebruik is de onderstaande

objChartSpace.Charts(0).Type = chChartTypeColumnClustered   
       For j = 0 To (objChartSpace.Charts(0).SeriesCollection.Count - 1)
           With objChartSpace.Charts(0).SeriesCollection(j)
                If .Name = CStr(sYear & " - Month") Then
                   .Interior.Color = RGB(65, 105, 225)
                End If
                If .Name = CStr(sYear & " - YTD") Then
                   .Type = chChartTypeLine
                   .Line.Color = RGB(65, 105, 225)
                   .Line.DashStyle = chLineLongDash
                End If
                If .Name = CStr(sYear & " - MonthPnTotaal") Then
                   .Interior.Color = RGB(128, 32, 96)
                End If
                If .Name = CStr(sYear & " - YTDPnAcc") Then
                   .Type = chChartTypeLine
                   .Line.Color = RGB(128, 32, 96)
                   .Line.DashStyle = chLineLongDash
                End If
           End With
       Next j

De code op zich werkt perfect maar ik krijg echter een zeer vreemde fout.

Als hij zijn loop aan het doorlopen is , worden de namen om de een of andere reden veranderd .

Wat bedoel ik hiermee ,
stel:
Seriescollection(0).Name = 2009 - Month
Seriescollection(1).Name = 2009 - YTD
Seriescollection(2).Name = 2009 - MonthPnTotaal
Seriescollection(3).Name = 2009 - YTDPnAcc

Nu als ik mijn loop doorloop verander hij ineens dat
Seriescollection(2).Name = 2009 - Month

terwijl dit in het begin " 2009 - MonthPnTotaal " was

Iemand een idee ?

Bedankt allemaal

groetjes

 

[Dolfke]

Niemand een idee of een andere en betere opzet ?


Bedankt
Groetjes Dolf