Automatisch grafiek aanpassen

[PKingswood]

Is het mogelijk om de minimum en maximum waarde in een grafiek (de schaal) automatisch aan te passen aan de gegevens die op dat moment van toepassing zijn?

 

[jean42]

Als je gegevens wijzigt dan past de tabel zich aan.

 

[Wigi]

Klopt. Mocht dat niet het geval zijn, dubbelklik op de as, en vink Minimum en Maximum aan.

 

[PKingswood]

Het werkt wel op deze manier maar de computer begint de grafiek vaak bij een aanzienlijk lagere waarde dan de werkelijke minumum waarde. De maximumwaarde die de computer gebruikt is de werkelijke maximum waarde + 1. Dat is wel goed. Is het mogelijk om de minimum waarde met een (toch al actieve) macro aan te passen?

 

[Wigi]

Probeer dit eens:

With ActiveChart.Axes(xlValue)
        .MinimumScale = Worksheets("Waarden").Range("A1").Value
        .MinorUnitIsAuto = True
        .MajorUnit = Worksheets("Waarden").Range("B1").Value / 10
    End With

Hiermee wordt minimum ingesteld op de waarde in cel A1. Ook de major unit wordt ingesteld en variabel gemaakt. Pas zelf maar wat aan. Je moet wel eerst de grafiek selecteren opdat het zou werken.

Wigi

 

[PKingswood]

Hoe pas ik dit toe als de minimumwaarde niet in cel A1 staat maar ergens... (steeds op een andere plaats) in het bereik van A1:A20?

 

[Wigi]

Dus, het komt zeker voor in A1:A20, maar je weet niet welke rij?

Zijn er nog andere cellen gevuld in A1:A20?

 

[PKingswood]

Ja, alle cellen zijn gevuld maar steeds met andere waarden. Hierdoor ligt de minimum waarde dus steeds in een andere cel.

 

[Wigi]

Ah, nu heb ik het door

Gebruik dan

.MinimumScale = WorksheetFunction.Min(Range("A1:A20"))

Wigi

 

[PKingswood]

Juist WIGI, dit werkt! Ik moest wel even de punt verwijderen die helemaal voorin jou formule staat. Nu was het ook zeer eenvoudig om ditzelfde voor de maximum waarde toe te passen.
Bedankt! :thumb:

 

[Wigi]

Ik moest wel even de punt verwijderen die helemaal voorin jou formule staat.

Toch nog even zeggen dat het punt vooraan het commando gebruikt wordt aangezien we een With statement gebruiken. Als jij dat niet gebruikt worden je wel commando's gewoon langer.