Dynamische Grafiek

[Daan93]

Hallo,

In onderstaand tabel staan schematisch weergegeven de werkzaamheden die moeten gebeuren aan een vliegtuig tussen de aankomst en het vertrek. Het volgende probleem doet zich voor: Op dit moment vertrekt het vliegtuig om 12u en zijn de processen in de grafiek te zien. Echter, wanneer het vliegtuig om 14u vertrekt verdwijnen de oranje balken naar rechts uit beeld omdat de grafiek die data niet kan zien. De scope is immers te smal. Is er een mogelijkheid om het beeld/de scope mee te laten bewegen met de vertrektijd van het vliegtuig?

Op dit moment kan dit alleen door de horizontale as op te maken en daar de gegevens te veranderen, maar ik wil dit graag automatisch. Ik heb her en der wat rond gekeken en dacht dat het misschien bij de functie offset zou moeten/kunnen zitten.

Bekijk bijlage British Airways A320 STAND - kopie.xlsx

 

[Gijsbert1]

Als je achter het werkblad een change event plaatst in VBA op de volgende manier:

Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.ChartObjects("Grafiek 1").Activate
ActiveChart.Axes(xlValue).MinimumScale = ActiveSheet.Range("N4").Value
End Sub

Dan wordt bij iedere wijziging de as opnieuw in gesteld met een minimumwaarde gelijk aan de startwaarde van de scope

EDIT:
Wel even de maximum waarde van de as op automatisch zetten.