Hallo Experten
Folgender Code ändert die Scalierung der X-Achse nicht:
Public Sub DiagrammAnpassen()
Dim cht As ChartObject
Dim TB1, TB2 As Worksheet
On Error Resume Next
Set TB2 = Worksheets("Druck")
'...in DruckDatei
TB2.Select
TB2.Activate
Set cht = ActiveSheet.ChartObjects("Diagramm_KT"))
cht.BringToFront
cht.Activate '---wird selektiert
With cht.Axes(xlCategory) 'X-Achse
.MinimumScale = Round(Range("Sm") / 10, 0) * 10 - 20 'hier ändert sich leider nichts
End With
Hat jemand eine Idee was ich flsch gemacht habe?
Gruß Ludwig