Instellen x-as grafiek op basis van celwaarde

[renedemil]

Beste forumleden,

Ik heb mbv vba twee series toegevoegd in dezelfde grafiek. Doordat de waarden en grootte van deze series niet gelijk zijn heb ik in eerste instantie de min en max waarden van de x-as vastgezet zodat deze altijd identiek zouden zijn. Het gaat om tijden van shifts waarin wordt gewerkt. Nu blijkt dat deze shifttijden soms kunnen veranderen waardoor het wenselijk is om de weergave van de x-as dynamisch te maken, dwz te koppelen aan een bepaalde cel.

Onderstaande mijn code

ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlXYScatterLinesNoMarkers
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).XValues = "='Input'!$B$1:$B$300"
ActiveChart.SeriesCollection(1).Values = "='Input'!$E$1:$E$10000"
ActiveChart.SeriesCollection(1).Name = "='Data_theorie'!H46"

ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(2).XValues = "='Data_theorie'!$H$37:$J$37"
ActiveChart.SeriesCollection(2).Values = "='Data_theorie'!$H$38:$J$38"
ActiveChart.SeriesCollection(2).Name = "Theorie"

ActiveChart.Axes(xlCategory).Select
ActiveChart.Axes(xlCategory).MinimumScale = 0
ActiveChart.Axes(xlCategory).MaximumScale = 0.292
ActiveChart.Axes(xlCategory).MajorUnit = 0.02083333333333

ActiveChart.Axes(xlValue).Select
ActiveChart.Axes(xlValue).MinimumScale = 0
ActiveChart.Axes(xlValue).MaximumScale = 20000

Hierin wordt door minimumscale en maximumscale bepaald welke waarden worden weergegeven op de xas. Is het ook mogelijk deze te laten verwijzen naar een cel met daarin een tijd of waarde?

ActiveChart.Axes(xlCategory).MinimumScale = "='Input'!$D1"

Bovenstaande werkt helaas niet..


Zou mij enorm helpen! Alvast bedankt!

gr