Diagrammachse durch Makro verschieben

[F3K Total]

Hallo,
ich habe es gerade mit dem XRAY-DifferenceChecker herausgefunden.
So geht es:

Code: Alles auswählen

Dim myChart As Object
myChart = thisComponent.sheets(1).charts(0).EmbeddedObject.Diagram
myChart.YAxis.CrossoverValue = date(now)

Gruß R