[Excel 97] in VBA grafiek aanpassen, lukt niet

[Verwijderd]

Ik heb een bestaande grafiek welke ik in vba wil wijzigen maar dat lukt niet, dit is de code:

Sub Adjust_Charts()
Sheets("grafieken").ChartObjects("Grafiek 2").Activate
ActiveChart.PlotArea.Select

ActiveChart.SeriesCollection(1).XValues = "='sheet1'!$AA$5:$AZ$5"
ActiveChart.SeriesCollection(2).XValues = "='sheet1'!$AA$5:$AZ$5"
ActiveChart.SeriesCollection(3).XValues = "='sheet1'!$AA$5:$AZ$5"
ActiveChart.SeriesCollection(4).XValues = "='sheet1'!$AA$5:$AZ$5"

ActiveChart.SeriesCollection(4).Values = "='sheet1'!$C$97:$AB$97"
ActiveChart.Refresh
End Sub

Resultaat hier is "Eigenschap Xvalues van Klasse Series kan niet worden ingesteld"
Als ik de 2e "=" weg haal krijg ik geen foutmelding maar wordt de range ook niet goed ingesteld Krijg dan {} om de range heen.

Values krijg ik helemaal niet ingesteld, niet met en niet zonder "="
Wat is er mis met deze code?

[Maasluip]

Heb je al geprobeerd zonder die ' om Sheet1?

[Verwijderd]

Net even geprobeerd, helaas zelfde resultaat.

[Lustucru]

Volgens mij gebruik je nu in VBA de verwijzing volgens de syntax zoals die gebruikt wordt in het werkbald. De helpfile geeft in ieder geval de VBA-verwijzing als correcte manier om hetbereik in te stellen:

code:

Charts("Grafiek1").SeriesCollection(1).XValues = Worksheets("Blad1").Range("B1:B5")

M.a.w. je moet xvalues instellen op een range en niet op een string, (volgens de help).

Grappig, zie nu net dat je het wel op een string kunt instellen, mits je de RijKolom verwijzing gebruikt:

ActiveChart.SeriesCollection(1).XValues = "=Blad1!R1C27:R1C53"

[ Voor 22% gewijzigd door Lustucru op 17-02-2004 11:07 . Reden: aanvulling ]

[Verwijderd]

Ah, nu begin ik vorderingen te maken. Bedankt zover