Grafiek met 2 y-assen schaalwaarde

[sbach]

Hallo iedereen,

Is het mogelijk om de max. schaal-waarde van de y-as(sen) te vervangen door een waarde uit een cel?

Mijn dynamische grafiek heeft 2 y-assen en de y-waarden zijn vaak grillig en de max waarden niet relevant, waardoor ik bij de grafiek As opmaken: de max y- schaalwaarden steeds handmatig moet aanpassen voor een beter beeld. Dit wil ik vereenvoudigen door een waarde in een cel in mijn werkblad.

Mogelijk? Wie kan mij helpen?

 

[Ad Becude]

Voorbeeldje graag.

 

[Wigi]

Je zou bvb. een grafiek kunnen maken op een apart grafiekenblad.

Dan klik je met rechtermuisknop op de bladtab van dat grafiekenblad, en neem je "View code" (Engelse Excel versie, anders "Code weergeven" denk ik).

Plak onderstaande code erin en pas bladnaam en celadres aan.

Private Sub Chart_Calculate()

    ActiveChart.Axes(xlValue).MaximumScale = Sheets("NAAMVANHETBLAD").Range("CELMETMAXIMUM").Value

End Sub

Wigi

 

[sbach]

Bedankt Wigi, het is gelukt .
Ik heb het iets aangepast voor mijn 2 y-assen grafiek. Ik moest me hier wel meer in verdiepen maar ik ben eruit.
Aangezien de grafiek onderdeel is van een stukkie is een aparte tabblad niet wenselijk.

 Private Sub CommandButton1_Click()
    With ActiveSheet.ChartObjects("Chart 1").Chart
        With .Axes(xlValue)
            .MinimumScale = ActiveSheet.Range("N10").Value
            .MaximumScale = ActiveSheet.Range("N11").Value
        End With
        With .Axes(xlValue, xlSecondary)
            .MinimumScale = ActiveSheet.Range("O10").Value
            .MaximumScale = ActiveSheet.Range("O11").Value
        End With
        
    End With
End Sub

Nogmaals dank voor jullie snelle reactie :thumb:

 

[Warme bakkertje]

Dan mag de vraag nog even op opgelost(rechts onderaan de pagina)

Mvg

Rudi