Grafiek as waarde via formule bepalen

[EJ134]

Hallo zou graag in een grafiek de maximale Y-as waarde zelf willen vast zetten dmv waarde bepaald in formule.
Je kunt de waarde natuurlijk door in de grafiek er op te dubbelklikken handmatig (of automatisch) aanpassen maar dat is omslachtig en tijdrovend als de grafiek waarden telkens veel variëren in waarde.
Weet iemand of dit kan, kan het helaas nergens vinden, en dus veel handwerk.
Alvast bedankt voor jullie hulp,
Ernst Jan

 

[popipipo]

Wat is zo tijdrovend aan het automatisch te laten doen??

 

[EJ134]

Nou automatisch word er vaak teveel 'marge' boven en onder gehouden

 

[popipipo]

Via VBA zal het vast wel geregeld kunnen worden, maar daar ben ik niet goed genoeg voor.

 

[JEC.]

Je kan dit eens proberen (zet code achter je betreffende werkbladmodule). Met in D1 je formule

Private Sub Worksheet_Calculate()
ActiveSheet.ChartObjects("Chart 1").Chart.Axes(xlValue).MaximumScale = [d1].Value
End Sub