ich möchte mit VBA die x-achse von einem chart anpassen. dazu hab ich die aktion aufgezeichnet und etwas angepasst. das kürzeste was funktioniert seht ihr unten. ich hätte es jedoch gerne wenn möglich noch etwas kürzer aber das zweite beispiel funktioniert nicht. kann mir da jemand helfen?
besten dank und gruss
loca
Sub rescale_x_axis()
ActiveSheet.ChartObjects("Diagramm 1").Activate
ActiveChart.PlotArea.Select
With ActiveChart
.HasAxis(xlCategory, xlPrimary) = True
.HasAxis(xlValue, xlPrimary) = True
End With
ActiveChart.Axes(xlValue).Select
With ActiveChart.Axes(xlValue)
.MaximumScale = 170
End With
Selection.Delete
End Sub
Sub rescale_x_axis_test()
ActiveSheet.ChartObjects("Diagramm 1").Activate
ActiveChart.Axes(xlValue).MaximumScale = 170
End Sub